library(stockassessment)
load("run/model.RData")
## RETRO <- retro(fit, year=matrix(rep(2017:2014,each=6), ncol=6, byrow=TRUE))
## RETRO <- retro(fit, year = 5)

#ly<-c(2020,2019,2019,2020,2020,2020)
#RETRO <- retro(fit, year = rbind(ly,ly-1,ly-2,ly-3,ly-4))

RETRO<-retro(fit, year=max(fit$data$years)-0:4)

save(RETRO, file="run/retro.RData")