1
最高の利益をもたらす最高のものを見つけるために異なる移動平均をテストする方法はありますか?複数のMAを購入して販売する
私は購入のために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))