# NOT RUN {
data(blackisland); bi <- blackisland
param <- c(Linf=170.0,K=0.3,sigma=4.0)
modelvb <- nlm(f=negNLL,p=param,funk=fabens,observed=bi$dl,indat=bi,
initL="l1",delT="dt") # could have used the defaults
aicbic(modelvb,blackisland) # 588.3382 596.3846 291.1691 3
# }
Run the code above in your browser using DataLab