{"published":"2013-03-20 19:03:23","width":"100%","categories":["\u5206\u5272\u8868","R","relist","\u6c7a\u65ad"],"author_name":"ryamada22","url":"https://ryamada22.hatenablog.jp/entry/20130320/1363773803","type":"rich","description":"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\u2026","title":"\u30e1\u30e2","provider_url":"https://hatena.blog","version":"1.0","blog_title":"ryamada\u306e\u907a\u4f1d\u5b66\u30fb\u907a\u4f1d\u7d71\u8a08\u5b66\u30e1\u30e2","author_url":"https://blog.hatena.ne.jp/ryamada22/","blog_url":"https://ryamada22.hatenablog.jp/","height":"190","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada22.hatenablog.jp%2Fentry%2F20130320%2F1363773803\" title=\"\u30e1\u30e2 - ryamada\u306e\u907a\u4f1d\u5b66\u30fb\u907a\u4f1d\u7d71\u8a08\u5b66\u30e1\u30e2\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","image_url":null,"provider_name":"Hatena Blog"}