if (FALSE) {
data(VCAdata1)
datS1 <- VCAdata1[VCAdata1$sample==1,]
fit1 <- anovaVCA(y~(lot+device)/(day)/(run), datS1)
# default is conditional (raw) residuals
resid(fit1)
resid(fit1, "m")
# get standardized version
resid(fit1, mode="stand") # conditional residuals (default)
resid(fit1, "marg", "stand") # marginal residuals
# get studentized version, taking their
# covariances into account
resid(fit1, mode="stud") # conditional residuals (default)
resid(fit1, "marg", "stud") # marginal residuals
}
Run the code above in your browser using DataLab