Generalised Logistic growth model
Computes the Generalised Logistic growth model
y(t) = A + (U - A)/(1 + β * exp(-k * (t- t_0)))
generalisedLogistic(t, A, U, k, beta, t0) generalisedLogistic.inverse(x, A, U, k, beta, t0 = 0)
t |
time |
x |
size |
A |
the lower asymptote |
U |
the upper asymptote |
k |
growth range |
beta |
growth range |
t0 |
time shift (default 0) |
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)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.