文档介绍:'''***********************SS_df_AB_R类**************************
'双因素重复方差分析与自由度分解程序
ger
'''a() As Int处僵因子a,已索引化
'''b('''***********************SS_df_AB_R类**************************
'双因素重复方差分析与自由度分解程序
ger
'''a() As Int处僵因子a,已索引化
'''b() As In处僵因子b,已索引化
'''ar() As Double 指标数值
'''B湖N As Inte,ge观察值组数
''' by Chen Tingmu
5 5 5 """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
*****************************************************************
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 IntieghrAs VDouble, BylV 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()为缺区幺估计作作佯备
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, nabi(nab)为缺区估g^TF准备
SUM = 0
SUM2