if (FALSE) {
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)
}
Run the code above in your browser using DataLab