{"description":"n <- 1000 # \u30e9\u30f3\u30c0\u30e0\u306b\u8131\u843d\u3059\u308b prob <- c(0.5,0.5) censor <- sample(0:1,n,replace=TRUE,prob=prob) # \u6307\u6570\u4e71\u6570\u3067\u6b7b\u4ea1\u6642\u523b\u304c\u6c7a\u307e\u308b #times <- cumsum(rexp(n)) times <- sort(rexp(n)) x <- ((n-1):0)/(n:1) v <- rep(1,length(x)) v[which(censor == 1)] <- x[which(censor ==1)] #par(mfcol = c(1,2)) #plot(times,cumprod(v),type=\"s\",ylim \u2026","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/r/ryamada22/20140304/20140304122243.jpg","categories":["\u751f\u5b58\u89e3\u6790","R"],"height":"190","width":"100%","provider_url":"https://hatena.blog","blog_url":"https://ryamada22.hatenablog.jp/","author_name":"ryamada22","blog_title":"ryamada\u306e\u907a\u4f1d\u5b66\u30fb\u907a\u4f1d\u7d71\u8a08\u5b66\u30e1\u30e2","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada22.hatenablog.jp%2Fentry%2F20140304%2F1393903280\" title=\"\u30a4\u30d9\u30f3\u30c8\u96c6\u7a4d\u306b\u95a2\u3059\u308b\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>","provider_name":"Hatena Blog","author_url":"https://blog.hatena.ne.jp/ryamada22/","url":"https://ryamada22.hatenablog.jp/entry/20140304/1393903280","version":"1.0","type":"rich","title":"\u30a4\u30d9\u30f3\u30c8\u96c6\u7a4d\u306b\u95a2\u3059\u308b\u30e1\u30e2","published":"2014-03-04 12:21:20"}