{"id":2464,"date":"2009-11-07T15:38:56","date_gmt":"2009-11-07T06:38:56","guid":{"rendered":"http:\/\/katukawa.com\/?p=2464"},"modified":"2009-11-07T15:38:56","modified_gmt":"2009-11-07T06:38:56","slug":"r-de-pva","status":"publish","type":"post","link":"https:\/\/katukawa.com\/?p=2464","title":{"rendered":"R de PVA"},"content":{"rendered":"

\u7a81\u7136\u3067\u3059\u304c\u3001\u30d5\u30ea\u30fc\u30bd\u30d5\u30c8\u306eR\u3092\u4f7f\u3044\u306f\u3058\u3081\u307e\u3057\u305f\u3002<\/p>\n

\u4e09\u91cd\u5927\u306b\u6765\u3066\u304b\u3089\u3001\u8ca7\u4e4f\u3067mathematica\u304c\u8cb7\u3048\u306a\u3044\u306e\u3067\u3059\u3002\u304a\u308d\u308d\u30fc\u3093 \ud83d\ude25<\/p>\n

\u5148\u65e5\u306e\u30bc\u30df\u3067\u3001\u4e09\u91cd\u306e\u305f\u3081\u6c60\u304c\u6e1b\u3063\u3066\u308b\u3093\u3060\u3088\u3068\u3044\u3046\u8a71\u304c\u3067\u305f\u3002\u3069\u3046\u3084\u3089\u3001\u65b0\u3057\u3044\u305f\u3081\u6c60\u304c\u3067\u304d\u308b\u3053\u3068\u306f\u3001\u307e\u305a\u3042\u308a\u5f97\u306a\u3044\u4e2d\u3067\u65e2\u5b58\u306e\u305f\u3081\u6c60\u304c\u6e1b\u5c11\u4e2d\u3068\u306e\u3053\u3068\u3002\u5e0c\u5c11\u7a2e\u3088\u308a\u3082\u5148\u306b\u305f\u3081\u6c60\u304c\u7121\u304f\u306a\u308b\u3093\u3058\u3083\u306a\u3044\u304b\u3068\u304a\u3082\u3044\u3001\uff32\u3067\u305f\u3081\u6c60\u306e\u7d76\u6ec5\u5f85\u3061\u6642\u9593\u3092\u8a08\u7b97\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u30bc\u30df\u306e\u6642\u9593\u306b\u4f5c\u3063\u3066\u307f\u305f\u3002<\/p>\n

\n

sim<-function(x,y,r){<\/p>\n

out<-array(NaN,x)<\/p>\n

for(j in 1:x){
\n dat<-array(NaN,100)
\n dat[1]=y
\n for(i in 1:99){dat[i+1]=rbinom(1,dat[i],r)}
\n out[j]<-length(dat[dat >0])
\n }
\n out
\n }<\/p>\n<\/blockquote>\n

\u4f7f\u3044\u65b9\u306f\u3001sim(\u7e70\u308a\u8fd4\u3057\u56de\u6570\u3001\u521d\u671f\u305f\u3081\u6c60\u6570\u3001\u6e1b\u5c11\u7387\uff09\u3068\u306a\u308b\u3002<\/p>\n

\u6bce\u5e74\u3001\u73fe\u5728\u306e\u305f\u3081\u6c60\u304c\uff15\uff10\u500b\u3067\u3001\u6bce\u5e7410\uff05\u6e1b\u3063\u3066\u3044\u308b\u72b6\u6cc1\u3067\uff11\uff10\uff10\u56de\u306e\u7e70\u308a\u8fd4\u3057\u3092\u3059\u308b\u306a\u3089\u3001sim(100,50,0.9)\u3068\u5165\u529b\u3059\u308c\u3070\u3088\u3044\u3002\u30d2\u30b9\u30c8\u30b0\u30e9\u30e0\u3092\u66f8\u304d\u305f\u3044\u3068\u304d\u306f\u3001hist(sim(100,50,0.9))\u3067\uff2f\uff2b\u3060\u3002<\/p>\n

\"img09110702\"<\/a><\/p>\n

\u3053\u308c\u304c\u30d5\u30ea\u30fc\u3063\u3066\u3044\u3046\u306e\u306f\u3001\u826f\u3044\u6642\u4ee3\u306b\u306a\u3063\u305f\u3082\u3093\u3060\u3002\u304a\u3062\u3055\u3093\u306e\u82e5\u3044\u9803\u306f\u3001N-88 Basic\u3050\u3089\u3044\u3057\u304b\u9078\u629e\u80a2\u304c\u306a\u304f\u3066\u30fb\u30fb\u30fb\uff08\u4ee5\u4e0b\u3001\u5e74\u5bc4\u308a\u306e\u3069\u3046\u3067\u3082\u826f\u3044\u6614\u8a71\u304c\u7d9a\u304f\u306e\u3067\u7701\u7565\uff09<\/p>\n","protected":false},"excerpt":{"rendered":"

\u7a81\u7136\u3067\u3059\u304c\u3001\u30d5\u30ea\u30fc\u30bd\u30d5\u30c8\u306eR\u3092\u4f7f\u3044\u306f\u3058\u3081\u307e\u3057\u305f\u3002 \u4e09\u91cd\u5927\u306b\u6765\u3066\u304b\u3089\u3001\u8ca7\u4e4f\u3067mat … \u7d9a\u304d\u3092\u8aad\u3080 →<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[8],"tags":[],"class_list":["post-2464","post","type-post","status-publish","format-standard","hentry","category-8"],"yoast_head":"\nR de PVA - \u52dd\u5ddd\u4fca\u96c4\u516c\u5f0f\u30b5\u30a4\u30c8<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/katukawa.com\/?p=2464\" \/>\n<meta property=\"og:locale\" content=\"ja_JP\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"R de PVA - \u52dd\u5ddd\u4fca\u96c4\u516c\u5f0f\u30b5\u30a4\u30c8\" \/>\n<meta property=\"og:description\" content=\"\u7a81\u7136\u3067\u3059\u304c\u3001\u30d5\u30ea\u30fc\u30bd\u30d5\u30c8\u306eR\u3092\u4f7f\u3044\u306f\u3058\u3081\u307e\u3057\u305f\u3002 \u4e09\u91cd\u5927\u306b\u6765\u3066\u304b\u3089\u3001\u8ca7\u4e4f\u3067mat … \u7d9a\u304d\u3092\u8aad\u3080 →\" \/>\n<meta property=\"og:url\" content=\"https:\/\/katukawa.com\/?p=2464\" \/>\n<meta property=\"og:site_name\" content=\"\u52dd\u5ddd\u4fca\u96c4\u516c\u5f0f\u30b5\u30a4\u30c8\" \/>\n<meta property=\"article:published_time\" content=\"2009-11-07T06:38:56+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/katukawa.com\/wp-content\/uploads\/img09110702.png\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"\u57f7\u7b46\u8005\" \/>\n\t<meta name=\"twitter:data1\" content=\"\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/katukawa.com\\\/?p=2464#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/katukawa.com\\\/?p=2464\"},\"author\":{\"name\":\"\",\"@id\":\"\"},\"headline\":\"R de PVA\",\"datePublished\":\"2009-11-07T06:38:56+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/katukawa.com\\\/?p=2464\"},\"wordCount\":50,\"commentCount\":0,\"image\":{\"@id\":\"https:\\\/\\\/katukawa.com\\\/?p=2464#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/katukawa.com\\\/wp-content\\\/uploads\\\/img09110702.png\",\"articleSection\":[\"\u4ffa\u30e1\u30e2\"],\"inLanguage\":\"ja\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/katukawa.com\\\/?p=2464#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/katukawa.com\\\/?p=2464\",\"url\":\"https:\\\/\\\/katukawa.com\\\/?p=2464\",\"name\":\"R de PVA - \u52dd\u5ddd\u4fca\u96c4\u516c\u5f0f\u30b5\u30a4\u30c8\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/katukawa.com\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/katukawa.com\\\/?p=2464#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/katukawa.com\\\/?p=2464#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/katukawa.com\\\/wp-content\\\/uploads\\\/img09110702.png\",\"datePublished\":\"2009-11-07T06:38:56+00:00\",\"author\":{\"@id\":\"\"},\"breadcrumb\":{\"@id\":\"https:\\\/\\\/katukawa.com\\\/?p=2464#breadcrumb\"},\"inLanguage\":\"ja\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/katukawa.com\\\/?p=2464\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"ja\",\"@id\":\"https:\\\/\\\/katukawa.com\\\/?p=2464#primaryimage\",\"url\":\"http:\\\/\\\/katukawa.com\\\/wp-content\\\/uploads\\\/img09110702.png\",\"contentUrl\":\"http:\\\/\\\/katukawa.com\\\/wp-content\\\/uploads\\\/img09110702.png\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/katukawa.com\\\/?p=2464#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"\u30db\u30fc\u30e0\",\"item\":\"https:\\\/\\\/katukawa.com\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"R de PVA\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/katukawa.com\\\/#website\",\"url\":\"https:\\\/\\\/katukawa.com\\\/\",\"name\":\"\u52dd\u5ddd\u4fca\u96c4\u516c\u5f0f\u30b5\u30a4\u30c8\",\"description\":\"\u6c17\u304c\u5411\u3044\u305f\u3068\u304d\u306b\u66f4\u65b0\u3059\u308b\u3088\uff01\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/katukawa.com\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"ja\"},{\"@type\":\"Person\",\"@id\":\"\",\"url\":\"https:\\\/\\\/katukawa.com\\\/?author=2\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"R de PVA - \u52dd\u5ddd\u4fca\u96c4\u516c\u5f0f\u30b5\u30a4\u30c8","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/katukawa.com\/?p=2464","og_locale":"ja_JP","og_type":"article","og_title":"R de PVA - \u52dd\u5ddd\u4fca\u96c4\u516c\u5f0f\u30b5\u30a4\u30c8","og_description":"\u7a81\u7136\u3067\u3059\u304c\u3001\u30d5\u30ea\u30fc\u30bd\u30d5\u30c8\u306eR\u3092\u4f7f\u3044\u306f\u3058\u3081\u307e\u3057\u305f\u3002 \u4e09\u91cd\u5927\u306b\u6765\u3066\u304b\u3089\u3001\u8ca7\u4e4f\u3067mat … \u7d9a\u304d\u3092\u8aad\u3080 →","og_url":"https:\/\/katukawa.com\/?p=2464","og_site_name":"\u52dd\u5ddd\u4fca\u96c4\u516c\u5f0f\u30b5\u30a4\u30c8","article_published_time":"2009-11-07T06:38:56+00:00","og_image":[{"url":"http:\/\/katukawa.com\/wp-content\/uploads\/img09110702.png","type":"","width":"","height":""}],"twitter_card":"summary_large_image","twitter_misc":{"\u57f7\u7b46\u8005":""},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/katukawa.com\/?p=2464#article","isPartOf":{"@id":"https:\/\/katukawa.com\/?p=2464"},"author":{"name":"","@id":""},"headline":"R de PVA","datePublished":"2009-11-07T06:38:56+00:00","mainEntityOfPage":{"@id":"https:\/\/katukawa.com\/?p=2464"},"wordCount":50,"commentCount":0,"image":{"@id":"https:\/\/katukawa.com\/?p=2464#primaryimage"},"thumbnailUrl":"http:\/\/katukawa.com\/wp-content\/uploads\/img09110702.png","articleSection":["\u4ffa\u30e1\u30e2"],"inLanguage":"ja","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/katukawa.com\/?p=2464#respond"]}]},{"@type":"WebPage","@id":"https:\/\/katukawa.com\/?p=2464","url":"https:\/\/katukawa.com\/?p=2464","name":"R de PVA - \u52dd\u5ddd\u4fca\u96c4\u516c\u5f0f\u30b5\u30a4\u30c8","isPartOf":{"@id":"https:\/\/katukawa.com\/#website"},"primaryImageOfPage":{"@id":"https:\/\/katukawa.com\/?p=2464#primaryimage"},"image":{"@id":"https:\/\/katukawa.com\/?p=2464#primaryimage"},"thumbnailUrl":"http:\/\/katukawa.com\/wp-content\/uploads\/img09110702.png","datePublished":"2009-11-07T06:38:56+00:00","author":{"@id":""},"breadcrumb":{"@id":"https:\/\/katukawa.com\/?p=2464#breadcrumb"},"inLanguage":"ja","potentialAction":[{"@type":"ReadAction","target":["https:\/\/katukawa.com\/?p=2464"]}]},{"@type":"ImageObject","inLanguage":"ja","@id":"https:\/\/katukawa.com\/?p=2464#primaryimage","url":"http:\/\/katukawa.com\/wp-content\/uploads\/img09110702.png","contentUrl":"http:\/\/katukawa.com\/wp-content\/uploads\/img09110702.png"},{"@type":"BreadcrumbList","@id":"https:\/\/katukawa.com\/?p=2464#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"\u30db\u30fc\u30e0","item":"https:\/\/katukawa.com\/"},{"@type":"ListItem","position":2,"name":"R de PVA"}]},{"@type":"WebSite","@id":"https:\/\/katukawa.com\/#website","url":"https:\/\/katukawa.com\/","name":"\u52dd\u5ddd\u4fca\u96c4\u516c\u5f0f\u30b5\u30a4\u30c8","description":"\u6c17\u304c\u5411\u3044\u305f\u3068\u304d\u306b\u66f4\u65b0\u3059\u308b\u3088\uff01","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/katukawa.com\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"ja"},{"@type":"Person","@id":"","url":"https:\/\/katukawa.com\/?author=2"}]}},"_links":{"self":[{"href":"https:\/\/katukawa.com\/index.php?rest_route=\/wp\/v2\/posts\/2464","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/katukawa.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/katukawa.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/katukawa.com\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/katukawa.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2464"}],"version-history":[{"count":0,"href":"https:\/\/katukawa.com\/index.php?rest_route=\/wp\/v2\/posts\/2464\/revisions"}],"wp:attachment":[{"href":"https:\/\/katukawa.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2464"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/katukawa.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2464"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/katukawa.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2464"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}