求助！怎么用r在一个线性回归方程里加一个y的时间滞后项

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

求助大牛们！怎么用r在一个线性回归中加一个y的滞后项？比如原方程是y=x+z+s
我想变成y=x+z+s+y（-1）
用r语言的话怎么实现？
感激不尽！！！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：线性回归 回归方程 滞后项 感激不尽 R语言

library(dyn)
speed <- zoo(cars$speed)
model <- dyn$lm(speed ~ lag(speed, -1) + lag(speed, -2))
model

铿锵绿色 发表于 2017-5-4 21:24
library(dyn)
speed

请问楼主解决了吗？

kuzhuo 发表于 2019-4-2 20:25
请问楼主解决了吗？

上面的那条没看懂

kuzhuo 发表于 2019-4-2 20:26
上面的那条没看懂

emmm发现了 好像是要library(dynlm)

library(dyn)

x <- ts(seq(15))
y <- lag(x, -1, na.pad = TRUE)
cbind(x, y)

> cbind(x, y)
Time Series:
Start = 1
End = 16
Frequency = 1
    x  y
1  1 NA
2  2  1
3  3  2
4  4  3
5  5  4
6  6  5
7  7  6
8  8  7
9  9  8
10 10  9
11 11 10
12 12 11
13 13 12
14 14 13
15 15 14
16 NA 15

> x <- ts(seq(15))
> y <- lag(x, -1, na.pad = TRUE)
> data<-cbind(x, y)
> data[2:length(x),]
       x  y
[1,]  2  1
[2,]  3  2
[3,]  4  3
[4,]  5  4
[5,]  6  5
[6,]  7  6
[7,]  8  7
[8,]  9  8
[9,] 10  9
[10,] 11 10
[11,] 12 11
[12,] 13 12
[13,] 14 13
[14,] 15 14
>