R/earthlib.R

In earth: Multivariate Adaptive Regression Splines

# earthlib.R: general purpose routines for the earth package

# Modify call to refer to the generic e.g. "foo.default" becomes "foo".
# This means that functions like update() call foo() and not foo.default().
# An advantage is that we don't have to export foo.default().

make.call.generic <- function(call, fname)
{
    call[[1]] <- as.name(fname)
    call
}