如何在R中编写for循环来设置列表中数据集的周期以及开始和结束日期

dataset_list <- list()

start_date <- as.Date("2022-01-01")
end_date <- as.Date("2022-12-31")

period_length <- 7

for (date in seq(start_date, end_date, by = period_length)) {
  # 计算周期的结束日期
  end_of_period <- date + period_length - 1
  
  # 创建一个数据集，根据周期的开始日期和结束日期进行筛选或处理数据
  dataset <- your_data_processing_function(start_date = date, end_date = end_of_period)
  
  # 将数据集添加到列表中
  dataset_list[[length(dataset_list) + 1]] <- dataset
}