R 中的时间序列 - 无法以不同的日期作为参考来计算每周回报

问：

我正在学习 R 中的时间序列。我无法计算指定日期作为截止日期的每周回报。问题出在切片上，但我能够找到解决方案。

语法如下：

library(lubridate)
TWII=read.csv("TWII.csv")
dat=as.timeSeries(TWII[,"Close"],as.Date(TWII[,1]))
bsDay=wday(dat, label = TRUE)
R1=returns(dat[bsDay=="Mon",])*100 #where the problem lies.
R2=returns(dat[bsDay=="Tue",])*100
R3=returns(dat[bsDay=="Wed",])*100
R4=returns(dat[bsDay=="Thu",])*100 
R5=returns(dat[bsDay=="Fri",])*100

>>>Error in attr(x, "tsp") <- c(1, NROW(x), 1) : cannot assign 'tsp' to zero-length vector.

csv 文件可在此处下载：https://github.com/ronzenith/TWII/blob/main/TWII.csv

非常感谢。