お手軽にデータサンプリングを行う． 読み込んだデータ(m行n列)から，50行だけサンプルする． > set.seed(1) > conjunction <- read.table("ave_c++.txt",header=T) > n_con <- sample(nrow(conjunction),50) > write.table(conjunction[n_con,],file="sampl…