« Writing is an effective way to pass the time. | Main | Pythonには近づかないことにする。 »

October 31, 2020

COVID-19

厚生労働省のwebページからファイルをダウンロードしてグラフを描いてみた。Rでggplot2を利用した。

移動平均の計算方法についてすこし気になることがある。当日のデータに6日前からのデータを加えて平均を計算しその日のところに表示するようになっている。これでいいのだろうか、それとも、3日前のところに表示すべきなのだろうか。

20201031-114759 20201031-11481120201031-114819

 

平均 <- vector("numeric",nrow(dat))

for (i in 7:nrow(dat)) {
平均[i] <- (dat[i,2] + dat[i-1,2] + dat[i-2,2] + dat[i-3,2] + dat[i-4,2] + dat[i-5,2] + dat[i-6,2])/7
}


平均 <- as.numeric(平均)
dat$平均 <- 平均

 

|

« Writing is an effective way to pass the time. | Main | Pythonには近づかないことにする。 »

Information Technology」カテゴリの記事