一般做检验，直接会summary结果，通常情况下，会看到很多很多，口区~
kable函数了。
我先给出学长给我的一部分，回头整理好了再补充
culture_result %>%
map_dfr(
~
data.frame(
statistic = .$LMlag$statistic,
p.value = .$LMlag$p.value,
method = .$LMlag$method,
model = .$LMlag$data.name
)
) %>%
mutate(model = str_replace_all(model, "\n", " ")) %>%
mutate(year = c(2008, 2013, 2018)) %>%
knitr::kable() %>%
clipr::write_clip()
要补充的笔记有两点
1.如何在检验结果中提取各种检验值
2. kable 函数学习，主要是一些个参数把
