"getJac" <- function(k, x) {
jac <- array(0, dim = c(length(x), length(k), length(k)))
for (i in 1:length(k)) {
jac[, i, i] <- -x * exp(-k[i] * x)
}
jac
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.