R/linear.spline.R

linear.spline <-
function (marginal) 
{
    m = INLA:::inla.marginal.fix(marginal)
    r = range(m$x)
    return(list(range = r, fun = approxfun(m$x, log(m$y))))
}
markvdwiel/ShrinkBayes documentation built on March 27, 2022, 7:47 p.m.