Nothing
#'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
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.