Nothing
lines.cpf <- function(x, conf.int = FALSE, mark.time = FALSE,
mark = 3, col = 1, lty, ci.lty = 3, ...) {
if (!inherits(x, "cpf"))
stop("'x' must be of class 'cpf'")
ns <- length(x$size.strata)
if (missing(lty)) {
lty <- 1:ns
}
else {
if (length(lty) < ns) {
lty <- lty[1]:ns
}
}
if (length(col) < ns) {
col <- rep(col[1], ns)
}
size <- c(0, x$size.strata)
levels <- x$X[, ]
levels[is.null(levels)] <- 1
who <- rep(levels, x$size.strata)
for (i in seq_along(levels)) {
lines(x$time[who == levels[i]], x$cp[who == levels[i]], type = "s",
col = col[i], lty = lty[i], ...)
if (conf.int) {
lines(x$time[who == levels[i]], x$lower[who == levels[i]],
type = "s", lty = ci.lty, col = col[i], ...)
lines(x$time[who == levels[i]], x$upper[who == levels[i]],
type = "s", lty = ci.lty, col = col[i], ...)
}
if (mark.time) {
points(x$time[x$n.event[, 2] != 0][who == levels[i]],
x$cp[x$n.event[, 2] != 0][who == levels[i]],
pch = mark, col = col[i], ...)
}
}
invisible()
}
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.