/* Lesson 10-02 */
 /*    File Name = les1002.sas  12/18/18   */

options nocenter linesize=78 pagesize=30;
proc printto print = 'Kougi/les1002_results.txt' new;

data pref;
  infile 'Kougi/Prefectures.csv'
    firstobs=5 dlm=',' dsd missover 
    encoding=sjis termstr=crlf;
  input PName $ CName : $10. 
        population area density census Shi Ku Tyou Son;

proc print data=pref(obs=10);
run;
proc means data=pref;
run;

proc chart data=pref;
  hbar population area density;
  vbar population area density;
run;

proc univariate data=dragons plot;
  var population area density;
run;