Nothing
#' Plot crude event probabilities
#'
#' Plot function for the computed crude event probabilties.
#'
#' @usage \method{plot}{crude}(x, ylim = c(0, 1), xlim = NULL, ci = T, col = 1,
#' ylab = NULL, xlab = "Time", add = F, \dots)
#' @param x Object of class \code{crude} in which crude probabilities are stored.
#' @param ylim Limits of y-axis.
#' @param xlim Limits of x-axis.
#' @param col Colour of each curve.
#' @param ylab Label of the y-axis. If \code{NULL}, the function uses its default labels depending on \code{object$type}.
#' @param xlab Label of the x-axis (default is "Time").
#' @param add Logical indicating wether the cruves should be added to the current plot window (default is \code{FALSE}).
#' @param ci Logical. If \code{TRUE} (default), confidence intervals are added to the plot.
#' @param ... Further arguments passed to \code{plot} and \code{lines}.
#' @export
#' @method plot crude
plot.crude <- function(x, ylim = c(0, 1), xlim = NULL, ci = T,
col = 1, ylab = NULL, xlab = "Time", add = F, ...){
object <- x
attr <- attributes(object)
if(is.null(ylab)){
ylab <- switch(attr$type, disease = "Cumulative incidence of disease-related death",
other = "Cumulative incidence of non-disease-related death",
condother = "Conditional probability")
if(attr$reverse) ylab <- "Conditional probability"
}
if(is.null(xlim)) xlim <- range(attr$time)
if(length(col) == 1){
col <- rep(col, length(object))
}
if(ci & !attr$ci){
ci <- FALSE
}
for(i in 1:length(object)){
if(i == 1 & !add){
plot(Estimate ~ attr$time, data = object[[i]], ylim = ylim, xlim = xlim,
type = "l", col = col[i], ylab = ylab, xlab = xlab, ...)
}else{
lines(Estimate ~ attr$time, data = object[[i]], col = col[i], ...)
}
if(ci){
lines(lower.ci ~ attr$time, data = object[[i]], lty = 2, col = col[i], ...)
lines(upper.ci ~ attr$time, data = object[[i]], lty = 2, col = col[i], ...)
}
}
}
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.