{"id":113,"date":"2023-11-09T21:41:37","date_gmt":"2023-11-09T12:41:37","guid":{"rendered":"https:\/\/bunseki-data.com\/r-onlinecourse\/?p=113"},"modified":"2023-11-10T06:24:29","modified_gmt":"2023-11-09T21:24:29","slug":"%e7%a2%ba%e7%8e%87%e5%88%86%e5%b8%83%e3%81%ab%e3%81%a4%e3%81%84%e3%81%a61","status":"publish","type":"post","link":"https:\/\/bunseki-data.com\/r-onlinecourse\/2023\/11\/09\/%e7%a2%ba%e7%8e%87%e5%88%86%e5%b8%83%e3%81%ab%e3%81%a4%e3%81%84%e3%81%a61\/","title":{"rendered":"\u78ba\u7387\u5206\u5e03\u306b\u3064\u3044\u30661"},"content":{"rendered":"\n<ul class=\"wp-block-list\">\n<li>2023\/11~\u3000\u306bQuarto\u304b\u3089WordPress\u306b\u79fb\u884c\u3057\u307e\u3057\u305f\u3002\u3056\u3063\u3068\u4fee\u6b63\u3057\u3066\u3044\u307e\u3059\u304c\u3001\u4fee\u6b63\u3057\u304d\u308c\u3066\u3044\u306a\u3044\u8a18\u8ff0\u306a\u3069\u304c\u3042\u308c\u3070\u3001\u30b3\u30e1\u30f3\u30c8\u3067\u3054\u6307\u6458\u3044\u305f\u3060\u3051\u307e\u3059\u3068\u5b09\u3057\u304f\u601d\u3044\u307e\u3059\u3002<\/li>\n<\/ul>\n\n\n\n<h2 class=\"wp-block-heading\">\u78ba\u7387\u5206\u5e03<\/h2>\n\n\n\n<p>\u78ba\u7387\u5206\u5e03\u306f\u3001\u591a\u5206\u3001\u7d71\u8a08\u3092\u5b66\u3076\u306b\u3042\u305f\u3063\u3066\u56f0\u308b\u6700\u521d\u306e\u58c1\u3060\u3068\u601d\u3044\u307e\u3059\u3002\u3053\u3053\u3067\u306f\u3001\u30a4\u30e1\u30fc\u30b8\u3092\u3057\u3063\u304b\u308a\u3068\u6301\u3063\u3066\u3082\u3089\u3063\u305f\u3046\u3048\u3067\u3001\u4ee3\u8868\u7684\u306a\u78ba\u7387\u5206\u5e03\u3067\u3042\u308b\u6b63\u898f\u5206\u5e03\u306b\u3064\u3044\u3066\u8aac\u660e\u3057\u3066\u3042\u308a\u307e\u3059\u3002(\u5c1a\u3001\u30a4\u30e1\u30fc\u30b8\u306b\u3064\u3044\u3066\u306f\u3001\u304b\u3048\u3063\u3066\u8a33\u304c\u5206\u304b\u3089\u306a\u304f\u306a\u308b\u53ef\u80fd\u6027\u3082\u3042\u308a\u307e\u3059\u306e\u3067\u3001\u305d\u306e\u70b9\u3054\u4e86\u89e3\u3057\u3066\u304f\u3060\u3055\u308b\u3068\u5e78\u3044\u3067\u3059\u3002)<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">\u5148\u306b\u304a\u65ad\u308a<\/h2>\n\n\n\n<p>\u79c1\u81ea\u8eab\u306f\u7d71\u8a08\u5b66\u3092\u5927\u5b66\u3067\u5b66\u3093\u3067\u3044\u305f\u7b49\u306f\u300c\u307e\u3063\u305f\u304f\u3042\u308a\u307e\u305b\u3093\u300d\u3002<br>\u78ba\u5b9f\u306b\u5c02\u9580\u5bb6\u306e\u65b9\u304b\u3089\u304a\u3057\u304b\u308a\u3092\u53d7\u3051\u308b\u5185\u5bb9\u304c\u542b\u307e\u308c\u3066\u3044\u308b\u3068\u601d\u3063\u3066\u304a\u308a\u307e\u3059\u306e\u3067\u3001\u304f\u308c\u3050\u308c\u3082\u672c\u30d6\u30ed\u30b0\u306e\u60c5\u5831\u3092\u4e3b\u306b\u3059\u308b\u3053\u3068\u304c\u306a\u3044\u3088\u3046\u306b\u3001\u3088\u308d\u3057\u304f\u304a\u9858\u3044\u7533\u3057\u4e0a\u3052\u307e\u3059\u3002\uff08\u304d\u3061\u3093\u3068\u3057\u305f\u6210\u66f8\u3092\u53c2\u8003\u306b\u3057\u3066\u304f\u3060\u3055\u3044\u3002\uff09\u307e\u305f\u3001\u81f4\u547d\u7684\u306a\u9593\u9055\u3044\u7b49\u3092\u767a\u898b\u3055\u308c\u305f\u65b9\u306f\u304a\u6559\u3048\u3044\u305f\u3060\u3051\u308b\u3068\u5b09\u3057\u304f\u601d\u3044\u307e\u3059\u3002<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">\u72b6\u6cc1\u8a2d\u5b9a<\/h2>\n\n\n\n<p>\u7686\u3055\u3093\u306e\u624b\u5143\u306b\u30b5\u30a4\u30b3\u30ed\u304c\u4e8c\u3064\u3042\u308b\u3068\u3057\u307e\u3059\u3002<br>\u5b9f\u306f\u3001\u3053\u306e\u30b5\u30a4\u30b3\u30ed\u3001\u4e00\u3064\u306f\u3044\u304b\u3055\u307e\u306b\u4f7f\u308f\u308c\u308b\u30b5\u30a4\u30b3\u30ed\u3067\u30013\u30682\u304c\u4ed6\u306e\u6570\u5b57\u3088\u308a\u51fa\u3084\u3059\u304f\u7d30\u5de5\u3055\u308c\u3066\u3042\u308a\u307e\u3059\u3002<\/p>\n\n\n\n<p>\u898b\u305f\u76ee\u3067\u306f\u4e8c\u3064\u306e\u30b5\u30a4\u30b3\u30ed\u306f\u3001\u898b\u5206\u3051\u304c\u3064\u304d\u307e\u305b\u3093\u3002<\/p>\n\n\n\n<p>\u3069\u306e\u3088\u3046\u306b\u898b\u5206\u3051\u307e\u3059\u304b?<\/p>\n\n\n\n<p>\u8a66\u3057\u306b10000\u56de\u305a\u3064\u632f\u3063\u3066\u307f\u3066\u3001\u305d\u306e\u7d50\u679c\u3092\u30b0\u30e9\u30d5\u306b\u3057\u3066\u307f\u307e\u3057\u3087\u3046\u3002<br>\uff08\u3053\u3063\u305d\u308a\u7b54\u3048\u3092\u5148\u306b\u304a\u6559\u3048\u3059\u308b\u3068\u3001\u30b5\u30a4\u30b3\u30ed1\u304c\u516c\u5e73\u306a\u30b5\u30a4\u30b3\u30ed\u3001\u30b5\u30a4\u30b3\u30ed2\u304c\u3044\u304b\u3055\u307e\u30b5\u30a4\u30b3\u30ed\u3067\u3059)<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>library(tidyverse)\n\nroll1 &lt;- function(){\n  sample(1:6,1)\n}\n\nroll2 &lt;- function(){\n  sample(1:6,1,prob = c(2,3,3,1,1,2))\n}\n\nresult1 &lt;- map_int(1:1000,~{roll1()})\nresult2 &lt;- map_int(1:1000,~{roll2()})<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-code\"><code>dice1 &lt;- ggplot() +\n  geom_bar(aes(x = result1)) +\n  labs(x = \"\u30b5\u30a4\u30b3\u30ed1\u306e\u7d50\u679c\", y = \"\u56de\u6570\")\n\ndice2 &lt;- ggplot() +\n  geom_bar(aes(x = result2)) +\n  labs(x = \"\u30b5\u30a4\u30b3\u30ed2\u306e\u7d50\u679c\", y = \"\u56de\u6570\")\n\ncowplot::plot_grid(dice1,dice2)<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image\"><img decoding=\"async\" src=\"http:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2023\/11\/unnamed-chunk-2-1-1.png\" alt=\"\"\/><\/figure>\n\n\n\n<p>\u3069\u3046\u3067\u3057\u3087\u3046\u304b?<br>\u898b\u305f\u76ee\u3060\u3051\u3067\u3082\u3001\u30b5\u30a4\u30b3\u30ed1\u306e\u7d50\u679c\u306e\u307b\u3046\u304c\u6b63\u3057\u3044\u30b5\u30a4\u30b3\u30ed\u3063\u307d\u3044\u3067\u3059\u3088\u306d?<\/p>\n\n\n\n<p>\u8868\u306b\u3059\u308b\u3068\u30b5\u30a4\u30b3\u30ed1\u306f\u3001<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>hyou1 &lt;- result1 %&gt;% \n  enframe() %&gt;% \n  count(value)\n\nhyou1 %&gt;% \n  rename(`\u51fa\u76ee` = value,\n         `\u56de\u6570` = n) %&gt;% \n  knitr::kable()<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-table\"><table><thead><tr><th>\u51fa\u76ee<\/th><th>\u56de\u6570<\/th><\/tr><\/thead><tbody><tr><td>1<\/td><td>171<\/td><\/tr><tr><td>2<\/td><td>161<\/td><\/tr><tr><td>3<\/td><td>167<\/td><\/tr><tr><td>4<\/td><td>178<\/td><\/tr><tr><td>5<\/td><td>171<\/td><\/tr><tr><td>6<\/td><td>152<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\n<p>\u30b5\u30a4\u30b3\u30ed2\u306f\u3001<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>hyou2 &lt;- result2 %&gt;% \n  enframe() %&gt;% \n  count(value)\n\nhyou2 %&gt;% \n  rename(`\u51fa\u76ee` = value,\n         `\u56de\u6570` = n) %&gt;% \n  knitr::kable()<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-table\"><table><thead><tr><th>\u51fa\u76ee<\/th><th>\u56de\u6570<\/th><\/tr><\/thead><tbody><tr><td>1<\/td><td>178<\/td><\/tr><tr><td>2<\/td><td>261<\/td><\/tr><tr><td>3<\/td><td>234<\/td><\/tr><tr><td>4<\/td><td>85<\/td><\/tr><tr><td>5<\/td><td>62<\/td><\/tr><tr><td>6<\/td><td>180<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\n<p>\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n\n\n\n<p>\u3053\u3053\u307e\u3067\u3001\u3059\u3079\u3066\u56de\u6570\u3067\u8aac\u660e\u3057\u3066\u304d\u3066\u3044\u307e\u3059\u304c\u3001\u30b5\u30a4\u30b3\u30ed1\u304c3\u3068\u51fa\u308b\u78ba\u7387\u3092\u3001$P(X_1=3)$\u3068\u66f8\u304f\u3068\u3059\u308b\u3068\u3001\u30b5\u30a4\u30b3\u30edd\u306e\u51fa\u76ee\u304c\uff4e\u3068\u306a\u308b\u78ba\u7387\u306f\u3001$P(X_d=\u51fa\u76ee)$\u3068\u304b\u3051\u307e\u3059\u3002\u3053\u308c\u3092\u8868\u3067\u8868\u73fe\u3059\u308b\u3068\u3059\u308b\u3068\u3001<\/p>\n\n\n\n<p>\u30b5\u30a4\u30b3\u30ed1\u306f\u3001<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>hyou1_2 &lt;- hyou1 %&gt;% \n  mutate(total = sum(n)) %&gt;% \n  mutate(p = n\/total)\n\nhyou1_2 %&gt;%\n  knitr::kable(digits = 2, col.names = c(\"\u51fa\u76ee\",\"\u56de\u6570\",\"\u7dcf\u8a66\u884c\u56de\u6570\",\"$P(X_1=\u51fa\u76ee)$\"))<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-table\"><table><thead><tr><th>\u51fa\u76ee<\/th><th>\u56de\u6570<\/th><th>\u7dcf\u8a66\u884c\u56de\u6570<\/th><th>$P(X_1=\u51fa\u76ee)$<\/th><\/tr><\/thead><tbody><tr><td>1<\/td><td>171<\/td><td>1000<\/td><td>0.17<\/td><\/tr><tr><td>2<\/td><td>161<\/td><td>1000<\/td><td>0.16<\/td><\/tr><tr><td>3<\/td><td>167<\/td><td>1000<\/td><td>0.17<\/td><\/tr><tr><td>4<\/td><td>178<\/td><td>1000<\/td><td>0.18<\/td><\/tr><tr><td>5<\/td><td>171<\/td><td>1000<\/td><td>0.17<\/td><\/tr><tr><td>6<\/td><td>152<\/td><td>1000<\/td><td>0.15<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\n<p>\u30b5\u30a4\u30b3\u30ed2\u306f\u3001<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>hyou2_2 &lt;- hyou2 %&gt;% \n  mutate(total = sum(n)) %&gt;% \n  mutate(p = n\/total)\n\nhyou2_2 %&gt;%\n  knitr::kable(digits = 2, col.names = c(\"\u51fa\u76ee\",\"\u56de\u6570\",\"\u7dcf\u8a66\u884c\u56de\u6570\",\"$P(X_2=\u51fa\u76ee)$\"))<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-table\"><table><thead><tr><th>\u51fa\u76ee<\/th><th>\u56de\u6570<\/th><th>\u7dcf\u8a66\u884c\u56de\u6570<\/th><th>$P(X_2=\u51fa\u76ee)$<\/th><\/tr><\/thead><tbody><tr><td>1<\/td><td>178<\/td><td>1000<\/td><td>0.18<\/td><\/tr><tr><td>2<\/td><td>261<\/td><td>1000<\/td><td>0.26<\/td><\/tr><tr><td>3<\/td><td>234<\/td><td>1000<\/td><td>0.23<\/td><\/tr><tr><td>4<\/td><td>85<\/td><td>1000<\/td><td>0.09<\/td><\/tr><tr><td>5<\/td><td>62<\/td><td>1000<\/td><td>0.06<\/td><\/tr><tr><td>6<\/td><td>180<\/td><td>1000<\/td><td>0.18<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\n<p>\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n\n\n\n<p>\u3053\u3053\u3067\u3001\u8a08\u7b97\u3057\u305f\u3001$P(X_d=\u51fa\u76ee)$\u3092\u30b0\u30e9\u30d5\u306b\u8868\u793a\u3057\u3066\u307f\u308b\u3068<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>bind_rows(\n  hyou1_2 %&gt;% mutate(dice = \"\u30b5\u30a4\u30b3\u30ed1\"),\n  hyou2_2 %&gt;% mutate(dice = \"\u30b5\u30a4\u30b3\u30ed2\")  \n) %&gt;% \n  ggplot() +\n  geom_col(aes(x = value, y = p)) +\n  facet_wrap(~dice) +\n  labs(x = \"\u51fa\u76ee\", y = \"\u78ba\u7387\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image\"><img decoding=\"async\" src=\"http:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2023\/11\/unnamed-chunk-7-1-9.png\" alt=\"\"\/><\/figure>\n\n\n\n<p>\u3053\u308c\u304c\u3001\u30b5\u30a4\u30b3\u30ed1\u3068\u30b5\u30a4\u30b3\u30ed2\u306e\uff08\u306a\u3093\u3061\u3083\u3063\u3066\uff09\u78ba\u7387\u5206\u5e03\u3067\u3059\u3002<\/p>\n\n\n\n<p>(\u30b5\u30a4\u30b3\u30ed1\u306e\u51fa\u76ee\u3001$X_1$\u3084\u3001\u30b5\u30a4\u30b3\u30ed2\u306e\u51fa\u76ee$X_2$\u306e\u3053\u3068\u3092\u3001\u78ba\u7387\u5909\u6570\u3068\u3044\u3044\u307e\u3059\u3002)<\/p>\n\n\n\n<p>\u3053\u3053\u3067\u3001\u300c\u306a\u3093\u3061\u3083\u3063\u3066\u300d\u78ba\u7387\u5206\u5e03\u3068\u8a00\u3063\u3066\u3044\u308b\u306e\u306f\u3001\u300c\u672c\u5f53\u306e\u78ba\u7387\u5206\u5e03\u300d\u306e\u5024\u3068\u9055\u3046\u304b\u3089\u3067\u3059\u3002<\/p>\n\n\n\n<p>\u3053\u306e\u30c7\u30fc\u30bf\u3092\u751f\u6210\u3057\u305f\u95a2\u6570\u306e\u5185\u5bb9\u3092\u79c1\u305f\u3061\u306f\u77e5\u3063\u3066\u3044\u307e\u3059\u3002<br>\u518d\u63b2\u3059\u308b\u3068\u3001<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>roll1 &lt;- function(){\n  sample(1:6,1)\n}\n\nroll2 &lt;- function(){\n  sample(1:6,1,prob = c(2,3,3,1,1,2))\n}<\/code><\/pre>\n\n\n\n<p>\u306a\u306e\u3067\u3001\u5b9f\u969b\u306e$P(X_1=\u51fa\u76ee)$\u3068$P(X_2=\u51fa\u76ee)$\u306f\u3001<\/p>\n\n\n\n\n\n\n\n<figure class=\"wp-block-table\"><table><thead><tr><th>\u51fa\u76ee<\/th><th>$P(X_1=\u51fa\u76ee)$<\/th><th>$P(X_2=\u51fa\u76ee)$<\/th><\/tr><\/thead><tbody><tr><td>1<\/td><td>$\\frac{1}{6}$<\/td><td>$\\frac{2}{12}$<\/td><\/tr><tr><td>2<\/td><td>$\\frac{1}{6}$<\/td><td>$\\frac{3}{12}$<\/td><\/tr><tr><td>3<\/td><td>$\\frac{1}{6}$<\/td><td>$\\frac{3}{12}$<\/td><\/tr><tr><td>4<\/td><td>$\\frac{1}{6}$<\/td><td>$\\frac{1}{12}$<\/td><\/tr><tr><td>5<\/td><td>$\\frac{1}{6}$<\/td><td>$\\frac{1}{12}$<\/td><\/tr><tr><td>6<\/td><td>$\\frac{1}{6}$<\/td><td>$\\frac{2}{12}$<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\n<p>\u3068\u306a\u308b\u3053\u3068\u3092\u3001\u79c1\u305f\u3061\u306f\u77e5\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n<p>\u3053\u3063\u3061\u304c\u3001\u672c\u5f53\u306e\u78ba\u7387\u5206\u5e03\u3067\u3059\u3002<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">10\u4e07\u56de\u632f\u3063\u3066\u307f\u308b<\/h2>\n\n\n\n<p>\u3055\u3066\u30011,000\u56de\u305a\u3064\u30b5\u30a4\u30b3\u30ed\u3092\u632f\u3063\u305f\u72b6\u614b\u3067\u3001\u306a\u3093\u3061\u3083\u3063\u3066\u78ba\u7387\u5206\u5e03\u3092\u6c42\u3081\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3057\u305f\u3002\u3067\u3082\u3001\u771f\u306e\u5206\u5e03\u304b\u3089\u3059\u308b\u3068\u3001\u3061\u3087\u3063\u3068\u3057\u305f\u300c\u305a\u308c\u300d\u304c\u76ee\u7acb\u3061\u307e\u3059\u3002\u306a\u306e\u3067\u3001100,000\u56de\u30b5\u30a4\u30b3\u30ed\u3092\u632f\u3063\u3066\u307f\u307e\u3057\u3087\u3046\u3002<\/p>\n\n\n\n<p>result1 &lt;- map_int(1:100000,~{roll1()})<br>result2 &lt;- map_int(1:100000,~{roll2()})<\/p>\n\n\n\n<p>dice1 &lt;- ggplot() +<br>geom_bar(aes(x = result1)) +<br>labs(x = &#8220;\u30b5\u30a4\u30b3\u30ed1\u306e\u7d50\u679c&#8221;, y = &#8220;\u56de\u6570&#8221;)<\/p>\n\n\n\n<p>dice2 &lt;- ggplot() +<br>geom_bar(aes(x = result2)) +<br>labs(x = &#8220;\u30b5\u30a4\u30b3\u30ed2\u306e\u7d50\u679c&#8221;, y = &#8220;\u56de\u6570&#8221;)<\/p>\n\n\n\n<p>cowplot::plot_grid(dice1,dice2)<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>\n\u305d\u3046\u3057\u3066\u89b3\u6e2c\u3055\u308c\u305f\u78ba\u7387\u3068\u771f\u306e\u78ba\u7387\u3092\u6bd4\u8f03\u3057\u3066\u307f\u308b\u3068\u30fb\u30fb\u30fb\n\n```r\nhyou1 &lt;- result1 %&gt;% \n  enframe() %&gt;% \n  count(value) %&gt;% \n  mutate(total = sum(n)) %&gt;% \n  mutate(p = n\/total)\n\nhyou2 &lt;- result2 %&gt;% \n  enframe() %&gt;% \n  count(value) %&gt;% \n  mutate(total = sum(n)) %&gt;% \n  mutate(p = n\/total)\n\nbind_rows(\n  hyou1 %&gt;% mutate(dice = \"\u30b5\u30a4\u30b3\u30ed1\"),\n  hyou2 %&gt;% mutate(dice = \"\u30b5\u30a4\u30b3\u30ed2\")  \n) %&gt;% \n  ggplot() +\n  geom_col(aes(x = value, y = p)) +\n  facet_wrap(~dice) +\n  labs(x = \"\u51fa\u76ee\", y = \"\u78ba\u7387\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image\"><img decoding=\"async\" src=\"http:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2023\/11\/unnamed-chunk-9-1-3.png\" alt=\"\"\/><\/figure>\n\n\n\n<p>\u30b5\u30a4\u30b3\u30ed1\u3067\u306f\u3001<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>hyou1_2 &lt;- hyou1 %&gt;% \n  mutate(total = sum(n)) %&gt;% \n  mutate(p = n\/total) %&gt;% \n  mutate(realp = 1\/6)\n\nhyou1_2 %&gt;%\n  knitr::kable(digits = 2, col.names = c(\"\u51fa\u76ee\",\"\u56de\u6570\",\"\u7dcf\u8a66\u884c\u56de\u6570\",\"$\u89b3\u6e2c\u3055\u308c\u305fP(X_1=\u51fa\u76ee)$\",\"\u771f\u306e$P(X_1=\u51fa\u76ee)$\"), \n               format.args = list(big.mark = \",\", \n                                  scientific = FALSE))<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-table\"><table><thead><tr><th>\u51fa\u76ee<\/th><th>\u56de\u6570<\/th><th>\u7dcf\u8a66\u884c\u56de\u6570<\/th><th>$\u89b3\u6e2c\u3055\u308c\u305fP(X_1=\u51fa\u76ee)$<\/th><th>\u771f\u306e$P(X_1=\u51fa\u76ee)$<\/th><\/tr><\/thead><tbody><tr><td>1<\/td><td>171<\/td><td>1,000<\/td><td>0.17<\/td><td>0.17<\/td><\/tr><tr><td>2<\/td><td>161<\/td><td>1,000<\/td><td>0.16<\/td><td>0.17<\/td><\/tr><tr><td>3<\/td><td>167<\/td><td>1,000<\/td><td>0.17<\/td><td>0.17<\/td><\/tr><tr><td>4<\/td><td>178<\/td><td>1,000<\/td><td>0.18<\/td><td>0.17<\/td><\/tr><tr><td>5<\/td><td>171<\/td><td>1,000<\/td><td>0.17<\/td><td>0.17<\/td><\/tr><tr><td>6<\/td><td>152<\/td><td>1,000<\/td><td>0.15<\/td><td>0.17<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\n<p>\u30b5\u30a4\u30b3\u30ed2\u3067\u306f\u3001<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>hyou2_2 &lt;- hyou2 %&gt;% \n  mutate(total = sum(n)) %&gt;% \n  mutate(p = n\/total) %&gt;% \n  mutate(realp = c(2,3,3,1,1,2)\/12)\n\nhyou2_2 %&gt;%\n  knitr::kable(digits = 2, col.names = c(\"\u51fa\u76ee\",\"\u56de\u6570\",\"\u7dcf\u8a66\u884c\u56de\u6570\",\"$\u89b3\u6e2c\u3055\u308c\u305fP(X_1=\u51fa\u76ee)$\",\"\u771f\u306e$P(X_1=\u51fa\u76ee)$\"), \n               format.args = list(big.mark = \",\", \n                                  scientific = FALSE))<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-table\"><table><thead><tr><th>\u51fa\u76ee<\/th><th>\u56de\u6570<\/th><th>\u7dcf\u8a66\u884c\u56de\u6570<\/th><th>$\u89b3\u6e2c\u3055\u308c\u305fP(X_1=\u51fa\u76ee)$<\/th><th>\u771f\u306e$P(X_1=\u51fa\u76ee)$<\/th><\/tr><\/thead><tbody><tr><td>1<\/td><td>178<\/td><td>1,000<\/td><td>0.18<\/td><td>0.17<\/td><\/tr><tr><td>2<\/td><td>261<\/td><td>1,000<\/td><td>0.26<\/td><td>0.25<\/td><\/tr><tr><td>3<\/td><td>234<\/td><td>1,000<\/td><td>0.23<\/td><td>0.25<\/td><\/tr><tr><td>4<\/td><td>85<\/td><td>1,000<\/td><td>0.09<\/td><td>0.08<\/td><\/tr><tr><td>5<\/td><td>62<\/td><td>1,000<\/td><td>0.06<\/td><td>0.08<\/td><\/tr><tr><td>6<\/td><td>180<\/td><td>1,000<\/td><td>0.18<\/td><td>0.17<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\n<p>\u3068\u3001\u307b\u307c\u4e00\u81f4\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">\u3044\u304b\u3055\u307e\u30b5\u30a4\u30b3\u30ed\u306e\u78ba\u7387\u5206\u5e03<\/h2>\n\n\n\n<p>\u3055\u3066\u3001100000\u56de\u3001\u30b5\u30a4\u30b3\u30ed\u3092\u632f\u308c\u3070\u3001\u3088\u308a\u78ba\u304b\u3089\u3057\u304f\u3001\u30b5\u30a4\u30b3\u30ed1\u3068\u30b5\u30a4\u30b3\u30ed2\u306e\u3069\u3063\u3061\u304c\u3044\u304b\u3055\u307e\u30b5\u30a4\u30b3\u30ed\u304b\u5224\u5225\u3067\u304d\u308b\u3068\u601d\u3044\u307e\u3059\u3002\u3053\u3053\u3067\u3001\u3069\u3063\u3061\u304c\u3044\u304b\u3055\u307e\u304b\u3069\u3046\u304b\u3092\u5224\u65ad\u3059\u308b\u306e\u306b\u691c\u5b9a\u306e\u8003\u3048\u65b9\u304c\u5229\u7528\u3067\u304d\u307e\u3059\u3002\u304c\u3001\u3053\u3053\u3067\u306f\u3001\u78ba\u7387\u5206\u5e03\u306e\u8a71\u3092\u7d9a\u3051\u307e\u3057\u3087\u3046\u3002\uff08\u691c\u5b9a\u306f\u5225\u306e\u6a5f\u4f1a\u306b\uff09<\/p>\n\n\n\n<p>\u4e0a\u306e\u72b6\u6cc1\u3067\u306f\u3044\u304b\u3055\u307e\u30b5\u30a4\u30b3\u30ed\u3092\u95a2\u6570\u3092\u5229\u7528\u3057\u3066\u30b7\u30df\u30e5\u30ec\u30fc\u30b7\u30e7\u30f3\u3092\u3057\u3066\u3001$P(X_2=\u51fa\u76ee)$\u306e\u5024\u3092\u63a8\u5b9a\u3057\u307e\u3057\u305f\u3002<\/p>\n\n\n\n<p><br>$$P(X_2=1) = \\frac{2}{12}$$<br>$$P(X_2=2) = \\frac{3}{12}$$<br>$$P(X_2=3) = \\frac{3}{12}$$<br>$$P(X_2=4) = \\frac{1}{12}$$<br>$$P(X_2=5) = \\frac{1}{12}$$<br>$$P(X_2=6) = \\frac{2}{12}$$<br><\/p>\n\n\n\n<p>\u771f\u306e(\u96e2\u6563)\u78ba\u7387\u5206\u5e03\u306f\u3053\u3093\u306a\u6570\u5f0f\u306b\u306a\u308a\u307e\u3059\u3002<br>\u3053\u3053\u3067\u3001\u4e00\u3064\u91cd\u8981\u306a\u78ba\u7387\u5206\u5e03\u306e\u6027\u8cea\u3092\u304a\u4f1d\u3048\u3057\u3066\u304a\u304d\u307e\u3059\u3002<\/p>\n\n\n\n<p>\u8cea\u554f\u3067\u3059\u3002\u6b21\u306e\u5f0f\u306e\u7b54\u3048\u306f\u4f55\u3067\u3057\u3087\u3046\u304b?<\/p>\n\n\n\n<p>$$<br>\\sum_{X_1=1}^6{P(X_1)} = quad?<br>$$<\/p>\n\n\n\n<p>\u5b9f\u306f\u3001$P(X_1)$\u304c\u78ba\u7387\u5206\u5e03\u3060\u3068\u3044\u3046\u3053\u3068\u304c\u308f\u304b\u3063\u3066\u3044\u308b\u306e\u3067\u3001<br>\u4e0a\u306e\u6570\u5f0f\u306f\u3001<br>$$\u30b5\u30a4\u30b3\u30ed\u3092\u632f\u3063\u30661\u304c\u3067\u308b\u78ba\u7387+2\u304c\u51fa\u308b\u78ba\u7387+cdots+6\u304c\u51fa\u308b\u78ba\u7387$$<\/p>\n\n\n\n<p>\u3092\u610f\u5473\u3057\u307e\u3059\u3002<\/p>\n\n\n\n<p>\u3053\u3046\u8aac\u660e\u3055\u308c\u308b\u3068\u7c21\u5358\u3067\u3059\u306d\uff1f<br>(6\u9762\u306e)\u30b5\u30a4\u30b3\u30ed\u3092\u632f\u3063\u3066\uff11\u3001\uff12\u3001\uff13\u3001\uff14\u3001\uff15\u3001\uff16\u4ee5\u5916\u306e\u6570\u5b57\u304c\u3067\u308b\u53ef\u80fd\u6027\u306f0\u306a\u306e\u3067\u3001\uff11\u304b\u3089\uff16\u306e\u3044\u305a\u308c\u304b\u306e\u6570\u5b57\u304c\u3067\u308b\u78ba\u7387\u306f100%\u3068\u306a\u308a\u3001<\/p>\n\n\n\n<p>$$<br>\\sum_{X_1=1}^6{P(X_1)} =<br>P(1) + P(2) + P(3) + P(4) + P(5) + P(6) =<br>\\frac{1}{6} + \\frac{1}{6} + \\frac{1}{6} + \\frac{1}{6} + \\frac{1}{6} + \\frac{1}{6} = \\frac{6}{6} = 1<br>$$<\/p>\n\n\n\n<p>\u304a\u306a\u3058\u3088\u3046\u306b\u3001<\/p>\n\n\n\n<p>$$<br>\\sum_{X_1=1}^6{P(X_2)} =<br>P(1) + P(2) + P(3) + P(4) + P(5) + P(6) =<br>\\frac{2}{6} + \\frac{3}{6} + \\frac{3}{6} + \\frac{1}{6} +s \\frac{1}{6} + \\frac{2}{6} = \\frac{6}{6} = 1<br>$$<\/p>\n\n\n\n<p>\u3068\u3001\u78ba\u7387\u5206\u5e03\u3067\u8d77\u3053\u308a\u3046\u308b\u3059\u3079\u3066\u306e\u5834\u5408\u3092\u8db3\u3057\u5408\u308f\u305b\u308b\u30681\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n\n\n\n<p>\u3064\u3065\u304f\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u78ba\u7387\u5206\u5e03 \u78ba\u7387\u5206\u5e03\u306f\u3001\u591a\u5206\u3001\u7d71\u8a08\u3092\u5b66\u3076\u306b\u3042\u305f\u3063\u3066\u56f0\u308b\u6700\u521d\u306e\u58c1\u3060\u3068\u601d\u3044\u307e\u3059\u3002\u3053\u3053\u3067\u306f\u3001\u30a4\u30e1\u30fc\u30b8\u3092\u3057\u3063\u304b\u308a\u3068\u6301\u3063\u3066\u3082\u3089\u3063\u305f\u3046\u3048\u3067\u3001\u4ee3\u8868\u7684\u306a\u78ba\u7387\u5206\u5e03\u3067\u3042\u308b\u6b63\u898f\u5206\u5e03\u306b\u3064\u3044\u3066\u8aac\u660e\u3057\u3066\u3042\u308a\u307e\u3059\u3002(\u5c1a\u3001\u30a4\u30e1\u30fc\u30b8\u306b\u3064\u3044\u3066\u306f\u3001\u304b\u3048\u3063\u3066\u8a33\u304c\u5206\u304b\u3089\u306a\u304f\u306a\u308b\u53ef\u80fd\u6027\u3082\u3042\u308a\u307e\u3059\u306e\u3067\u3001\u305d\u306e\u70b9\u3054\u4e86\u89e3\u3057\u3066\u304f\u3060\u3055\u308b\u3068\u5e78\u3044\u3067\u3059\u3002) \u5148\u306b\u304a\u65ad\u308a \u79c1\u81ea\u8eab\u306f\u7d71\u8a08\u5b66\u3092\u5927\u5b66\u3067\u5b66\u3093\u3067\u3044\u305f\u7b49\u306f\u300c\u307e\u3063\u305f\u304f\u3042\u308a\u307e\u305b\u3093\u300d\u3002\u78ba\u5b9f\u306b\u5c02\u9580\u5bb6\u306e\u65b9\u304b\u3089\u304a\u3057\u304b\u308a\u3092\u53d7\u3051\u308b\u5185\u5bb9\u304c\u542b\u307e\u308c\u3066\u3044\u308b\u3068\u601d\u3063\u3066\u304a\u308a\u307e\u3059\u306e\u3067\u3001\u304f\u308c\u3050\u308c\u3082\u672c\u30d6\u30ed\u30b0\u306e\u60c5\u5831\u3092\u4e3b\u306b\u3059\u308b\u3053\u3068\u304c\u306a\u3044\u3088\u3046\u306b\u3001\u3088\u308d\u3057\u304f\u304a\u9858\u3044\u7533\u3057\u4e0a\u3052\u307e\u3059\u3002\uff08\u304d\u3061\u3093\u3068\u3057\u305f\u6210\u66f8\u3092\u53c2\u8003\u306b\u3057\u3066\u304f\u3060\u3055\u3044\u3002\uff09\u307e\u305f\u3001\u81f4\u547d\u7684\u306a\u9593\u9055\u3044\u7b49\u3092\u767a\u898b\u3055\u308c\u305f\u65b9\u306f\u304a\u6559\u3048\u3044\u305f\u3060\u3051\u308b\u3068\u5b09\u3057\u304f\u601d\u3044\u307e\u3059\u3002 \u72b6\u6cc1\u8a2d\u5b9a \u7686\u3055\u3093\u306e\u624b\u5143\u306b\u30b5\u30a4\u30b3\u30ed\u304c\u4e8c\u3064\u3042\u308b\u3068\u3057\u307e\u3059\u3002\u5b9f\u306f\u3001\u3053\u306e\u30b5\u30a4\u30b3\u30ed\u3001\u4e00\u3064\u306f\u3044\u304b\u3055\u307e\u306b\u4f7f\u308f\u308c\u308b\u30b5\u30a4\u30b3\u30ed\u3067\u30013\u30682\u304c\u4ed6\u306e\u6570\u5b57\u3088\u308a\u51fa\u3084\u3059\u304f\u7d30\u5de5\u3055\u308c\u3066\u3042\u308a\u307e\u3059\u3002 \u898b\u305f\u76ee\u3067\u306f\u4e8c\u3064\u306e\u30b5\u30a4\u30b3\u30ed\u306f\u3001\u898b\u5206\u3051\u304c\u3064\u304d\u307e\u305b\u3093\u3002 \u3069\u306e\u3088\u3046\u306b\u898b\u5206\u3051\u307e\u3059\u304b? \u8a66\u3057\u306b10000\u56de\u305a\u3064\u632f\u3063\u3066\u307f\u3066\u3001\u305d\u306e\u7d50\u679c\u3092\u30b0\u30e9\u30d5\u306b\u3057\u3066\u307f\u307e\u3057\u3087\u3046\u3002\uff08\u3053\u3063\u305d\u308a\u7b54\u3048\u3092\u5148\u306b\u304a\u6559\u3048\u3059\u308b\u3068\u3001\u30b5\u30a4\u30b3\u30ed1\u304c\u516c\u5e73\u306a\u30b5\u30a4\u30b3\u30ed\u3001\u30b5\u30a4\u30b3\u30ed2\u304c\u3044\u304b\u3055\u307e\u30b5\u30a4\u30b3\u30ed\u3067\u3059) \u3069\u3046\u3067\u3057\u3087\u3046\u304b?\u898b\u305f\u76ee\u3060\u3051\u3067\u3082\u3001\u30b5\u30a4\u30b3\u30ed1\u306e\u7d50\u679c\u306e\u307b\u3046\u304c\u6b63\u3057\u3044\u30b5\u30a4\u30b3\u30ed\u3063\u307d\u3044\u3067\u3059\u3088\u306d? \u8868\u306b\u3059\u308b\u3068\u30b5\u30a4\u30b3\u30ed1\u306f\u3001 \u51fa\u76ee \u56de\u6570 1 171 2 161 3 167 4 178 5 171 6 152 \u30b5\u30a4\u30b3\u30ed2\u306f\u3001 \u51fa\u76ee \u56de\u6570 1 178 2 261 3 234 4 85 5 62 6 180 \u3068\u306a\u308a\u307e\u3059\u3002 \u3053\u3053\u307e\u3067\u3001\u3059\u3079\u3066\u56de\u6570\u3067\u8aac\u660e\u3057\u3066\u304d\u3066\u3044\u307e\u3059\u304c\u3001\u30b5\u30a4\u30b3\u30ed1\u304c3\u3068\u51fa\u308b\u78ba\u7387\u3092\u3001$P(X_1=3)$\u3068\u66f8\u304f\u3068\u3059\u308b\u3068\u3001\u30b5\u30a4\u30b3\u30edd\u306e\u51fa\u76ee\u304c\uff4e\u3068\u306a\u308b\u78ba\u7387\u306f\u3001$P(X_d=\u51fa\u76ee)$\u3068\u304b\u3051\u307e\u3059\u3002\u3053\u308c\u3092\u8868\u3067\u8868\u73fe\u3059\u308b\u3068\u3059\u308b\u3068\u3001 \u30b5\u30a4\u30b3\u30ed1\u306f\u3001 \u51fa\u76ee \u56de\u6570 \u7dcf\u8a66\u884c\u56de\u6570 $P(X_1=\u51fa\u76ee)$ 1 171 1000 0.17 2 161 1000 0.16 3 167 1000 0.17 4 178 1000 0.18 5 171 1000 0.17 6 152 1000 0.15 \u30b5\u30a4\u30b3\u30ed2\u306f\u3001 \u51fa\u76ee \u56de\u6570 \u7dcf\u8a66\u884c\u56de\u6570 $P(X_2=\u51fa\u76ee)$ 1 178 1000 0.18 2 261 1000 0.26 3 234 1000 0.23 4 85 1000 0.09 5 62 1000 0.06 6 180 1000 0.18 \u3068\u306a\u308a\u307e\u3059\u3002 \u3053\u3053\u3067\u3001\u8a08\u7b97\u3057\u305f\u3001$P(X_d=\u51fa\u76ee)$\u3092\u30b0\u30e9\u30d5\u306b\u8868\u793a\u3057\u3066\u307f\u308b\u3068 \u3053\u308c\u304c\u3001\u30b5\u30a4\u30b3\u30ed1\u3068\u30b5\u30a4\u30b3\u30ed2\u306e\uff08\u306a\u3093\u3061\u3083\u3063\u3066\uff09\u78ba\u7387\u5206\u5e03\u3067\u3059\u3002 (\u30b5\u30a4\u30b3\u30ed1\u306e\u51fa\u76ee\u3001$X_1$\u3084\u3001\u30b5\u30a4\u30b3\u30ed2\u306e\u51fa\u76ee$X_2$\u306e\u3053\u3068\u3092\u3001\u78ba\u7387\u5909\u6570\u3068\u3044\u3044\u307e\u3059\u3002) \u3053\u3053\u3067\u3001\u300c\u306a\u3093\u3061\u3083\u3063\u3066\u300d\u78ba\u7387\u5206\u5e03\u3068\u8a00\u3063\u3066\u3044\u308b\u306e\u306f\u3001\u300c\u672c\u5f53\u306e\u78ba\u7387\u5206\u5e03\u300d\u306e\u5024\u3068\u9055\u3046\u304b\u3089\u3067\u3059\u3002 \u3053\u306e\u30c7\u30fc\u30bf\u3092\u751f\u6210\u3057\u305f\u95a2\u6570\u306e\u5185\u5bb9\u3092\u79c1\u305f\u3061\u306f\u77e5\u3063\u3066\u3044\u307e\u3059\u3002\u518d\u63b2\u3059\u308b\u3068\u3001 \u306a\u306e\u3067\u3001\u5b9f\u969b\u306e$P(X_1=\u51fa\u76ee)$\u3068$P(X_2=\u51fa\u76ee)$\u306f\u3001 \u51fa\u76ee $P(X_1=\u51fa\u76ee)$ $P(X_2=\u51fa\u76ee)$ [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"swell_btn_cv_data":"","footnotes":""},"categories":[8],"tags":[14],"class_list":["post-113","post","type-post","status-publish","format-standard","hentry","category-8","tag-14"],"_links":{"self":[{"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/posts\/113","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/comments?post=113"}],"version-history":[{"count":5,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/posts\/113\/revisions"}],"predecessor-version":[{"id":122,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/posts\/113\/revisions\/122"}],"wp:attachment":[{"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/media?parent=113"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/categories?post=113"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/tags?post=113"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}