## ----echo=FALSE,eval=FALSE---------------------------------------------------- # options(width=60) ## ----eval=FALSE--------------------------------------------------------------- # library(catdata) # data(leukoplakia) # library(vcdExtra) # leukoplakia<-expand.dft(leukoplakia,freq="Freq") ## ----eval=FALSE--------------------------------------------------------------- # mosaicplot(~ Leukoplakia+Smoker+Alcohol,main ="", data = leukoplakia, # color = TRUE, cex.axis=1.0) ## ----eval=FALSE--------------------------------------------------------------- # mosaicplot(~ Leukoplakia+Smoker,main ="", data = leukoplakia, color = TRUE, # cex.axis=1.0) ## ----echo=FALSE,eval=FALSE---------------------------------------------------- # detach(package:vcdExtra) # detach(package:gnm)