GMMAチャート改良版

下手なコードだな-.... orz

GMMA <- function(code, start, end) {
library("quantmod")

ss <- paste(start, end,sep="::")

fn <- paste("~/repo/yahoo/", code, ".csv", sep="")
# データの読み込み
data <- read.zoo(fn, header=T, sep=",")

fn2 <- paste("~/repo/jpg/", code, ".jpg", sep="")
jpeg(fn2, width=640,height=480)

t <- paste("GMMA(", code, ")", "- (Short(red), Long(blue))")

# subsetで表示範囲を指定
candleChart(
data,
name = t,
theme = chartTheme("white"),
TA="addVo();
addEMA(3,col='red');
addEMA(5,col='red');
addEMA(8,col='red');
addEMA(10,col='red');
addEMA(12,col='red');
addEMA(15,col='red');
addEMA(30);
addEMA(35);
addEMA(40);
addEMA(45);
addEMA(50);
addEMA(60)",
subset=ss)

dev.off()
}