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