library(stockassessment)
load("run/model.RData")
source("src/newrunwithout.R")
LO<-fixleaveout(fit)
save(LO, file="run/leaveout.RData")