ryamada22 https://blog.hatena.ne.jp/ryamada22/ ryamadaの遺伝学・遺伝統計学メモ https://ryamada22.hatenablog.jp/ R k<-50 Ns<-10000 a<-array(0,c(Ns,2,k)) f<-runif(k) for(i in 1:k){ a[,,i]<-sample(0:1,Ns*2,replace=TRUE,prob=c(f[i],1-f[i])) } d<-a[,1,]+a[,2,] d<-apply(d,1,cumsum) counter<-10*k+1 for(i in 1:k){ for(j in 1:10){ lab=paste("No. markers = ",i,sep="") filename=paste("test",counter,".png",sep="") counter<… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada22.hatenablog.jp%2Fentry%2F20110104%2F1294123626" title="複数座位の線形和効果 - ryamadaの遺伝学・遺伝統計学メモ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2011-01-04 15:47:06 rich https://ryamada22.hatenablog.jp/entry/20110104/1294123626 1.0 100%