## Not run:
# 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
# ## End(Not run)
Run the code above in your browser using DataLab