This closure is useful for simulating q inside the
`sim_survey`

function

sim_logistic(k = 2, x0 = 3, plot = FALSE)

k | The steepness of the curve |
---|---|

x0 | The x-value of the sigmoid's midpoint |

plot | Plot relationship |

logistic_fun <- sim_logistic(k = 2, x0 = 3, plot = TRUE) logistic_fun(x = 1:10)