R/calcB.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"calcB" <-
  function(k) {
    lenk <- length(k)
    m <- rep(0, lenk * lenk)
    m <- as.matrix(.C("r_calcB",
      m = as.double(m), as.double(k),
      as.integer(lenk), PACKAGE = "TIMP"
    )$m)
    dim(m) <- c(lenk, lenk)
    m
  }