https://github.com/cran/aster
Raw File
Tip revision: fa7795259e71bf245e06b2cf7c012e2f3322cd2f authored by Charles J. Geyer on 14 March 2008, 00:00:00 UTC
version 0.7-4
Tip revision: fa77952
famfun.R
famfun <- function(fam, deriv, theta) {
    setfam(list(fam))
    result <- .C("aster_family",
        index = as.integer(1),
        deriv = as.integer(deriv),
        theta = as.double(theta),
        value = double(1),
        PACKAGE = "aster")$value
    clearfam()
    return(result)
}
back to top