# NOT RUN {
data(jansen.strawberry)
dat <- jansen.strawberry
dat <- transform(dat, category=ordered(category, levels=c('C1','C2','C3')))
ftable(xtabs(count~male + female + category, data=dat))
mosaicplot(xtabs(count~male + female + category, data=dat),
color=c("lemonchiffon1","moccasin","lightsalmon1","indianred"),
main="jansen.strawberry disease ratings",
xlab="Male parent", ylab="Female parent")
# Todo: Need an example model
# }
Run the code above in your browser using DataLab