#移動平均をもとめる関数。
#PCに保存。
#このファイルの拡張子を".R"に変更
#R上で"source("MA.R")"と入力し読み込ませる。
#　参考：ttp://www.f.waseda.jp/tamaki/ja/R/npv-irr.html
#あるいは以下をR上にコピペする。

MA <- function (x, day) {

   results = c()



   for(i in 1:day-1) {

       results[i] = NULL

   }

   # 移動平均を求めて結果に入れていく

   for(i in day:length(x)){

       start = i - day + 1

       results[i] = mean(x[start:i])

   }

   results

}