xts按日期替换某列中的值

Question

我正在努力替换xts对象中的值。这是一个样本：

dates <- as.Date(c("1996-08-02","1996-08-05", "1996-08-06"))
test <- xts(rep(1,3), order.by = dates)
names(test) <- "Stock1"
test$CASH <- NA #adding a cash position to portfolio
test["1996-08-02"]$CASH <- 1

在最后一行中，我收到以下警告信息：

In NextMethod(.Generic) :
number of items to replace is not a multiple of replacement length

我确定我做错了什么，但我找不到解决办法，因为类似的问题不同。

Answer 1

我在这里找到了解决方案：

XTS replacement error NextMethod(.Generic) : number of items to replace

我需要添加一个逗号：

test["1996-08-02",]$CASH <- 1
# works!