2016年は不倫報道が多いですね!全くどうでもいいんですが,これほど多いとデータとしてみなし,なんかの分析をしたくなる。 そこでデータをつくって分析してみます。 dataset <- as.data.frame( matrix(c("ベッキー","2016-01-07", "狩野英孝","2016-02-03", "宮崎謙介議員","2016-02-10", "桂文枝","2016-03-16", "石井竜也","2016-03-17", "乙武洋匡","2016-03-23", "とにかく明るい安村","2016-04-01", "NMB48木下春奈","2016-05-08", "ファンキー加藤","2016-06-07", "三遊亭円楽","2016-06-10", "荻上チキ","2016-07-06", "小倉優子の夫","2016-08-02", "中村橋之助","2016-0
![不倫報道の間隔を推定する](https://cdn-ak-scissors.b.st-hatena.com/image/square/305a6a585dc77f3d4635a864e8a97617b8f0d5b4/height=288;version=1;width=512/https%3A%2F%2Fi0.wp.com%2Fkosugitti.net%2Fwp%2Fwp-content%2Fuploads%2F2014%2F06%2Fcropped-cropped-rstan_result_mac.png%3Ffit%3D512%252C512%26ssl%3D1)