Nothing
PLL.penfit <- function(object, newdata, newtime, newstatus, complexity = NULL, ...) {
lp <- drop(as.matrix(newdata) %*% object@penalized)
.peperr_pll_from_linear_predictor(
linear.predictor = lp,
time = newtime,
status = newstatus
)
}
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.