R/specModel.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"specModel" <-
function (theta, model) 
{
    if (model@specfun == "bspline") 
        E <- calcEbspline(unlist(theta), model)
    if (model@specfun == "gaus") 
        E <- calcEhiergaus(theta, model@x2, model@nupow)
    E
}