/* Lesson 08-02 */
 /*    File Name = les0802.sas   06/06/01   */

options linesize=72 pagesize=20;

data kakuryou;
  infile 'koizumi.prn' firstobs=2;
  input name $ sex $ real_est savings total loan_som loan_Ban;
  LABEL real_est='土地・建物(real_estate)'
        savings='預貯金・有価証券(Savings)'
        total='合計(Total_Property)'
        loan_som='貸付金(Loan_to_Someone)'
        loan_Ban='借入金(Loan_from_Banks)'
;

proc print data=kakuryou(obs=10);
run;

proc means data=kakuryou;
run;

proc chart data=kakuryou;
  hbar real_est savings total loan_som loan_Ban;
run;

proc univariate data=kakuryou plot;
  var total;
run;

proc sort data=kakuryou;
  by descending total;
run;

proc print data=kakuryou;
run;

proc sort data=kakuryou;
  by sex;
run;

proc means data=kakuryou;
  by sex;
run;

proc chart data=kakuryou;
  hbar total;
  by sex;
run;

proc chart data=kakuryou;
  hbar total/group=sex;
run;

proc univariate data=kakuryou plot;
  var total;
  by sex;
run;