R/logistic.R

In grofit: The package was developed to fit fit many growth curves obtained under different conditions.

logistic <-
function (time, A,mu,lambda, addpar=NULL)
{
A      <- A[1]
mu     <- mu[1]
lambda <- lambda[1]

if (is.numeric(time)==FALSE) stop("Need numeric vector for: time")
if (is.numeric(mu)==FALSE) stop("Need numeric vector for: mu")
if (is.numeric(lambda)==FALSE) stop("Need numeric vector for: lambda")
if (is.numeric(A)==FALSE) stop("Need numeric vector for: A")

y        <- A / (1+exp(4*mu*(lambda-time)/A+2))
logistic <- y
}