MikuHatsune https://blog.hatena.ne.jp/MikuHatsune/ 驚異のアニヲタ社会復帰の予備 https://mikuhatsune.hatenadiary.com/ R 数理モデル Rを使いこなす 変化点検出をしたいしたいといって、ついにやることに。 国立感染症研究所からインフルエンザ定点観測データを入手して、流行予測をしよう。 変化点検出パッケージChangeAnomalyDetectionを使ってみる。 library(ChangeAnomalyDetection) #データは下に flu <- read.delim("flu_japan_2008_2013.txt", header=FALSE) week <- rep(seq(ncol(flu)), nrow(flu)) #週 flu_seq <- c(t(flu[rev(seq(nrow(flu))), ])) #ベクトルにする… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmikuhatsune.hatenadiary.com%2Fentry%2F20130128%2F1359293300" title="変化点検出を使ってインフルエンザの流行予測 - 驚異のアニヲタ社会復帰の予備" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.d.st-hatena.com/diary/MikuHatsune/2013-01-28.png Hatena Blog https://hatena.blog 2013-01-28 22:28:20 rich https://mikuhatsune.hatenadiary.com/entry/20130128/1359293300 1.0 100%