/*
  Name:  marital.sas
 Title:  Pre-marital sex, extra-marital sex, and divorce
Source:  Thornes and Collard 1979, Gilbert 1981
*/ 
data marital;
   input gender $ pre $ extra $ @;
	pre = 'Pre:' || pre;
	extra = 'X:' || extra;
   marital='Divorced';  input count @;  output;
   marital='Married';   input count @;  output;
datalines;
Women  Yes  Yes   17   4
Women  Yes  No    54  25
Women  No   Yes   36   4
Women  No   No   214 322
Men    Yes  Yes   28  11
Men    Yes  No    60  42
Men    No   Yes   17   4
Men    No   No    68 130
;
proc sort;
	by marital extra pre gender;