/* Name: vision.sas Title: Visual acuity in left and right eyes Source: Kendall and Stuart 1961 [Tables 33.2, 33.5] */ data women; input right left count @@; cards; 1 1 1520 1 2 266 1 3 124 1 4 66 2 1 234 2 2 1512 2 3 432 2 4 78 3 1 117 3 2 362 3 3 1772 3 4 205 4 1 36 4 2 82 4 3 179 4 4 492 ; data men; input right left count @@; cards; 1 1 821 1 2 112 1 3 85 1 4 35 2 1 116 2 2 494 2 3 145 2 4 27 3 1 72 3 2 151 3 3 583 4 4 87 4 1 43 4 2 34 4 3 106 4 4 331 ; *-- Join the two data sets; data vision; length gender $1; set women (in=w) men (in=m); if w then gender='F'; else gender='M'; run; *proc print;