■

お手軽にデータサンプリングを行う．
読み込んだデータ(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="sample50_conjunction.txt",row.names=FALSE,col.names=FALSE,quote=FALSE)

nrowとすることで，m行目を指定し，それを呼び出して出力している．
参考，というかそのまま．