R/convGausExp.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"convGausExp" <-
function (k, x, mu, tau) 
{
      m <- rep(0, length(x) * length(k))
      m <- as.matrix(.C("r_calcCirf", m = as.double(m), as.double(k), 
                        as.double(x), as.double(tau), as.double(mu),
                        as.integer(length(k)), 
                        as.integer(length(x)), PACKAGE="TIMP")$m)
      dim(m) <- c(length(x), length(k))
      m
}