`poplogist` <- function(t, r, N0, K) { K/(1 + (K-N0)/N0 * exp(-r * t)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.