/* Lesson 5-6 */
 /*    File Name = hist01.sas   11/08/96   */

data arudai;
  infile 'some.dat';
  input seibetsu $ shintyou taijyuu kyoui kozukai jitaku $ daigaku $;

proc print data=arudai(obs=10);
run;
proc means data=arudai;
run;
proc chart data=arudai;
  hbar kozukai;
run;
proc chart data=arudai;
  vbar kozukai;
run;