Displaying 3 results from an estimated 3 matches for "iroi".
Did you mean:
iro
2005 Feb 23
1
H-F corr.: covariance matrix for interaction effect
...- (k-1)*epsiGG))
c(epsiGG,epsiHF)
}
# three factors, facROI,facCond,facSubj
# facROI,facCond are main effects, facSubj is "repeatedness"
# G-G and H-F corrections for a main effect
# we do the gghf stuff for the ROI, which means ROIs in columns,
# subjects in rows
mtx <- NULL
for (iROI in 1:length(unique( facROI ))) {
for (iSubj in 1:length(unique( facSubj ))) {
mtx <- c(mtx,
mean(vecData[facROI==unique(facROI)[iROI] &
facSubj==unique(facSubj)[iSubj]])
)
}
}
mtx <- matrix(mtx,ncol=length(unique( facROI )),byrow=F)
GgHfROI <- ep...
2005 Feb 23
1
H-F corr.: covariance matrix for interaction effect
...- (k-1)*epsiGG))
c(epsiGG,epsiHF)
}
# three factors, facROI,facCond,facSubj
# facROI,facCond are main effects, facSubj is "repeatedness"
# G-G and H-F corrections for a main effect
# we do the gghf stuff for the ROI, which means ROIs in columns,
# subjects in rows
mtx <- NULL
for (iROI in 1:length(unique( facROI ))) {
for (iSubj in 1:length(unique( facSubj ))) {
mtx <- c(mtx,
mean(vecData[facROI==unique(facROI)[iROI] &
facSubj==unique(facSubj)[iSubj]])
)
}
}
mtx <- matrix(mtx,ncol=length(unique( facROI )),byrow=F)
GgHfROI <- ep...
2005 Feb 18
1
Two-factorial Huynh-Feldt-Test
...,])^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 )), byrow=F)
avCov2 <- avCov2 + cov(mtx)
}
avCov2 <- avCov2 / length(preparedData[1,3:4])
hf(avCov2,
length(unique( roi )),...