r - 参照が埋め込まれたロール適用

Question

私の現在のコードはこれです：

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、回帰方程式をサブインしようとしているだけですが、エラーが発生し続けます。どんな助けでも大歓迎です。

score 3 · Accepted Answer

do you want to do は明確ではありませんが、次のように式を因数分解できます。

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

1 に答える 1