# NOT RUN {
data("PreSex")
## Mosaic display for Gender and Premarital Sexual Experience
## (Gender Pre)
mosaic(margin.table(PreSex, c(3,4)),
main = "Gender and Premarital Sex")
## (Gender Pre)(Extra)
mosaic(margin.table(PreSex, c(2,3,4)),
expected = ~Gender * PremaritalSex + ExtramaritalSex ,
main = "PreMaritalSex*Gender +Sex")
## (Gender Pre Extra)(Marital)
mosaic(PreSex,
expected = ~Gender*PremaritalSex*ExtramaritalSex + MaritalStatus,
main = "PreMarital*ExtraMarital + MaritalStatus")
## (GPE)(PEM)
mosaic(PreSex,
expected = ~ Gender * PremaritalSex * ExtramaritalSex
+ MaritalStatus * PremaritalSex * ExtramaritalSex,
main = "G*P*E + P*E*M")
# }
Run the code above in your browser using DataLab