data(dailyrainfall)
# restrict for the sake of speed
idx <- which(as.POSIXlt(dailyrainfall$date)$year + 1900 < 1976)
data <- dailyrainfall[idx, ]
f <- ftmev(data, minyears = 5)
predict(f, term = "year")
Run the code above in your browser using DataLab