Displaying 1 result from an estimated 1 matches for "vonbertinit".
2006 May 24
1
problem-nlme
...ot;nlme" call example:
# differents growth function
#vonBertlalanffy
vonBert<- function(x, Linf, K, t0)
Linf*(1-exp(-K*(x-t0)))
size ~ vonBert(age, Linf, K,t0)
vonBert <-deriv(~ Linf*(1-exp(-K*(x-t0))),
c("Linf","K","t0"),function(x,Linf,K,t0){})
vonBertInit <- function(mCall, LHS, data)
{
xy <- sortedXyData(mCall[["x"]], LHS, data)
Linf <- 900
if (Linf != max(xy[,"y"])) Linf <- -Linf
K <- 0.3
t0<-0
value <- c(Linf, K, t0)
names(value) <- mCall[c("Linf", "K",&quo...