{"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada22.hatenablog.jp%2Fentry%2F20110104%2F1294123626\" title=\"\u8907\u6570\u5ea7\u4f4d\u306e\u7dda\u5f62\u548c\u52b9\u679c - 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>","published":"2011-01-04 15:47:06","description":"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<\u2026","height":"190","categories":["R"],"author_name":"ryamada22","provider_url":"https://hatena.blog","type":"rich","blog_title":"ryamada\u306e\u907a\u4f1d\u5b66\u30fb\u907a\u4f1d\u7d71\u8a08\u5b66\u30e1\u30e2","url":"https://ryamada22.hatenablog.jp/entry/20110104/1294123626","version":"1.0","author_url":"https://blog.hatena.ne.jp/ryamada22/","title":"\u8907\u6570\u5ea7\u4f4d\u306e\u7dda\u5f62\u548c\u52b9\u679c","image_url":null,"blog_url":"https://ryamada22.hatenablog.jp/","width":"100%","provider_name":"Hatena Blog"}