/*------------------------------------------------

単純無作為抽出のプログラム

前期課題のために母集団ｘ（1998年健診の受診者全員）
からn = 50 の標本を無作為抽出したプログラムの中で
単純無作為抽出をしている部分．
データセット allcode には受講生の学生番号 num
があり，これが一様乱数関数 ranuniのシード値
に使われている．
ｋは母集団のサイズnobsより小さな一様乱数（整数）

------------------------------------------------*/

data samp ;
    set allcode ;
    do n = 1 to 50 ;
        k = ceil( ranuni( num ) * nobs ) ;
        set x nobs = nobs point = k ;
        ran_num = k ;
        output ;
    end ;
run ;