library(stockassessment)
load("run/model.RData")
RETRO<-retro(fit, year=5)
rho <- mohn(RETRO)
rho1 <- mohn(RETRO,lag=1)
save(RETRO, rho, rho1,file="run/retro.RData")