"calcC" <- function(theta, t) { tfun <- function(t, r) exp(-r * t) mapply(tfun, r = theta, MoreArgs = list(t = t)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.