The R Project SVN R-packages

# SCCS @(#)frailty.s    1.2 01/14/99
# 
# Parent function for frailty, calls the actuall working functions
#
frailty <- function(x, distribution = 'gamma', ...) {
    dlist <- c("gamma", "gaussian", "t")
    i <- pmatch(distribution, dlist)
    if (!is.na(i)) distribution <- dlist[i]

    temp <- paste("frailty", distribution, sep='.')
    if (!exists(temp))
        stop(paste("Function '", temp, "' not found", sep=""))
    (get(temp))(x, ...)
    }