{"provider_url":"https://hatena.blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmikuhatsune.hatenadiary.com%2Fentry%2F20120728%2F1343482032\" title=\"\u4f0a\u85e4\u8aa0\u3067\u4f5c\u6210\u3057\u3088\u3046\u3068\u601d\u3063\u305f\u3089\u6ca2\u8d8a\u6b62\u306e\u307b\u3046\u304c\u9b3c\u755c\u3060\u3068\u6c17\u3065\u3044\u305f - \u9a5a\u7570\u306e\u30a2\u30cb\u30f2\u30bf\u793e\u4f1a\u5fa9\u5e30\u306e\u4e88\u5099\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","width":"100%","author_url":"https://blog.hatena.ne.jp/MikuHatsune/","url":"https://mikuhatsune.hatenadiary.com/entry/20120728/1343482032","height":"190","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/M/MikuHatsune/20120728/20120728222105.png","published":"2012-07-28 22:27:12","categories":["R","\u907a\u4f1d\u533b\u5b66","R\u3092\u4f7f\u3044\u3053\u306a\u3059"],"version":"1.0","author_name":"MikuHatsune","type":"rich","blog_title":"\u9a5a\u7570\u306e\u30a2\u30cb\u30f2\u30bf\u793e\u4f1a\u5fa9\u5e30\u306e\u4e88\u5099","title":"\u4f0a\u85e4\u8aa0\u3067\u4f5c\u6210\u3057\u3088\u3046\u3068\u601d\u3063\u305f\u3089\u6ca2\u8d8a\u6b62\u306e\u307b\u3046\u304c\u9b3c\u755c\u3060\u3068\u6c17\u3065\u3044\u305f","blog_url":"https://mikuhatsune.hatenadiary.com/","provider_name":"Hatena Blog","description":"\u6614\u3001\u5bb6\u7cfb\u56f3\u3092\u4f5c\u6210\u3057\u305f\u306e\u3060\u304c\u3001\u67d0\u696d\u754c\u3067\u6709\u540d\u306a\u4e00\u5bb6\u306e\u5bb6\u7cfb\u56f3\u3092R\u3067\u4f5c\u6210\u3057\u305f\u3044\u3068\u601d\u3063\u305f\u3002 \u3053\u3053\u3084\u3053\u3053\u3092\u53c2\u8003\u306b\u30c7\u30fc\u30bf\u5165\u529b\u3057\u3001\u4f5c\u56f3\u3057\u305f\u3002 \u3082\u3063\u3068\u8272\u3065\u3051\u3068\u304b\u3084\u308a\u305f\u304b\u3063\u305f\u3051\u3069\u4fdd\u7559\u3002 \u3053\u3093\u306a\u5bb6\u7cfb\u306e\u5bb6\u65cf\u6b74\u554f\u8a3a\u306f\u6fc0\u30e0\u30ba\u3060\u308d\u3046\u3002 library(kinship) school_days_cast <- seq(59) Mother <- c(6, 9, 11, 0, 0, 0, 0, 0, 5, 5, 0, 0, 0, 7, 8, 10, 10, 10, 11, 11, 12, 12, 13, 0, 30, 14, 14, 14, 14, 9, 0, 9, 17, 18, 25, 21, 21, 21, 24, 23\u2026"}