head(WineTasting)
rmanova(WineTasting$Taste, WineTasting$Wine, WineTasting$Taster)
## post hoc
rmmcp(WineTasting$Taste, WineTasting$Wine, WineTasting$Taster)
head(bush)
require(reshape)
bushLong <- melt(bush, id.var = "participant", variable_name = "food")
rmanova(bushLong$value, bushLong$food, bushLong$participant)
## post hoc
rmmcp(bushLong$value, bushLong$food, bushLong$participant)
Run the code above in your browser using DataLab