文档介绍:'''***********************SS_df_AB_R 类**************************
'''双因素重复方差分析与自由度分解程序
'''a() As Integer,处理因子a,已索引化
''
'''***********************SS_df_AB_R 类**************************
'''双因素重复方差分析与自由度分解程序
'''a() As Integer,处理因子a,已索引化
''' b() As Integer,处理因子b,已索引化
'''Var() As Double ,指标数值
'''ByVal N As Intege,观察值组数
''' by Chen Tingmu
'''*****************************************************************
Public df As Integer, dft As Integer, dfa As Integer, dfb As Integer, dfab As Integer
Public dfe As Integer, N As Integer, na As Integer, nb As Integer, nab As Integer
Public SS As Double, SSt As Double, SSa As Double, SSb As Double, SSab As Double, SSe As Double
Public c As Double, T As Double, SUM As Double, SUM2 As Double
Public MSa As Double, MSb As Double, MSab As Double, MSe As Double
Sub ssanddf_AB_R(a() As Integer, B() As Integer, Var() As Double, ByVal N As Integer)
Dim I As Integer
Dim sumA() As Double, sumB() As Double, sumAB() As Double
Dim sumR() As Double
Dim nai() As Integer, nbi() As Integer, nabi() As Integer '''为缺区估计作准备
na = 1
nb = 1
For I = 1 To N
If a(I) > na Then na = a(I)
If B(I) > nb Then nb = B(I)
Next
nab = na * nb
ReDim sumA(na) As Double, sumB(nb) As Double, sumAB(nab) As Double
'ReDim sumR(nr) As Double
ReDim nai(na) As Integer, nbi(nb) As Integer