R/specModel.R

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

Try the TIMP package in your browser

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

TIMP documentation built on May 29, 2017, 1:21 p.m.