Fit sigmoidal curve

Fits a sigmoidal growth function that returns value based on day after emergence

Usage

fit_sigmoid(K, B, M)

Arguments

K

upper asymptote

B

growth rate

M

time of maximum growth

Value

function that accepts x and returns y based on fitted model

Details

Fits a sigmoidal growth function to produce a value ranging from 0 to K: $$ \frac{K}{1 + e^{-B \cdot \left(x - M \right)}} $$

See also

fit_custom()

Examples

my_func <- EndoSim:::fit_sigmoid(1, 0.1, 10)
plot(seq(0, 200), my_func(seq(0, 200)), type = "l")