Revision 7016e6b97f24943bdab11323884baf030f38260b authored by Charles J. Geyer on 06 July 2018, 07:20:08 UTC, committed by cran-robot on 06 July 2018, 07:20:08 UTC
1 parent 8d6f670
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)
}
Computing file changes ...
