#' A function to fit a timepoint to a model formula
#'
#' This just makes it easier to pass nls.LM to llply. Please ignore it
#' @export
mod <- function(modelFormula, timepoint, startPars){
myMod <- minpack.lm::nlsLM(formula = modelFormula, data = timepoint, start = startPars, lower = c(0,0,0))
myMod
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.