inst/dev-codes/mytxtfn.R

myfn<-function(prm, y = NULL, t = NULL){;
for (i in 1:length(prm) ){
joe<-paste(names(prm)[[i]],"<-",prm[[i]]);
 eval(parse(text=joe));
};
 eval(crossprod(b1/(1 + b2 * exp(-1 * b3 * t)) - y))
 }

Try the nlmrt package in your browser

Any scripts or data that you put into this service are public.

nlmrt documentation built on May 1, 2019, 11:31 p.m.