income <- read.table(file =
"income_end.txt"
,header = T)
y <- income[,7]
x <- income[,1]
acf(y,na.action = na.pass) #缺失值出现
?acf
pacf(y,na.action = na.pass)
y <- income[,7]
x <- income[,1]
acf(y,na.action = na.pass) #缺失值出现
?acf
pacf(y,na.action = na.pass)