https://github.com/cran/aster
Raw File
Tip revision: 61fc3cd89e7f6776279333b534652356c7059f89 authored by Charles J. Geyer on 13 June 2021, 03:40 UTC
version 1.1-2
Tip revision: 61fc3cd
famfun.R
famfun <- function(fam, deriv, theta) {
    setfam(list(fam))
    result <- .C(C_aster_family,
        index = as.integer(1),
        deriv = as.integer(deriv),
        theta = as.double(theta),
        value = double(1))$value
    clearfam()
    return(result)
}
back to top