View/Open - Document Server@UHasselt

View/Open - Document Server@UHasselt View/Open - Document Server@UHasselt

doclib.uhasselt.be
from doclib.uhasselt.be More from this publisher
23.02.2013 Views

proc sort data = HULP8; by ID; proc sort data = HULP9; by ID; proc sort data = HULP10; by ID; proc sort data = HULP11; by ID; proc sort data = HULP12; by ID; proc sort data = HULP13; by ID; proc sort data = HULP14; by ID; proc sort data = HULP15; by ID; proc sort data = HULP16; by ID; proc sort data = HULP17; by ID; proc sort data = HULP18; by ID; proc sort data = HULP19; by ID; proc sort data = HULP20; by ID; data DATA5; merge HULP1 HULP2 HULP3 HULP4 HULP5 HULP6 HULP7 HULP8 HULP9 HULP10 HULP11 HULP12 HULP13 HULP14 HULP15 HULP16 HULP17 HULP18 HULP19 HULP20; by ID; proc corr data = DATA5 noprint outp = RESULT NOMISS; var HARD_CO_L_POST HARD_CO_L_PRE HARD_CO_L_RATIO HARD_CO_R_POST HARD_CO_R_PRE HARD_CO_R_RATIO HARD_GO_L_POST HARD_GO_L_PRE HARD_GO_L_RATIO HARD_GO_R_POST HARD_GO_R_PRE HARD_GO_R_RATIO HARD_MEN_POST HARD_MEN_PRE HARD_MEN_RATIO HARD_OR_L_POST HARD_OR_L_PRE HARD_OR_L_RATIO HARD_OR_R_POST HARD_OR_R_PRE HARD_OR_R_RATIO HARD_POG_POST HARD_POG_PRE HARD_POG_RATIO HARD_ZY_L_POST HARD_ZY_L_PRE HARD_ZY_L_RATIO HARD_ZY_R_POST HARD_ZY_R_PRE HARD_ZY_R_RATIO ZACHT_GN_POST ZACHT_GN_PRE ZACHT_GN_RATIO ZACHT_GO_L_POST ZACHT_GO_L_PRE ZACHT_GO_L_RATIO ZACHT_GO_R_POST ZACHT_GO_R_PRE ZACHT_GO_R_RATIO ZACHT_OR_L_POST ZACHT_OR_L_PRE ZACHT_OR_L_RATIO ZACHT_OR_R_POST ZACHT_OR_R_PRE ZACHT_OR_R_RATIO ZACHT_PG_POST ZACHT_PG_PRE ZACHT_PG_RATIO ZACHT_PO_L_POST ZACHT_PO_L_PRE ZACHT_PO_L_RATIO ZACHT_PO_R_POST ZACHT_PO_R_PRE ZACHT_PO_R_RATIO ZACHT_ZY_L_POST ZACHT_ZY_L_PRE ZACHT_ZY_L_RATIO ZACHT_ZY_R_POST ZACHT_ZY_R_PRE ZACHT_ZY_R_RATIO ; data RESULT3; set RESULT; if _TYPE_ ^= 'CORR' then delete; drop _TYPE_; proc print data = RESULT3; title 'CORRELATIE ZACHT VS HARD'; 15

un; /* CORRELATIE ZACHT MET 2DMAPPING */ data DATAZACHT; set DATA; ZACHT_PRE = MEAN1; ZACHT_POST = MEAN2; ZACHT_RATIO = MEAN1 / MEAN2; if METING in ("soft tissue go(r)" "ex(l)" "nb(l)" "soft tissue po(r)" "soft tissue go(l)" "soft tissue or(r)" "ss" "soft tissue or(l)" "ls" "soft tissue po(l)" "os(r)" "st(u)" "os(l)" "st(i)" "li" "prn" "sl" "sn" "pg" "sn`(r)" "soft tissue gn" "sn`(l)" "soft tissue zy(r)" "al(r)" "g" "soft tissue zy(l)" "al(l)" "soft tissue n" "t(r)" "ac(r)" "sellion" "t(l)" "ac(l)" "mf(r)" "nt(r)" "mf(l)" "cph(r)" "nt(l)" "en(r)" "cph(l)" "en(l)" "c''" "ch(r)" "ex(r)" "nb(r)" "ch(l)") and (WEEFSEL = 'ZACHT') then output; drop M11 M12 M13 M21 M22 M23 OPTYPE WEEFSEL MEAN1 MEAN2; data DATA2DMAPPING; set DATA; MAPPING2D_PRE = MEAN1; MAPPING2D_POST = MEAN2; MAPPING2D_RATIO = MEAN1 / MEAN2; if METING in ("soft tissue go(r)" "ex(l)" "nb(l)" "soft tissue po(r)" "soft tissue go(l)" "soft tissue or(r)" "ss" "soft tissue or(l)" "ls" "soft tissue po(l)" "os(r)" "st(u)" "os(l)" "st(i)" "li" "prn" "sl" "sn" "pg" "sn`(r)" "soft tissue gn" "sn`(l)" "soft tissue zy(r)" "al(r)" "g" "soft tissue zy(l)" "al(l)" "soft tissue n" "t(r)" "ac(r)" "sellion" "t(l)" "ac(l)" "mf(r)" "nt(r)" "mf(l)" "cph(r)" "nt(l)" "en(r)" "cph(l)" "en(l)" "c''" "ch(r)" "ex(r)" "nb(r)" "ch(l)") and (WEEFSEL = '2Dmapping') then output; drop M11 M12 M13 M21 M22 M23 OPTYPE WEEFSEL MEAN1 MEAN2; proc sort data = DATAZACHT; by ID METING PROJECTION; proc sort data = DATA2DMAPPING; by ID METING PROJECTION; data DATA6; merge DATAZACHT DATA2DMAPPING; by ID METING PROJECTION; proc sort data = DATA6; by METING PROJECTION; proc corr data = DATA6 noprint outp = RESULT NOMISS; var ZACHT_PRE ZACHT_POST ZACHT_RATIO MAPPING2D_PRE MAPPING2D_POST MAPPING2D_RATIO; by METING PROJECTION; data RESULT4; set RESULT; if _TYPE_ ^= 'CORR' then delete; drop _TYPE_; proc print data = RESULT4; title 'CORRELATIE ZACHT VS 2DMAPPING'; run; 16

un;<br />

/* CORRELATIE ZACHT MET 2DMAPPING */<br />

data DATAZACHT;<br />

set DATA;<br />

ZACHT_PRE = MEAN1;<br />

ZACHT_POST = MEAN2;<br />

ZACHT_RATIO = MEAN1 / MEAN2;<br />

if METING in ("soft tissue go(r)" "ex(l)" "nb(l)" "soft tissue po(r)" "soft tissue go(l)" "soft tissue or(r)" "ss" "soft tissue or(l)" "ls"<br />

"soft tissue po(l)" "os(r)" "st(u)" "os(l)" "st(i)" "li" "prn" "sl" "sn" "pg" "sn`(r)" "soft tissue gn" "sn`(l)" "soft tissue zy(r)" "al(r)"<br />

"g" "soft tissue zy(l)" "al(l)" "soft tissue n" "t(r)" "ac(r)" "sellion" "t(l)" "ac(l)" "mf(r)" "nt(r)" "mf(l)" "cph(r)" "nt(l)" "en(r)"<br />

"cph(l)" "en(l)" "c''" "ch(r)" "ex(r)" "nb(r)" "ch(l)") and (WEEFSEL = 'ZACHT') then output;<br />

drop M11 M12 M13 M21 M22 M23 OPTYPE WEEFSEL MEAN1 MEAN2;<br />

data DATA2DMAPPING;<br />

set DATA;<br />

MAPPING2D_PRE = MEAN1;<br />

MAPPING2D_POST = MEAN2;<br />

MAPPING2D_RATIO = MEAN1 / MEAN2;<br />

if METING in ("soft tissue go(r)" "ex(l)" "nb(l)" "soft tissue po(r)" "soft tissue go(l)" "soft tissue or(r)" "ss" "soft tissue or(l)" "ls"<br />

"soft tissue po(l)" "os(r)" "st(u)" "os(l)" "st(i)" "li" "prn" "sl" "sn" "pg" "sn`(r)" "soft tissue gn" "sn`(l)" "soft tissue zy(r)" "al(r)"<br />

"g" "soft tissue zy(l)" "al(l)" "soft tissue n" "t(r)" "ac(r)" "sellion" "t(l)" "ac(l)" "mf(r)" "nt(r)" "mf(l)" "cph(r)" "nt(l)" "en(r)"<br />

"cph(l)" "en(l)" "c''" "ch(r)" "ex(r)" "nb(r)" "ch(l)") and (WEEFSEL = '2Dmapping') then output;<br />

drop M11 M12 M13 M21 M22 M23 OPTYPE WEEFSEL MEAN1 MEAN2;<br />

proc sort data = DATAZACHT;<br />

by ID METING PROJECTION;<br />

proc sort data = DATA2DMAPPING;<br />

by ID METING PROJECTION;<br />

data DATA6;<br />

merge DATAZACHT DATA2DMAPPING;<br />

by ID METING PROJECTION;<br />

proc sort data = DATA6;<br />

by METING PROJECTION;<br />

proc corr data = DATA6 noprint outp = RESULT NOMISS;<br />

var ZACHT_PRE ZACHT_POST ZACHT_RATIO MAPPING2D_PRE MAPPING2D_POST MAPPING2D_RATIO;<br />

by METING PROJECTION;<br />

data RESULT4;<br />

set RESULT;<br />

if _TYPE_ ^= 'CORR' then delete;<br />

drop _TYPE_;<br />

proc print data = RESULT4;<br />

title 'CORRELATIE ZACHT VS 2DMAPPING';<br />

run;<br />

16

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!