Displaying 1 result from an estimated 1 matches for "mtxcov".
Did you mean:
maxcov
2005 Feb 18
1
Two-factorial Huynh-Feldt-Test
...out it.
I've tried to do it in several ways, but this is the only one that gives
a somewhat reasonable result.
Can anyone give me a suggestion of how I could do this, where I could
find information about it etc? Google doesn't help much except more SAS
examples...:-(
hf <- function(mtxCov,ncol,nrow) {
X <- mtxCov*(nrow-1)
r <- length(X[,1])
D <- 0
for (i in 1: r) D<- 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...