powered by
Computes the Generalised Logistic growth model $$ y(t) = A + \frac{U - A}{1 + \beta exp(-k (t- t_0))}$$
generalisedLogistic(t, A, U, k, beta, t0)generalisedLogistic.inverse(x, A, U, k, beta, t0 = 0)
generalisedLogistic.inverse(x, A, U, k, beta, t0 = 0)
time
the lower asymptote
the upper asymptote
growth range
time shift (default 0)
size
Daniel Rodriguez
http://en.wikipedia.org/wiki/Generalised_logistic_function
growth <- generalisedLogistic(0:10, 5, 10, 0.3, 0.5, 3) # Calculate inverse function time <- generalisedLogistic.inverse(growth, 5, 10, 0.3, 0.5, 3)
Run the code above in your browser using DataLab