data(senso)
res <- LinearModel(Score~ Product + Day , data=senso, selection="none")
meansComp(res,~Product)
if (FALSE) {
## and with the sidak correction
meansComp(res,~Product,adjust="sidak")
}
Run the code above in your browser using DataLab