library(stockassessment)
setwd("run")
load("data.RData")

conf<-loadConf(dat,"../conf/model.cfg", patch=TRUE)

par <- defpar(dat,conf)

fit <- sam.fit(dat,conf,par ) 

save(fit, file="model.RData")