## Not run:
# data(lingcod)
# outs<-catchmsy(year=lingcod$year,
# catch=lingcod$catch,catchCV=NULL,
# catargs=list(dist="none",low=0,up=Inf,unit="MT"),
# l0=list(low=0.8,up=0.8,step=0),
# lt=list(low=0.01,up=0.25,refyr=2002),sigv=0,
# k=list(dist="unif",low=4333,up=433300,mean=0,sd=0),
# r=list(dist="unif",low=0.015,up=0.5,mean=0,sd=0),
# bk=list(dist="unif",low=0.5,up=0.5,mean=0,sd=0),
# M=list(dist="unif",low=0.24,up=0.24,mean=0.00,sd=0.00),
# nsims=30000)
# outbio<-dlproj(dlobj = outs, projyears = 20, projtype = 0, grout = 1)
# ## End(Not run)
Run the code above in your browser using DataLab