Rでの手順 v2

結構めんどいなぁ。
スクリプト書かないと。

data <- read.csv("9427.csv")
data <- ts(data$close, start=c(2007,4), frequency=248)
jpeg("~/9427.jpg",width=1200,height=800)
GMMA(data, 200)
dev.off()