Nothing
# The survfitcoxph.fit function was replaced by coxsurv.fit, which has a few
# more arguments and a more logical naming (it fits in with other calls).
# Enough people use rms, however, which calls survfitcoxph.fit, that we are
# giving this as a temporary pass through.
survfitcoxph.fit <- function(y, x, wt, x2, risk, newrisk, strata, se.fit,
survtype, vartype, varmat, id, y2, strata2,
unlist=TRUE) {
# soon, but not at first issue
# .Deprecated("coxsurv.fit", "survival")
Call <- match.call()
if (missing(survtype)) {
stype <- 1
ctype <- 1
} else {
stype <- c(1,2,2)[survtype]
ctype <- c(1,1,2)[survtype]
}
indx <- match(c("y", "x", "wt", "x2", "y2", "risk", "strata", "strata2",
"se.fit", "varmat"), names(Call), nomatch=0)
temp <-Call[c(1, indx)]
temp[[1]] <- quote(survival::coxsurv.fit)
temp$ctype <- ctype
temp$stype <- stype
if (!missing(newrisk)) temp$risk2 <- newrisk
if (!missing(id)) temp$id2 <- id
temp$unlist <- unlist
eval(temp, parent.frame())
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.