#' @export
maximum_likelihood_intercepts <- function(times, delta) {
return(nlm(FHT_only_intercepts, c(0.1, 0.1), times, delta)$estimate)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.