SAS cording template

 
【SAS cording template】
*---個人的なコーディングアルゴリズム---- ;
libname IN "a" ;
libname OUT "b" ;
/*IN*/
*-データの読み込み ;
proc sort data=IN.SUBJECT ; by SUBJECT ; run ;
proc sort data=IN.DM ; by SUBJECT ; run ;
 
/*BASE*/
*-データセットの結合 ;
data BASE ;
 merge SUBJECT DM ;
 by SUBJECT ;
run ;
 
/*STAT*/
*-解析 ;
proc means data=BASE ;
 var AGE ;
 out output=STAT N=N MEAN=MEAN MAX=MAX MEDIAN=MEDIAN MIN=MIN ;
run ;
 
proc trancepose data=STAT out=STAT_T ; run ;
 
/*MAIN*/
*-データ処理 ;
data MAIN ;
 set STAT_T ;
 NO=_N_ ;
 if _NAME_ ne "N" then _COL=compress(put(round(COL,.1),5.2)) ;
 else _COL=COL ;
run ;
 
/*OUT*/
*-出力 ;
data OUT ;
 set MAIN ;
 label _NAME_="項目名" ;
       _COL="値" ;
 ;
 keep NO _NAME_ _COL ;
run ;
 
proc sort data=OUT out=OUT.S0100 ; by NO ; run ;
 
 
inserted by FC2 system