ryamada22 https://blog.hatena.ne.jp/ryamada22/ ryamadaの遺伝学・遺伝統計学メモ https://ryamada22.hatenablog.jp/ Multiplicative my.2x2.dev <- function(p,q,r){ #tmp <- r*sqrt(p*q*(1-p)*(1-q)) x <- c(p*q,p*(1-q),(1-p)*q,(1-p)*(1-q)) tmp <- r*min(x) matrix(x+c(tmp,-tmp,-tmp,tmp),byrow=TRUE,2,2) } my.2x2x2.dev <- function(p,q,r){ tmp <- r*sqrt(prod(p)*prod(q)*r) tmp1 <- outer(p[1,],q[1,],"*")/sum(p[1,]) tmp2 <- outer(p[2,],q[2,]… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada22.hatenablog.jp%2Fentry%2F20130123%2F1359088062" 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> https://cdn-ak.f.st-hatena.com/images/fotolife/r/ryamada22/20130125/20130125132820.jpg Hatena Blog https://hatena.blog 2013-01-23 13:27:42 rich https://ryamada22.hatenablog.jp/entry/20130123/1359088062 1.0 100%