powered by
Logistic function of the form \( (1 + exp(-\beta * (x - \alpha)))^(-1) \)
logistic_fun(x, p)
Vector of values of the explanatory variable.
Vector of parameters \(p = c(\alpha, \beta)\).
Probability at each x.
x
inv_logistic_fun
# NOT RUN { xseq <- seq(0, 4, .01) yseq <- logistic_fun(xseq, c(2, 4)) curve <- data.frame(x = xseq, y = yseq) ggplot(curve, aes(x = x, y = y)) + geom_line() # }
Run the code above in your browser using DataLab