我有一个样本数据集，其中包含三年内在13个国家/地区的1000种不同产品的销售数量：
13个国家=（美国，中国，英国...） 1000个产品=（产品A，B，C…）
销售数量->我的因变量。
点击数和另外3个作为自变量的变量。
我已经对回归模型进行了编码，并且可以正常工作。在下一步中，我想进行滚动回归：我该如何修改代码？
感谢您的帮助和许多问候！ ：）
# prepare data
nest_dt = raw_data %>%
group_by(product, country) %>%
nest()
# function
lm_function = function(data, formula) {
lm(formula = formula,
data = data)
}
# regression
lm_data = nest_data %>%
mutate(lm = map(
.x = data,
.f = lm_function,
formula = sales ~ clicks + needs + guesses + interests
))
# show solution
solution_data = lm_data %>%
mutate(solution = map(lm, sw_tidy)) %>%
unnest(solution) %>%
select(-data, -lm)
# where to put?!?
rollapply(lm_function, width=10, roll)