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