/* Lesson 11-1 */
 /*    File Name = les1101.sas   09/28/00   */

options linesize=72 pagesize=20;

data kakuryou;
  infile 'kakuryou.prn';
  input name $ real_est savings tot_pro per_pro loan_som loan_Ban;
  LABEL real_est='土地・建物(real_estate)'
        savings='預貯金・有価証券(Savings)'
        tot_pro='家族分を含む総資産(Total_Property)'
        per_pro='本人の資産(Persons_Property)'
        loan_som='貸付金(Loan_to_Someone)'
        loan_Ban='借入金(Loan_from_Banks)'
;

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

proc means data=kakuryou;
run;

proc univariate data=kakuryou plot;
run;

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

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

proc print data=kakuryou;
run;