AWK で Reservoir Sampling; テキストからランダムに少数の行を抽出

R による溜池サンプリング(Reservoir Sampling)の実験 - 廿TT を踏まえて, AWK でテキストファイルからランダムに1000行非復元抽出するコードを書きました.テスト用のデータをRで生成します. set.seed(1) rmixnorm3 <- function(n) { n1 <- round(n*0.5) n2 <- round(n*0.2) n3 <-n-(n1+n2) c( rnorm(n1,-3), rnorm(n2,3…