/* Lesson Roudou_dnc2101b */
 /*    File Name = Roudou_dnc2101b.sas  01/18/22   */

options nocenter linesize=78 pagesize=30;
options locale='en_US';
/* options locale='ja_JP'; */
proc printto print = 'StatM21/Roudou_dnc2101b.txt' new;

data prefS;
  infile 'StatM21/RoudouSyuyaku1.csv'
    firstobs=12 dlm=',' dsd 
    truncover lrecl=800
    missover
    encoding=sjis termstr=crlf;
  input id $ Pname $ x01-x45;

label
  x01='1975_M'
  x02='1975_F'
  x03='1975_D1'
  x04='1975_D2'
  x05='1975_D3'

  x06='1980_M'
  x07='1980_F'
  x08='1980_D1'
  x09='1980_D2'
  x10='1980_D3'

  x11='1985_M'
  x12='1985_F'
  x13='1985_D1'
  x14='1985_D2'
  x15='1985_D3'

  x16='1990_M'
  x17='1990_F'
  x18='1990_D1'
  x19='1990_D2'
  x20='1990_D3'

  x21='1995_M'
  x22='1995_F'
  x23='1995_D1'
  x24='1995_D2'
  x25='1995_D3'

  x26='2000_M'
  x27='2000_F'
  x28='2000_D1'
  x29='2000_D2'
  x30='2000_D3'

  x31='2005_M'
  x32='2005_F'
  x33='2005_D1'
  x34='2005_D2'
  x35='2005_D3'

  x36='2010_M'
  x37='2010_F'
  x38='2010_D1'
  x39='2010_D2'
  x40='2010_D3'

  x41='2015_M'
  x42='2015_F'
  x43='2015_D1'
  x44='2015_D2'
  x45='2015_D3'
;

/*
proc print data=prefS;
run;
*/

proc corr data=prefS;
  var x03-x05 x43-x45; 
run;

proc sgscatter data=prefS;
  title "Scatterplot Matrix for Roudou Data of 1975";
  matrix x03-x05; 
run;

proc sgscatter data=prefS;
  title "Scatterplot Matrix for Roudou Data of 2015";
  matrix x43-x45; 
run;