library(stockassessment)
load("run/model.RData")
LO<-leaveout(fit, fleet = as.list(3:fit$data$noFleets))
save(LO, file="run/leaveout.RData")