Displaying 1 result from an estimated 1 matches for "avcov2".
Did you mean:
ancova
2005 Feb 18
1
Two-factorial Huynh-Feldt-Test
...t;- D+ X[i,i]
D <- D/r
SPm <- mean(X)
SPm2 <- sum(X^2)
SSrm <- 0
for (i in 1: r) SSrm<- SSrm + mean(X[i,])^2
epsilon <- (ncol^2*(D-SPm)^2) / ((ncol-1) * (SPm2 - 2*ncol*SSrm +
ncol^2*SPm^2))
print(epsilon)
}
# 2. do variance-covariance matrices for conditions first
avCov2 <- matrix(rep(0,36),ncol=length(unique( roi )))
for (iCond in 1:length(preparedData[1,3:4])) {
mtx <- NULL
for (iROI in 1:length(unique( roi ))) {
mtx <- c(mtx,
preparedData[roi==unique(roi)[iROI],iCond + 4])
}
mtx <- matrix(mtx, ncol=length(unique( roi )), byro...