ryamada22 https://blog.hatena.ne.jp/ryamada22/ ryamadaの遺伝学・遺伝統計学メモ https://ryamada22.hatenablog.jp/ 分割表 R relist 決断 ps <- c(0.2,0.8) N <- 30 library(combinat) calc.survival.2 <- function(X){ ret <- 0 for(i in 1:length(X)){ tmp <- expand.grid(0:(length(X[[i]][,1])-1),0:(length(X[[i]][1,])-1)) tmp.2 <- apply(tmp,1,sum) ret <- ret + sum(tmp.2 * X[[i]]) } return(list(n=ret,f=ret/(length(X)-1))) } calc.survival.3 <- f… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada22.hatenablog.jp%2Fentry%2F20130320%2F1363773803" 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 2013-03-20 19:03:23 rich https://ryamada22.hatenablog.jp/entry/20130320/1363773803 1.0 100%