*--------------------------------------------------------------------------*
|                                                                          |
|  sas program: sem-ram-add.sas                                            |
|                                                                          |
|    a sas program to apply SEM to a correlation matrix for the Takeuchi   |
|  thesis data (Takeuchi, 2001).                                           |
|                                                                          |
*--------------------------------------------------------------------------*;
libname sasfile 'p\permfile';
options ps=60;
  title 'SEM for the Takeuchi data';
proc calis data=sasfile.mtpathda method=max edf=169 pall;
 ram
  1  1 27 1.00  ome1,
  1  2 27  .90  ome2,
  1  3 27 -.84  ome3,
  1  4 28 1.00  ome4,
  1  5 28  .77  ome5,
  1  6 28 -.74  ome6,
  1  7 29 1.00  ome7,
  1  8 29  .79  ome8,
  1  9 29  .71  ome9,
  1 10 29  .69 ome10,
  1 11 29  .66 ome11,
  1 12 29  .57 ome12,
  1 13 29 -.63 ome13,
  1 14 29 -.64 ome14,
  1 15 29 -.66 ome15,
  1 16 29 -.67 ome16,
  1 17 30 1.00 ome17,
  1 18 30  .64 ome18,
  1 19 30  .45 ome19,
  1 20 30  .45 ome20,
  1 21 30  .42 ome21,
  1 22 30  .36 ome22,
  1 23 30 -.31 ome23,
  1 24 30 -.33 ome24,
  1 25 30 -.48 ome25,
  1 26 30 -.54 ome26,

  1 27 29  .20 alph1,
  1 28 29  .92 alph2,
  1 28 30  .90 alph3,

  2  1  1 1. thet1,
  2  2  2 1. thet2,
  2  3  3 1. thet3,
  2  4  4 1. thet4,
  2  5  5 1. thet5,
  2  6  6 1. thet6,
  2  7  7 1. thet7,
  2  8  8 1. thet8,
  2  9  9 1. thet9,
  2 10 10 1. thet10,
  2 11 11 1. thet11,
  2 12 12 1. thet12,
  2 13 13 1. thet13,
  2 14 14 1. thet14,
  2 15 15 1. thet15,
  2 16 16 1. thet16,
  2 17 17 1. thet17,
  2 18 18 1. thet18,
  2 19 19 1. thet19,
  2 20 20 1. thet20,
  2 21 21 1. thet21,
  2 22 22 1. thet22,
  2 23 23 1. thet23,
  2 24 24 1. thet24,
  2 25 25 1. thet25,
  2 26 26 1. thet26,

  2 27 27 1.     ,
  2 28 28 1.     ,

  2 29 29 1.     ,
  2 30 30 1.     ;

 run;