我想基于另一个xts对象中的逻辑值对xts对象中的日期进行子集设置,但是R会返回超出范围的错误,尽管值在范围内。
例如,我想过滤RSI高于60的日期和价格。
> strength <- RSI(d, 14)>60
> strength["2016-10-17::"]
RSI
2016-10-17 TRUE
2016-10-18 TRUE
2016-10-19 TRUE
2016-10-20 FALSE
2016-10-21 FALSE
> d["2016-10-17::"]
Open
2016-10-17 642.2760
2016-10-18 640.5988
2016-10-19 637.0000
2016-10-20 631.9800
2016-10-21 633.6470
> d["2016-10-17::"][strength == TRUE]
Error in `[.xts`(d["2016-10-17::"], strength == TRUE) :
'i' or 'j' out of range
这不是我期望的输出,因为我的两个对象都具有直到2016年10月21日的数据。有什么事吗 我想要类似的东西:
> d["2016-10-17::"][strength == TRUE]
Open
2016-10-17 642.2760
2016-10-18 640.5988
2016-10-19 637.0000
这是str
我的xts对象的:
> str(d)
An ‘xts’ object on 2013-09-02/2016-10-21 containing:
Data: num [1:1146, 1] 127 128 121 121 116 ...
- attr(*, "dimnames")=List of 2
..$ : NULL
..$ : chr "Open"
Indexed by objects of class: [Date] TZ: UTC
xts Attributes:
List of 2
$ dateFormat: chr "Date"
$ na.action :Class 'omit' atomic [1:92] 1 2 3 4 5 6 7 8 9 10 ...
.. ..- attr(*, "index")= num [1:92] 1.37e+09 1.37e+09 1.37e+09 1.37e+09 1.37e+09 ...
> str(strength)
An ‘xts’ object on 2013-09-16/2016-10-21 containing:
Data: logi [1:1132, 1] FALSE FALSE FALSE FALSE FALSE FALSE ...
- attr(*, "dimnames")=List of 2
..$ : NULL
..$ : chr "RSI"
Indexed by objects of class: [Date] TZ: UTC
xts Attributes:
NULL
>
谢谢
您没有提供可复制的示例,因此这里有一些玩具数据。您的问题是,您没有在相同的时间窗口内对强度进行子集化(因此内部strength == TRUE
逻辑序列的行长度与d
行长度不同,从而产生了错误,即NROW(strength == TRUE)
>> NROW(d["2016-10-17::"])
):
library(quantmod)
getSymbols("AAPL")
d <- AAPL
strength <- RSI(Cl(d)) > 60
如果执行此操作,则不会出现错误:
d["2016-10-17::"][strength["2016-10-17::"] == TRUE]
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句