R/getJac.R

"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
}

Try the TIMP package in your browser

Any scripts or data that you put into this service are public.

TIMP documentation built on Dec. 28, 2022, 3:06 a.m.