rollapply 与嵌入式参考答案

【问题标题】：rollapply with embedded referencerollapply 与嵌入式参考
【发布时间】：2013-03-26 00:00:02
【问题描述】：

我当前的代码是这样的：

Model <- head(rollapplyr(z, width = 131, function(x)
  fitted(lm(y ~x1+ x2, data = as.data.frame(x))), by.column = FALSE)[,131],3429)

我想这样做：

fit1 <- lm(y ~x1+ x2)
Model <- head(rollapplyr(z, width = 131, function(x) fitted(fit1),
  data = as.data.frame(x))), by.column = FALSE)[,131],3429)

基本上，我只是想在fit1 中加入回归方程，但我不断收到错误消息。任何帮助将不胜感激。

【问题讨论】：

标签： r zoo

【解决方案1】：

不清楚你想做什么，但你可以像这样分解公式：

form <- y ~ x1 + x2
FUN <- function(x) fitted(lm(form, data = as.data.frame(x)))
rollapplyr(z, 131, FUN, by.column = FALSE)

【讨论】：