Rでの手順

病み上がりの頭だと忘れそうだから。
こっちは、Rでの手順

> library(tseries)
> source("GMMA.R")
> gold <- read.csv("1326.csv") > gold <- ts(gold$close, start=c(2006, 1), frequency=248)
> jpeg("~/1326.jpg")
> GMMA(gold)
> dev.off()