https://github.com/cran/aster
Tip revision: 44b6d702d0f8bb217d173e65fa2f0ee7913d93ef authored by Charles J. Geyer on 08 October 2007, 00:00:00 UTC
version 0.7-3
version 0.7-3
Tip revision: 44b6d70
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)
}