View/Open - Document Server@UHasselt

y ID;
proc corr data = DATA4 noprint outp = RESULT NOMISS;
var ANS_GN_POST ANS_GN_PRE ANS_GN_RATIO ANS_MEN_POST ANS_MEN_PRE ANS_MEN_RATIO
ANS_PNS_POST ANS_PNS_PRE ANS_PNS_RATIO GO_POG_L_POST GO_POG_L_PRE GO_POG_L_RATIO
GO_POG_POST GO_POG_PRE GO_POG_RATIO GO_POG_R_POST GO_POG_R_PRE GO_POG_R_RATIO
NS_POST NS_PRE NS_RATIO N_ANS_POST N_ANS_PRE N_ANS_RATIO
PNS_ANS_POST PNS_ANS_PRE PNS_ANS_RATIO SN_POST SN_PRE SN_RATIO
WITS_POST WITS_PRE WITS_RATIO WIT_S_POST WIT_S_PRE WIT_S_RATIO ;
data RESULT2;
set RESULT;
if _TYPE_ ^= 'CORR' then delete;
drop _TYPE_;
proc print data = RESULT2;
title 'CORRELATIE 3D VS 2D';
run;
/****************************************************************************************/
/* CORRELATIE 2D MET 3D */
/* HARD Zy(l) vs ZACHT soft tissue zy(l) */
/* HARD Zy(r) vs ZACHT soft tissue zy(r) */
/* HARD Pog vs ZACHT pg */
/* HARD Men vs ZACHT soft tissue gn */
/* HARD Co(l) vs ZACHT soft tissue po(l) */
/* HARD Co(r) vs ZACHT soft tissue po(r) */
/* HARD Go(l) vs ZACHT soft tissue go(l) */
/* HARD Go(r) vs ZACHT soft tissue go(r) */
/* HARD Or(l) vs ZACHT soft tissue or(l) */
/* HARD Or(r) vs ZACHT soft tissue or(r) */
/****************************************************************************************/
data HULP1;
set DATA;
HARD_ZY_L_PRE = MEAN1;
HARD_ZY_L_POST = MEAN2;
HARD_ZY_L_RATIO = MEAN1 / MEAN2;
if (WEEFSEL = 'HARD') and (METING = 'Zy(l)') then output;
drop M11 M12 M13 M21 M22 M23 MEAN1 MEAN2 METING PROJECTION WEEFSEL ;
data HULP2;
set DATA;
HARD_ZY_R_PRE = MEAN1;
HARD_ZY_R_POST = MEAN2;
HARD_ZY_R_RATIO = MEAN1 / MEAN2;
if (WEEFSEL = 'HARD') and (METING = 'Zy(r)') then output;
drop M11 M12 M13 M21 M22 M23 MEAN1 MEAN2 METING PROJECTION WEEFSEL ;
data HULP3;
set DATA;
11