R语言 平稳性检验 差分

data = read.csv("/Users/Mac/Desktop/xu.csv")

library(tseries)

x=diff(data$lnx1)

setwd("/Users/Mac/Desktop/") 输出在桌面

write.table(x,"sample1.csv",sep=",")　　输出表格

adf.test(data$a) adf检验

data

pp.test(data$b) pp检验

?diff

w=diff(data$b,2) 二阶差分

a = diff(data$a, lag = 1,differences=1) 一阶差分

plot(w ~ x + y + z) 线性图

plot(data$a)

plot(a)

fx <- lm(data$b ~ data$a + data$c + data$d)

insta

library(car)

scatterplotMatrix(data$b ~ data$a + data$c + data$d,main = "plot")