## 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