Displaying 1 result from an estimated 1 matches for "cueright".
2005 Mar 10
1
contrast matrix for aov
...#################
lh_cueL <- rowMeans( LHroi.cueL[,t1:t2] )
lh_cueR <- rowMeans( LHroi.cueR[,t1:t2] )
rh_cueL <- rowMeans( RHroi.cueL[,t1:t2] )
rh_cueR <- rowMeans( RHroi.cueR[,t1:t2] )
roiValues <- c( lh_cueL, lh_cueR, rh_cueL, rh_cueR )
cuelabels <- c("CueLeft", "CueRight")
hemlabels <- c("LH", "RH")
roiDataframe <- data.frame( roi=roiValues, Subject=gl(8,1,32,subjectlabels),
Hemisphere=gl(2,16,32,hemlabels), Cue=gl(2,8,32,cuelabels) )
roi.aov <- aov(roi ~ (Cue*Hemisphere) + Error(Subject/(Cue*Hemisphere)),
data=roiDataframe)
pr...