R/getJac.R
In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"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

}

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

TIMP documentation built on May 2, 2019, 5:55 p.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the TIMP package in your browser