library(spict)

load("run/fit.RData")
FORECAST<-manage(fit)
save(FORECAST,file="run/forecast.RData")