data(dataEP05A2_2)
ub.dat <- dataEP05A2_2[-c(11,12,23,32,40,41,42),]
fit <- anovaMM(y~day/(run), ub.dat)
fe <- fixef(fit)
fe
lc.mat <- getL( fit, c("day1-day2", "day3-day6"))
lc.mat
test.fixef(fit, lc.mat)
# some inferential statistics about fixed effects estimates
L <- diag(nrow(fe))
rownames(L) <- colnames(L) <- rownames(fe)
test.fixef(fit, L)
# using different "residual" method determining DFs
test.fixef(fit, L, ddfm="res")
# having 'opt=TRUE' is a good idea to save time
# (in case of balanced designs)
data(VCAdata1)
datS3 <- VCAdata1[VCAdata1$sample==3,]
fit <- anovaMM(y~(lot+device)/(day)/run, datS3)
fit$VarCov <- vcovVC(fit)
fe <- fixef(fit)
L <- diag(nrow(fe))
rownames(L) <- colnames(L) <- rownames(fe)
system.time(tst1 <- test.fixef(fit, L))
system.time(tst2 <- test.fixef(fit, L, opt=FALSE))
tst1
tst2Run the code above in your browser using DataLab