#'Bone Marrow Transplant
#'
#'@description Bone marrow transplant data from L Scrucca et aL., Bone Marrow
#' Transplantation (2007). Data from 35 patients with acute leukaemia who
#' underwent HSCT. Used for competing risk analysis.
#'@name BMT
#'@docType data
#'@usage data("BMT")
#'@format A data frame with 35 rows and 3 columns.
#'\preformatted{
#'- dis: disease; 0 = ALL; 1 = AML
#'- ftime: follow-up time
#'- status: 0 = censored (survival); 1 = Transplant-related mortality; 2 = relapse
#'}
#'@references Scrucca L, Santucci A, Aversa F. Competing risk analysis using R:
#' an easy guide for clinicians. Bone Marrow Transplant. 2007 Aug;40(4):381-7.
#'
#' @examples
#' data(BMT)
#' if(require("cmprsk")){
#'
#' # Data preparaion
#' #+++++++++++++++++++++
#' # Label diseases
#' BMT$dis <- factor(BMT$dis, levels = c(0,1),
#' labels = c("ALL", "AML"))
#' # Label status
#' BMT$status <- factor(BMT$status, levels = c(0,1,2),
#' labels = c("Censored","Mortality","Relapse"))
#'
#' # Cumulative Incidence Function
#' # ++++++++++++++++++++++++++
#' fit <- cmprsk::cuminc(
#' ftime = BMT$ftime, # Failure time variable
#' fstatus = BMT$status, # Codes for different causes of failure
#' group = BMT$dis # Estimates will calculated within groups
#' )
#'
#'# Visualize
#'# +++++++++++++++++++++++
#' ggcompetingrisks(fit)
#' ggcompetingrisks(fit, multiple_panels = FALSE,
#' legend = "right")
#'
#'}
#'
NULL
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.