data(GreatTitMalaria)
str(GreatTitMalaria)
GreatTitMalaria
# Table 2.3-1
GTM.raw <- expand.dft(GreatTitMalaria, "count")
table(GTM.raw)
if(require(vcd)) {
mosaic(~treatment + response, GTM.raw)
}
Run the code above in your browser using DataLab