第11周课后作业

---

1. 根据第九讲课程讲义的打印稿，在 📑 Rmd 中键入并完成代码的运行。

2. 浏览（阅读）tidyquant 包配套的七份 📰 vignettes

3. 进一步了解 📦 {{slider 包}}，想想如何通过参数设定实现以下的移动窗口

图示

模拟数据与代码补全

# 模拟数据
set.seed(123456)
tbl <- tibble(
  Count = runif(16, min=100, max=320) %>% 
    as.integer(), 
  Year = 1997:2012
)
# sliding
tbl %>% 
  mutate(mean = slide_dbl(<...>))
# tiling
tbl %>% 
  mutate(mean = slide_dbl(<...>))
# stretching
tbl %>% 
  ...

4. 将包含上述 1 和 3 项任务代码的 Rmd 文档（命名 qfwr-L09_hw.Rmd），于2022年11月30日24:00前提交至 {{坚果云链接}}

---