{"provider_name":"Hatena Blog","url":"https://ryamada.hatenadiary.jp/entry/20101112/1289466179","published":"2010-11-12 18:02:59","author_url":"https://blog.hatena.ne.jp/ryamada/","categories":["R","\u30d2\u30b9\u30c8\u30b0\u30e9\u30e0"],"height":"190","version":"1.0","title":"\u30d5\u30a1\u30af\u30bf\u30fc\u306e\u4e0d\u63c3\u3044","blog_title":"ryamada\u306e\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u30fb\u6570\u5b66\u30e1\u30e2","author_name":"ryamada","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryamada.hatenadiary.jp%2Fentry%2F20101112%2F1289466179\" title=\"\u30d5\u30a1\u30af\u30bf\u30fc\u306e\u4e0d\u63c3\u3044 - 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>","type":"rich","width":"100%","blog_url":"https://ryamada.hatenadiary.jp/","image_url":"http://www.genome.med.kyoto-u.ac.jp/StatGenet/lectures/2010/x.jpeg","provider_url":"https://hatena.blog","description":"\u672c\u65e5\u306e\u7b2c\uff11\u8a18\u4e8b\u306e\u7d9a\u304d\u3053\u3061\u3089\u306e\u8a18\u4e8b\u3067\u3002 \uff19\u4eba\u306e\u30e1\u30f3\u30d0\u30fc\u306b\u6975\u7aef\u306a\u4e0d\u63c3\u3044\u3092\u5165\u308c\u308b \u305f\u3060\u3072\u3068\u308a\u306f\u3001\u7d50\u679c(\u5f97\u70b9)\u3078\u306e\u5bc4\u4e0e\u304c\u3082\u306e\u3059\u3054\u304f\u5927\u304d\u3044)\u3088\u3046\u306a\u4e0d\u63c3\u3044 \u305d\u3046\u3059\u308b\u3068\u3001\u305d\u306e\u4eba\u304c\u5bc4\u4e0e\u3059\u308b\u6a5f\u4f1a\u306e\u591a\u5be1\u3001\u305d\u306e\u4eba\u306e\u5bc4\u4e0e\u304c\u5927\u304d\u304f\u306a\u308b\u304b\u5c0f\u3055\u304f\u306a\u308b\u304b\u3067\u3001\u7d50\u679c(\u5f97\u70b9)\u5206\u5e03\u304c\u5909\u308f\u3063\u3066\u304f\u308b\u3053\u3068\u304c\u4e88\u60f3\u3055\u308c\u308b \u30e1\u30f3\u30d0\u30fc\uff19\u4eba\u3067\u3001\u30a2\u30a6\u30c8\u6570\uff19\u306a\u3089\u3001\u300c\u5fc5\u305a\u5168\u30a4\u30cb\u30f3\u30b0\u3067\u300e\u3059\u3054\u3044\u4eba\u300f\u306b\u30c1\u30e3\u30f3\u30b9\u304c\u56de\u3063\u3066\u304f\u308b\u300d\u3068\u304b Ninning<-2 Nbase<-10 batter<-matrix(c(0.4,0.3,0.0,0.0,0.3),9,5,byrow=T) batter[9,]<-c(0,0,0,0,1) #out.count<-4 trials\u2026"}