2009-11-19から1日間の記事一覧

簡単にシミュレーション

周辺度数を与えて、ランダムに2x3表を作る sample2x3<-function(m1=c(100,200),m2=c(50,100,150),n=1){ #出力用の行列を用意する answer<-matrix(rep(0,n*6),nrow=n) sum<-sum(m1) # 第1群と第2群の人数和を出す m1m2<-m2[1]+m2[2] # 1から総人数のシ…