もともとネットで落ちていたものを少しいじった． さいころの出た目に関して． サンプル数１から100まで増やした場合を分けてやってみた >N=1 > M=2000 > data<-sample(1:6,N*M,replace=TRUE) > data.mat<-matrix(data,ncol=N) > sample.mean<-apply(data.ma…

http://www.slideshare.net/m884/japan-r-15432969 http://matome.naver.jp/odai/2135003580165010301