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")