R在xts zoo类上使用apply函数
R在xts zoo类上使用apply函数
提问于 2017-08-07 21:06:41
我是R的新手，我尝试在xts zoo类上使用apply函数，但它显示错误。我有一个公式：((2*Close-High-Low)/(High-Low)) *音量
Input:
y <- getSymbols("0005.HK", auto.assign = FALSE, src = "yahoo")
Error:
y$II <- apply(y,2,function(x) (2Cl(x) - Hi(x) - Lo(x)) / ((Hi(x) - Lo(x)) * Vo(stk)))
Error: unexpected symbol in "apply(y,2,function(x) (2Cl"然后我尝试了另一个：
Error:
y$II <- apply(y,2,function(x) (2(x[,4]) - x[,2] - x[,3]) / (x[,2] - x[,3]) * x[,5])
Error in FUN(newX[, i], ...) : attempt to apply non-function之后，我想将y$II的21天相加，但我不知道如何应用函数来计算每21天之间的21天相加
IIstd = 21之和((2*C-H-L)/(H-L)) *V
IInorm = (IIstd / Sum 21天V) * 100
有人能帮我吗？请多多指教，谢谢。
回答 1
Stack Overflow用户
发布于 2017-08-07 21:15:00
这里有两个问题：
2Cl(x)i不是有效的R --使用右手边的2 * Cl(x)- all操作已经矢量化，所以我们首先不需要
apply
为了清楚起见，我们假设II = (2C -H- L)/((H-L) *V)，你想要它的21个周期成交量加权移动平均值的100倍。如果这不是您想要的，请修改。
试试这个：
y$II <- (2*Cl(y) - Hi(y) - Lo(y)) / ((Hi(y) - Lo(y)) * Vo(y))关于问题的第二部分，试试这个-- rollapplyr在zoo包中。
wmean <- function(x) weighted.mean(x$II, Vo(x))
y$MeanII <- 100 * rollapplyr(y, 21, wmean, by.column = FALSE, fill = NA)还可以查看TTR包。
更新：在问题的第二部分添加了答案。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/45547672
复制相关文章
相似问题
腾讯云开发者
