rollapply со встроенной ссылкой

Мой текущий код заключается в следующем:rollapply со встроенной ссылкой

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 для уравнения регрессии, но я все время получаю сообщение об ошибке. Любая помощь приветствуется.

источник

2013-03-26 user2209633

Привет! Пожалуйста, сделайте свое сообщение воспроизводимым, взглянув на [** Как сделать отличный воспроизводимый пример **] (http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible- пример) для нас, чтобы помочь вам. Спасибо. – Arun

Также, пожалуйста, отредактируйте с ошибкой, которую вы получите. – Arun

Это не ясно, что вы хотите сделать, но вы можете вынести формулу так:

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

источник

2013-03-26 00:17:53 agstudy

Спасибо всем! Я посмотрю на это и отредактирую/улучшу свой пост соответственно ... – user2209633

rollapply со встроенной ссылкой

ответ

Смежные вопросы