使用xts的period.apply（）时的一周中的第一天问题

Question

我正在尝试使用xts包将我的每日系列转换为每周频率。但是，我不知道如何规定系列赛的第一周是周日。函数文档中没有引用可用于此操作的任何参数。

my_xts <- xts(mydf[, -1], order.by = mydf$Date, tzone = Sys.getenv("TZ"))
my_xts_weekly <- period.apply(my_xts, endpoints(my_xts, on = "weeks"), colSums)
nrow(my_xts_weekly)