2011-04-23から1日間の記事一覧

P値について一緒に考える

こちら 子供の性別 男女 0.5,0.5 # 子供の性別 Nc<-1:10 Niter<-1000 MF<-c("男","女") D<-NULL for(i in 1:length(Nc)){ D[[i]]<-matrix(sample(MF,Nc[i]*Niter,replace=TRUE),nrow=Niter) } print(D[[3]][1:10,]) > print(D[[3]][1:10,]) [,1] [,2] [,3] […