假设我有以下xts ...
a <- c(1,-1,2,-2)
b <- c(-1,-2,3,4)
x <- xts(cbind(a,b),order.by = as.Date(c("2015-01-02","2015-01-05","2015-01-06","2015-01-07")))
x
这给你...
a b
2015-01-02 1 -1
2015-01-05 -1 -2
2015-01-06 2 3
2015-01-07 -2 4
我想创建一个xts的虚拟变量,当值大于0和0且值小于或等于0时,它们的值为1。所以我想得到这个...
a b
2015-01-02 1 0
2015-01-05 0 0
2015-01-06 1 1
2015-01-07 0 1
我尝试了以下代码,但没有用...
y <- ifelse(x>0,1,0)
y