/* Lesson 10-2 */
 /*    File Name = ttest01.sas   06/26/97   */

options linesize=72 pagesize=24;

data gakusei;
  infile 'taikaku.dat';
  input seibetsu $ shintyou taijyuu kyoui;

proc print data=gakusei(obs=10);
run;
proc ttest data=gakusei;
  class seibetsu;
  var shintyou taijyuu;
run;