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