Skip to main content

Browse the archive

Revision 63c8e8a453ea587001e2438a8ce51cf0e1e1675c authored by Charles J. Geyer on 23 March 2009, 00:00:00 UTC, committed by Gabor Csardi on 23 March 2009, 00:00:00 UTC 
version 0.7-7
1 parent b524c08
Raw File
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