R/ucv_1.R

"Ucv" <-
function(svals)
{
        if(missing(svals)) return(5)
        n <- length(svals)
        fvals <- double(n)
        f.res <- .Fortran("ucva",
                n = to.integer(n),
                svals = to.single(svals),
                fvals = as.double(fvals))
        f.res$fvals
}

Try the robeth package in your browser

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

robeth documentation built on June 13, 2018, 5:04 p.m.