#' @title sigmoid
#'
#' @description
#' \code{sigmoid} logistic function, parameters a, b, c are members of vector
#' params
#'
#' @author Kamil Jaron \email{kamiljaron at gmail.com}
#'
#' @export
sigmoid <- function(params, x) {
params[1] / (1 + exp(-params[2] * (x - params[3])))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.