vbfr(age = NULL, L = NULL, agephi = NULL, agepsi = NULL, graph = TRUE,
gestimate = TRUE, Lphiparms = c(NA, NA, NA), Lchiparms = c(NA, NA, NA),
Lpsiparms = c(NA, NA, NA),control = list(maxiter = 10000))
control
under function nls.The formulae to get the conventional von Bertalanffy parameters are: Linf = lphi + (lpsi-lphi)/(1-r^2) where r = (lpsi-lchi)/(lchi-lphi)
K = -(2*log(r))/(agepsi-agephi)
t0 = agephi + (1/K)*log((Linf-lphi)/Linf)
If gestimate=TRUE, unconstrained nonlinear least-squares (function nls) is used to fit the model. If gestimate=FALSE, constrained nonlinear least-squares is used (algorithm "port" in nls).
data(pinfish)
with(pinfish,vbfr(age=age,L=sl,agephi=3,agepsi=6))
Run the code above in your browser using DataLab