意味がないであろうことをやったら意味がなかったけどMOTTAINAI精神で記事を上げておく。 データは以下の日経平均株価（日足）を使用する。 日経平均株価 日足 時系列データ CSVダウンロード データは 2010 年以降を取得しておく。 x_2016 <- read.table("in…