{"version":"1.0","categories":["R","animation","R","animation"],"blog_url":"https://ryamada.hatenadiary.jp/","width":"100%","provider_name":"Hatena Blog","published":"2014-09-18 16:43:26","height":"190","title":"","author_url":"https://blog.hatena.ne.jp/ryamada/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada.hatenadiary.jp%2Fentry%2F20140918%2F1410939806\" title=\" - ryamada\u306e\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u30fb\u6570\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_url":"https://hatena.blog","author_name":"ryamada","description":"\u4f5c\u6210\u4f8b\u3002R\u3092\u4f7f\u3044\u59cb\u3081\u3066\uff11\uff11\u65e5\u76ee n.t <- 6 # No. times k <- 3 # \u866b\u306e\u7a2e\u985e\u6570 n.init <- rep(1,k) # \u521d\u671f\u306e\u866b\u306e\u6570 Loc.hx <- list() # \u4f4d\u7f6e\u306e\u5c65\u6b74\u683c\u7d0d Stat.hx <- list() # \u866b\u306e\u72b6\u614b\u306e\u683c\u7d0d S<-list() L<-list() S[[1]]<-list() L[[1]]<-list() #\u521d\u671f\u5024\u306e\u8a2d\u5b9a(t=1(\u521d\u671f)\u3067\u306e\u7a2e\u985e\u3054\u3068\u306e\u5024) for(i in 1:k){ S[[1]][[i]]<-rep(1,5) L[[1]][[i]]<-matrix(0,5,2) } ########################\u2026","type":"rich","image_url":null,"url":"https://ryamada.hatenadiary.jp/entry/20140918/1410939806","blog_title":"ryamada\u306e\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u30fb\u6570\u5b66\u30e1\u30e2"}