我想看看是否有人可以提供以下问题的完整版本(理想情况下是在管道中或不需要循环的内容中)。我正在尝试获取一个日期列,并从中提取一个嵌套列表,每个列表包含24个日期(顺序)。
library(tidyverse)
library(lubridate)
df <-read_csv("https://raw.githubusercontent.com/Nicktz/ExDat/master/extdata/findata.csv") %>% gather(Stock, Price, -Date) %>%
filter(Date <= ymd(20070501)) %>% mutate(Ret = Price / lag(Price) - 1)
DateCol <- df %>% pull(Date) %>% unique
# Roll Window
Roll_Window <- list()
Min_Window <- 24
for( i in Min_Window:length(DateCol)){
Roll_Window[c(i-Min_Window)+1] <-
list(DateCol[c(i-Min_Window+1):i])
}