程序如下:
setwd("e:/")
mydata <- read.table("e:/金融统计.txt")
mydata
mytimeseries<-ts(mydata)
mytimeseries
plot.ts(mytimeseries)
library(timeSeries)
adf.test<-(mytimeseries)
结果如下：

> plot.ts(mytimeseries) > library(timeSeries)Loading required package: timeDate> adf.test<-(mytimeseries)

>