我让我们说一个具有以下值的 xts 对象(数据)......
SPY.Adjusted SMA
2012-08-02 136.64 137.115
2012-08-03 139.35 137.995
2012-08-06 139.62 139.485
2012-08-07 140.32 139.970
2012-08-08 140.49 140.405
2012-08-09 140.61 140.550
2012-08-10 140.84 140.725
如果满足某些条件,我正在尝试使用 apply 函数向其附加信号......在这种情况下,当收盘价 > SMA 时。我的功能:
signal<-function(x,y,z)
{
z$signals<-ifelse(x>y,1,0)
}
我试着...
apply(data,1,FUN=signal(data$SPY.Adjusted,data$SMA,data))
返回错误:
Error in match.fun(FUN) : 'signal(data$SPY.Adjusted, data$SMA, data)'
is not a function, character or symbol
可能出了什么问题?我向它传递了一个函数,如果满足某些条件,该函数会到达传递给它的对象数据以创建一个新列。