library(changeS)
nile <- data.frame(year=1871:1970, height=Nile)
nileOut <- fitS(nile,1,2)
pdf(nileOut)
nile <- data.frame(year=1871:1970, height=Nile)
nileOut <- fitS(nile,1,2)
pdf(file="Nile_flow.pdf")
plot(nileOut)
nile <- data.frame(year=1871:1970, height=Nile)
nileOut <- fitS(nile,1,2)
library(changeS)
nile <- data.frame(year=1871:1970, height=Nile)
nileOut <- fitS(nile,1,2)
plot(nileOut)
