将法线回归模型更改为滚动回归

Question

我有一个样本数据集，其中包含三年内在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)

Answer 1

您可以尝试使用roll_lm软件包中的roll函数。请参阅此处的描述：Package ‘roll’ on Cran