Skip to content
Prev 90914 / 398500 Next

aov contrasts residual error calculation

why not using lme() ?

first, you need transform data:
dat2 <- as.data.frame(lapply(subset(dat, sel=-c(A,B,C)), rep, 3))
dat2$y <- unlist(subset(dat, sel=c(A,B,C)), F, F)				
dat2$cond <- factor(rep(c("A","B","C"), each=nrow(dat)))

dat2$inter <- factor(dat2$map):factor(dat2$cond)

lme1 <- lme(fixed = y ~ mapping + cond + inter + other fixed effects,
	random = ~ 1 |subj, data=dat2,
	contrast=list(inter=poly(nlevels(dat2$inter)[,1:4]))							

				
	


Steven Lacey a ?crit :