정준

data Q(type = corr);
input name$ cat1 - cat4 cass1 - cass7;
type = 'corr';
cards;
CAT1 1.000 . . . . . . . . . .
CAT2 .662 1.000 . . . . . . . . .
CAT3 .661 .697 1.000 . . . . . . . .
CAT4 .641 .730 .703 1.000 . . . . . . .
CASS1 .131 -.112 .033 .040 1.000 . . . . . .
CASS2 .253 .031 .185 .149 .641 1.000 . . . . .
CASS3 .332 .133 .197 .132 .574 .630 1.000 . . . .
CASS4 .381 .304 .304 .382 .312 .509 .583 1.000 . . .
CASS5 .413 .313 .276 .382 .254 .491 .491 .731 1.000 . .
CASS6 .520 .485 .450 .466 .034 .117 .294 .595 .534 1.000 .
CASS7 .434 .392 .380 .390 .065 .100 .203 .328 .355 .508 1.000
;
run;
proc cancorr data = Q vprefix = u wprefix = v;
var cat1 - cat4;
with cass1 - cass7;
run;

data Q(type = corr);
input name$ x1 -x2 y1 - y2 ;
type = 'corr';
cards;
x1 1 . . .
x2 0.505 1 . .
y1 0.569 0.422 1 .
y2 0.602 0.467 0.926 1
;
run;
proc cancorr data = Q vprefix = u wprefix = v;
var x1 - x2;
with y1 - y2;
run;