【发布时间】:2016-09-21 17:56:45
【问题描述】:
有没有一种方法可以测试不同的移动平均线来找到能带来最高利润的最佳移动平均线?
我想测试一根 MA 用于买入,一根 MA 用于卖出。 目前我只有这个,它使用相同的 MA 进行买卖。
s <- get(getSymbols('SPY'))["2012::"]
s$sma20 <- SMA(Cl(s) , 20)
s$position <- ifelse(Cl(s) > s$sma20 , 1 , -1)
myReturn <- lag(s$position) * dailyReturn(s)
charts.PerformanceSummary(cbind(dailyReturn(s),myReturn))
【问题讨论】: