| PreSex {vcd} | R Documentation |
Data from Thornes & Collard (1979), reported in Gilbert (1981), on pre- and extra-marital sex and divorce.
data(PreSex)
A 4-dimensional array resulting from cross-tabulating 1036 observations on 4 variables. The variables and their levels are as follows:
| No | Name | Levels |
| 1 | MaritalStatus | Divorced, Married |
| 2 | ExtramaritalSex | Yes, No |
| 3 | PremaritalSex | Yes, No |
| 4 | Gender | Women, Men |
Michael Friendly (2000), Visualizing Categorical Data: http://hotspur.psych.yorku.ca/ftp/sas/vcd/catdata/marital.sas
G. N. Gilbert (1981), Modelling Society: An Introduction to Loglinear Analysis for Social Researchers. Allen and Unwin, London.
B. Thornes & J. Collard (1979), Who Divorces?. Routledge & Kegan, London.
M. Friendly (2000), Visualizing Categorical Data. SAS Institute, Cary, NC.
data(PreSex)
par(mfrow=c(1,2))
## Mosaic display for Gender and Premarital Sexual Expirience
## (Gender Pre)
mosaicplot(margin.table(PreSex,c(3,4)), shade = TRUE,
clegend = FALSE, main = "Gender and Premarital Sex")
## (Gender Pre)(Extra)
mosaicplot(margin.table(PreSex,c(2,3,4)), shade = TRUE, clegend = FALSE,
margin = ~Gender*PremaritalSex + ExtramaritalSex ,
main = "PreMaritalSex*Gender +Sex")
par(mfrow=c(1,1))
## (Gender Pre Extra)(Marital)
mosaicplot(PreSex, shade = TRUE, margin = ~Gender*PremaritalSex*ExtramaritalSex + MaritalStatus,
clegend = FALSE, main = "PreMarital*ExtraMarital + MaritalStatus")
## (GPE)(PEM)
mosaicplot(PreSex, shade = TRUE,
margin = ~Gender*PremaritalSex*ExtramaritalSex + MaritalStatus*PremaritalSex*ExtramaritalSex,
clegend = FALSE, main = "G*P*E + P*E*M")