/* Lesson 18-01 */
 /*    File Name = nitech1801.sas   10/02/18   */

options nocenter linesize=78 pagesize=40;

proc printto log   = '/folders/myfolders/Kougi/SAS_log01.txt'
             print = '/folders/myfolders/Kougi/SAS_out01.txt' new;

data gakusei;
  infile '/folders/myfolders/Kougi/all08e.txt'
     firstobs=2;
  input sex $ shintyou taijyuu kyoui 
        jitaku $ kodukai
        phone $ fee
;

proc print data=gakusei(obs=10);
run;
proc means data=gakusei;
  var shintyou taijyuu kyoui kodukai fee;
run;
proc freq data=gakusei;
  table sex jitaku phone;
run;
proc plot data=gakusei;
  plot taijyuu*shintyou;
  plot shintyou*taijyuu;
run;

proc sgplot data=gakusei;
  scatter x=shintyou y=taijyuu;
run;
proc sgplot data=gakusei;
  scatter x=taijyuu y=shintyou;
run;