cϽ 1""2"2""2"22""SAS FILESASMACR CATALOG /ݼɈA/ݼɈA @ @9.0101M3XP_PRO/ݼcccUjp/ݼɈAUjp%|G#9\gA9\gAF123nt+(G$9\gA9\gAF124n,*J ;9\gA;9\gAE66ont+,G'9\gA9\gAF$#128n0.G!9\gA9\gAF 121nt+0J;9\gA9\gAM205n4GD;9\gA;9\gAE108n5E ;9\gA;9\gA2SYSRESR PGBITMAPXMACRO DISCRETISATION,UjpXLCH(XLSRɈAɈA  XLSR/ʈA/ʈA  F  XLSR ʈA ʈA F  XLSR/|ʈA/|ʈA;  F  205n@!GD;9\gA;9\gAE108nE ;9\gA;9\gA2IconUjpjjUjp"tDISCRETISATION^D9.1  h|>"0FICHIER"0TARGET"0LISTVAR"0FEUILLE"0PREFIX"0 BIBFORMAT"&SYSDATE = 2006"N" 1"  VAR;"VAR"& %scan(&listvar,&n, )"XL data &fichier._discret; set &fichier (KEEP = cle &target &listvar); run;"&var^=" %treedisc( data=&fichier, depvar=&target, ordinal=&var, outtree=trd, leaf=&feuille, maxdepth=1, options=noformat, trace=none); %treedisc( intree=trd, code='arbre.code'); DATA _NULL_ ; SET trd ; CALL SYMPUT("nb",_N_) ; RUN ;"&nb > 2" data &fichier._discret ; set &fichier._discret ; %inc 'arbre.code'; &prefix&var = node_ ; run; PROC FREQ ; tables &var * &target ; PROC FREQ ; tables &var * &prefix&var / list out=toto ; PROC SORT DATA=toto ; BY" &prefix&var DESCENDING &var; RUN ; DATA toto2 (KEEP = etiq plage &prefix&var) ; SET toto ; BY &prefix&var ; RETAIN etiq ; LENGTH etiq $92 ; IF FIRST.&prefix&var THEN etiq = " "; etiq = COMPRESS(&var)!!" "!!etiq ; IF" LAST.&prefix&var THEN DO; IF LENGTH(etiq) > 1 THEN plage = COMPRESS(FIRST(etiq)!!" - "!!SUBSTR(etiq,LENGTH(etiq),1)) ; ELSE plage = COMPRESS(etiq) ; OUTPUT ; END ; RUN ; DATA toto3 ; SET" toto2 END=fin ; RETAIN etiq2 ; LENGTH etiq2 $92 ; etiq2 = " "!!COMPBL(plage)!!' = "'!!COMPBL(etiq)!!'"'!!COMPBL(etiq2) ; IF fin THEN OUTPUT ; RUN ; DATA _NULL_ ; SET toto3 ; CALL SYMPUT("format",etiq2) ; RUN ;"eY PROC FORMAT LIB=&bibformat ; VALUE &prefix&var._ &format ; RUN ;""N"  %eval(&n+1)"VAR"& %scan(&listvar,&n, )"""|#0` @Th,4LPX``  HPdUjp"tDISCRETISATION^D9.1  >"0FICHIER"0TARGET"0LISTVAR"0FEUILLE"0PREFIX"0 BIBFORMAT"N" 1"  VAR;"VAR"& %scan(&listvar,&n, )"XL data &fichier._discret; set &fichier (KEEP = cle &target &listvar); run;"&var^=" %treedisc( data=&fichier, depvar=&target, ordinal=&var, outtree=trd, leaf=&feuille, maxdepth=1, options=noformat, trace=none); %treedisc( intree=trd, code='arbre.code'); DATA _NULL_ ; SET trd ; CALL SYMPUT("nb",_N_) ; RUN ;"&nb > 2" data &fichier._discret ; set &fichier._discret ; %inc 'arbre.code'; &prefix&var = node_ ; run; PROC FREQ ; tables &var * &target ; PROC FREQ ; tables &var * &prefix&var / list out=toto ; PROC SORT DATA=toto ; BY" &prefix&var DESCENDING &var; RUN ; DATA toto2 (KEEP = etiq plage &prefix&var) ; SET toto ; BY &prefix&var ; RETAIN etiq ; LENGTH etiq $92 ; IF FIRST.&prefix&var THEN etiq = " "; etiq = COMPRESS(&var)!!" "!!etiq ; IF" LAST.&prefix&var THEN DO; IF LENGTH(etiq) > 1 THEN plage = COMPRESS(FIRST(etiq)!!" - "!!SUBSTR(etiq,LENGTH(etiq),1)) ; ELSE plage = COMPRESS(etiq) ; OUTPUT ; END ; RUN ; DATA toto3 ; SET" toto2 END=fin ; RETAIN etiq2 ; LENGTH etiq2 $92 ; etiq2 = " "!!COMPBL(plage)!!' = "'!!COMPBL(etiq)!!'"'!!COMPBL(etiq2) ; IF fin THEN OUTPUT ; RUN ; DATA _NULL_ ; SET toto3 ; CALL SYMPUT("format",etiq2) ; RUN ;"eY PROC FORMAT LIB=&bibformat ; VALUE &prefix&var._ &format ; RUN ;""N"  %eval(&n+1)"VAR"& %scan(&listvar,&n, )"" X`tUjp "tDISCRETISATION^D9.1  4t>"0FICHIER"0TARGET"0LISTVAR"0FEUILLE"0PREFIX"0 BIBFORMAT"N" 1"  VAR;"VAR"& %scan(&listvar,&n, )"XL data &fichier._discret; set &fichier (KEEP = cle &target &listvar); run;"&var^=" %treedisc( data=&fichier, depvar=&target, ordinal=&var, outtree=trd, leaf=&feuille, maxdepth=1, options=noformat, trace=none); %treedisc( intree=trd, code='arbre.code'); DATA _NULL_ ; SET trd ; CALL SYMPUT("nb",_N_) ; RUN ;"&nb > 2" data &fichier._discret ; set &fichier._discret ; %inc 'arbre.code'; &prefix&var = node_ ; run; PROC FREQ ; tables &var * &target ; PROC FREQ ; tables &var * &prefix&var / list out=toto ; PROC SORT DATA=toto ; BY" &prefix&var DESCENDING &var; RUN ; DATA toto2 (KEEP = etiq plage &prefix&var) ; SET toto ; BY &prefix&var ; RETAIN etiq ; LENGTH etiq $92 ; IF FIRST.&prefix&var THEN etiq = " "; etiq = COMPRESS(&var)!!" "!!etiq ; IF" LAST.&prefix&var THEN DO; IF LENGTH(etiq) > 1 THEN plage = COMPRESS(FIRST(etiq)!!" - "!!SUBSTR(etiq,LENGTH(etiq),1)) ; ELSE plage = COMPRESS(etiq) ; OUTPUT ; END ; RUN ; DATA toto3 ; SET" toto2 END=fin ; RETAIN etiq2 ; LENGTH etiq2 $92 ; etiq2 = " "!!COMPBL(plage)!!' = "'!!COMPBL(etiq)!!'"'!!COMPBL(etiq2) ; IF fin THEN OUTPUT ; RUN ; DATA _NULL_ ; SET toto3 ; CALL SYMPUT("format",etiq2) ; RUN ;"eY PROC FORMAT LIB=&bibformat ; VALUE &prefix&var._ &format ; RUN ;""N"  %eval(&n+1)"VAR"& %scan(&listvar,&n, )""t#0` 4H`t ,08@@(0