p<-ts(data$水位,start=c(1860),frequency=1)
#Draw a sequence diagram
plot(p,type = "o")
#Draw autocorrelation diagram
acf(p,lag.max =
p<-ts(data$水位,start=c(1860),frequency=1)
#Draw a sequence diagram
plot(p,type = "o")
#Draw autocorrelation diagram
acf(p,lag.max =