MACD信号发生器R.

Question

简单循环问题。试图找到一个循环（不是首选）或其他任何东西来为stoch提供信号。如果Diff＆lt; 1，＆gt; -1,1，则为0.

library(quantmod)

getSymbols("SPY", src="yahoo", from="2013-01-01", to="2015-05-01")

y <- na.omit(merge(SPY, SMI(Cl(SPY))))

y$diff <- y$SMI - y$signal

# if Diff <1, >-1, then 1, else 0. 

Answer 1

如果您对@MrFlick的评论的问题是您希望将差值（y $ diff）映射到-1以下的值，则值大于1到1，其余值为0，此行将执行此操作：

y$diff.map <- ifelse(y$diff>1,1,ifelse(y$diff< -1,-1,0))

在回复您更新的评论时，下面的行会将介于-1和+1之间的值映射为1，将此范围之外的值映射为零。

y$diff.map <- ifelse(y$diff >= -1 & y$diff <= 1,1,0)