R xts将某列中的值替换为日期

我正在努力替换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

---

我肯定我做错了什么，但我还没有找到解决方案，因为类似的问题是不同的。

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

我需要添加一个逗号：

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

---

test[“1996-08-02”，“CASH”]$CASH您可以使用以下命令保存附加函数调用：
test[“1996-08-02”，“CASH”]@DanielMc您可能希望接受您的答案（绿色勾号），因为它解决了您的问题
test["1996-08-02",]$CASH <- 1
# works!