## ----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)