swh:1:snp:bbee81fcdc4b36c131a8db323aa6b1ea43209e9a
Tip revision: b4fd42b2256e32a18f4b6661e3558f602df8d775 authored by Charles J. Geyer on 30 June 2013, 00:00:00 UTC
version 0.8-27
version 0.8-27
Tip revision: b4fd42b
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)
}