title 'von Bortkiewicz data';
data vonbort;
   input year @;
   do corps = 1 to 14;
      input deaths @;
      output;
      end;
/*  1 2  3  4   5 6  7  8    9  10 11 12 13 14 */
/*  G I II III IV V VI VII VIII IX X XI XIV XV */
datalines;
75  0  0  0  0  0  0  0  1  1  0  0  0  1  0
76  2  0  0  0  1  0  0  0  0  0  0  0  1  1
77  2  0  0  0  0  0  1  1  0  0  1  0  2  0
78  1  2  2  1  1  0  0  0  0  0  1  0  1  0
79  0  0  0  1  1  2  2  0  1  0  0  2  1  0
80  0  3  2  1  1  1  0  0  0  2  1  4  3  0
81  1  0  0  2  1  0  0  1  0  1  0  0  0  0
82  1  2  0  0  0  0  1  0  1  1  2  1  4  1
83  0  0  1  2  0  1  2  1  0  1  0  3  0  0
84  3  0  1  0  0  0  0  1  0  0  2  0  1  1
85  0  0  0  0  0  0  1  0  0  2  0  1  0  1
86  2  1  0  0  1  1  1  0  0  1  0  1  3  0
87  1  1  2  1  0  0  3  2  1  1  0  1  2  0
88  0  1  1  0  0  1  1  0  0  0  0  1  1  0
89  0  0  1  1  0  1  1  0  0  1  2  2  0  2
90  1  2  0  2  0  1  1  2  0  2  1  1  2  2
91  0  0  0  1  1  1  0  1  1  0  3  3  1  0
92  1  3  2  0  1  1  3  0  1  1  0  1  1  0
93  0  1  0  0  0  1  0  2  0  0  1  3  0  0
94  1  0  0  0  0  0  0  0  1  0  1  1  0  0
;
data vonbort2;
	set vonbort;
	where corps not in (1,2,7,12);

proc freq data=vonbort2;
	tables deaths / out=horskick;