libname decode  "/folders/myfolders/sas-quel-plaisir/source/format";    /* endroit où se trouvent le catalogue de formats */

libname source  "/folders/myfolders/sas-quel-plaisir/source";    /* endroit où se trouvent tous les datasets sources */

options fmtsearch=( decode   SOURCE  WORK);

options ls=256;

/* Question 1 */

/*
proc sort data=source.mmse_result out=mmse_sorted;
by usubjid visdesc;
run;

proc transpose data=mmse_sorted out=mmse_score;
VAR mmses1  mmses2  mmses3  mmses5
    mmses6  mmses7  mmses8  mmses9
    mmses10 mmses11 mmses12;
BY usubjid visdesc;
RUN;


data mmse_score;
set mmse_score;
rename COL1=Score;
run;

proc transpose data=mmse_sorted out=mmse_question;
var mmsed1  mmsed2  mmsed3  mmsed5
    mmsed6  mmsed7  mmsed8  mmsed9
    mmsed10 mmsed11 mmsed12;

BY usubjid visdesc;
RUN;


data MMSE_P_VQS;
merge mmse_question  mmse_score ;
by usubjid visdesc;
drop _LABEL_ _NAME_ ;
rename COL1=Label_de_la_question USUBJID=Patient visdesc=Visite;
run;*/
/*
proc print data=MMSE_P_VQS;
run;*/


/*Question 2 */


proc sort data=source.mmse_result out=mmse_sorted;
by usubjid visdesc;
run;

proc transpose data=mmse_sorted out=mmse_score;
VAR mmses1  mmses2  mmses3  mmses5
    mmses6  mmses7  mmses8  mmses9
    mmses10 mmses11 mmses12;
BY usubjid visdesc;
RUN;


data mmse_score;
set mmse_score;
rename COL1=Score;
run;

proc transpose data=mmse_sorted out=mmse_question;
var mmsed1  mmsed2  mmsed3  mmsed5
    mmsed6  mmsed7  mmsed8  mmsed9
    mmsed10 mmsed11 mmsed12;

BY usubjid visdesc;
RUN;


data MMSE_P_VQS;
merge mmse_question  mmse_score ;
by usubjid visdesc;
drop _LABEL_ _NAME_ ;
rename COL1=Label_de_la_question USUBJID=Patient visdesc=Visite;
run;
/*
proc print data=MMSE_P_VQS;
run;