library(spict)
load("run/fit.RData");
RETRO<-retro(fit, nretroyear=5)
save(RETRO, file="run/retro.RData")