library(stockassessment)
load("run/model.RData")
RETRO<-retro(fit, year=c(2025,2024,2023,2022,2021))
save(RETRO, file="run/retro.RData")