An R-Based Landscape Validation of a Competing Risk Model

Summary

The present protocol describes codes in R for evaluating the discrimination and calibration abilities of a competing risk model, as well as codes for the internal and external validation of it.

Abstract

The Cox proportional hazard model is widely applied for survival analyses in clinical settings, but it is not able to cope with multiple survival outcomes. Different from the traditional Cox proportional hazard model, competing risk models consider the presence of competing events and their combination with a nomogram, a graphical calculating device, which is a useful tool for clinicians to conduct a precise prognostic prediction. In this study, we report a method for establishing the competing risk nomogram, that is, the evaluation of its discrimination (i.e., concordance index and area under the curve) and calibration (i.e., calibration curves) abilities, as well as the net benefit (i.e., decision curve analysis). In addition, internal validation using bootstrap resamples of the original dataset and external validation using an external dataset of the established competing risk nomogram were also performed to demonstrate its extrapolation ability. The competing risk nomogram should serve as a useful tool for clinicians to predict prognosis with the consideration of competing risks.

Introduction

In recent years, emerging prognostic factors have been identified with the development of precision medicine, and prognostic models combining molecular and clinicopathological factors are drawing increasing attention in clinical settings. However, non-graphical models, such as the Cox proportional hazard model, with results of coefficient values, are difficult for clinicians to understand¹. In comparison, a nomogram is a visualization tool of regression models (including the Cox regression model, competing risk model, etc.), a two-dimensional diagram designed for the approximate graphical computation of a mathematical function². It enables the valuation of different levels of variables in a clinical model and the calculation of risk scores (RS) to predict prognosis.

Model evaluation is essential in model construction, and two characteristics are generally accepted for evaluation: discrimination and calibration. In clinical models, discrimination refers to the ability of a model to separate individuals who develop events from those who do not, such as patients who die versus those who remain alive, and the concordance index (C-index) or the area under the receiver operating characteristic curve (AUC) are typically used to characterize it^3,4. Calibration is a process of comparing the predicted probabilities of a model with the actual probabilities, and calibration curves have been widely used to represent it. In addition, model validation (internal and external validation) is an important step in model construction, and only validated models can be further extrapolated⁵.

The Cox proportional hazard model is a regression model used in medical research for investigating the associations between prognostic factors and survival status. However, the Cox proportional hazard model only considers two statuses of outcome [Y (0, 1)], while study subjects often face more than two statuses, and competing risks arise [Y (0, 1, 2)]¹. Overall survival (OS), which is defined as the time from the date of origin (e.g., treatment) to the date of death due to any cause, is the most important endpoint in survival analysis. However, the OS fails to differentiate cancer-specific death from non-cancer-specific death (e.g., cardiovascular events and other unrelated causes), thus ignoring competing risks⁶. In these situations, the competing risk model is preferred for the prediction of survival status with the consideration of competing risks⁷. The methodology of constructing and validating Cox proportional hazard models is well-established, while there have been few reports regarding the validation of competing risk models.

In our previous study, a specific competing risk nomogram, a combination of a nomogram and competing risk model, and a risk score estimation based on a competing risk model were established⁸. This study aims to present different methods of evaluation and validation of the established competing risk nomogram, which should serve as a useful tool for clinicians to predict prognosis with the consideration of competing risks.

Protocol

The Surveillance, Epidemiology, and End Results (SEER) database is an open-access cancer database that only contains deidentified patient data (SEER ID: 12296-Nov2018). Therefore, this study was exempted from the approval of the review board of the Affiliated Jinhua Hospital, Zhejiang University School of Medicine.

1. Data preparation and R packages preparation

1. Prepare and import the data.
   > Dataset <- read.csv("…/Breast cancer Data.xlsx") #Import data.
   NOTE: The data are uploaded in Supplementary File 1.
2. Install and load the R packages.
   > packages <- c("rms","cmprsk","mstate","survival","riskRegression","
   prodlim")
   > req.pcg <- function(pcg){
   new <- pcg[!(pcg %in% installed.packages()[, "Package"])]
   if (length(new)) install.packages(new, dependencies = T)
   sapply(pcg, require, ch = T)
    }
   > req.pcg(packages)
   ​NOTE: Perform the following procedures based on R software (version 3.6.2) using the packages rms, cmprsk, mstate, survival, riskRegression, and prodlim (http://www.r-projectrg/).

2. Establish competing risk nomograms in two distinct methods

1. Establish the competing risk nomogram in a direct method.
   > mod_cph <- cph(Surv(Survivalmonths, status) ~ factor1+ factor2+…,
    x=T, y=T, surv=T, data=Dataset)
   > nom <- nomogram(mod_cph, fun=list(function(x) 1-surv_cph(36, x)…),
    funlabel=c("3-year event1 Prob."…), lp=F) #Take the 36th month as an example.
   > mod_crr <- crr(Survivalmonths, fstatus, failcode=1, cov1=cov)
   > score <- log(log((1-real.3y),(1-cif.min36)))/(maxbeta/100)
   > plot(nom)
2. Establish the competing risk nomogram in a weighted method.
   > df.w <- crprep("Survivalmonths"," fstatus",
    data=Dataset, trans=c(1,2), cens=0,
    keep=c("factor1"," factor2"…))
   > mod.w <- cph(Surv(Tstart, Tstop, status==1) ~ factor1+factor2+…,
    data=df.w, weight=weight.cens, subset=failcode==1, surv=T)
   ​> nom.w <- nomogram(mod.w…)

3. Discrimination ability of the competing risk nomogram

1. C-index for discrimination
   1. Fit the matrix cov into the competing risk model mod_crr. and get a predicted matrix suv.
      > suv <- predict.crr(mod_crr, cov)
   2. Get the cumulative incidences in a certain month from suv and calculate the C-index with the function rcorr.cens.
      > cif36 <- suv[which(suv[,1]==36),][-1]
      > rcorr <- rcorr.cens(1-cif36,Surv(Dataset$Survivalmonths,Dataset$tumordeath))
      > cindex <- rcorr[1]
2. AUC for discrimination
   1. Score the predictive performance of the competing risk model using the function Score (riskRegression package).
      > fgr.w <- FGR(Hist(Survivalmonths, fstatus) ~ factor1+ factor2+…, data=Dataset, cause=1)
      > score <- Score(list("Fine-Gray" = fgr.w),
   2. Extract the AUC from the "score".
      ​> score$AUC

4. Calibration ability of competing risk models

1. Calibration curves with a 95% confidence interval of the competing risk model
   1. Get a data frame with the cumulative incidences of each individual in a certain failure time.
      > cif36 <- data.frame(cif36) #Take the 36th month as an example.
      > colnames(cif36.36_o)<-c("36m")
   2. Divide the cohort according to the estimated cumulative incidences into five subgroups and calculate the average predicted cumulative incidences of each subgroup.
      > group36 <- cut(cif36$`36m`,
      quantile(cif36$`36m`, seq(0, 1, 0.2)),
      include.lowest = TRUE, labels = 1:5)
      > mean36 <- as.vector(by(cif36 $`36m`, group36, mean))
   3. Calculate the observed cumulative incidences, that is, the actual cumulative incidences, using the function cuminc, and then get the observed cumulative incidences with a 95% confidence interval in a certain failure time.
      > cum36 <- cuminc(Dataset$Survivalmonths,Dataset$fstatus,group36)
      > obs36 <- timepoints(cum36,Dataset$Survivalmonths)$est[c(1:5),36]
      > obs36var <- timepoints(cum36,Dataset$Survivalmonths)$var[c(1:5),36]
      > df <- data.frame(mean36, obs36, obs36var)
   4. Plot the calibration curve with the predicted cumulative incidences as the x-axis and the observed cumulative incidences as the y-axis using the function ggplot.
      > ggplot(df)+ geom_point(aes(x=mean36,y=obs36),col="red")+
       geom_point(aes(x=mean36,y=obs36),col="red",pch=4)+
       geom_line(col="red",aes(x=mean36,y=obs36))+
       geom_errorbar(col="red",aes(x=mean36,y=obs36+1.96
      *sqrt(obs36var)),
       ymin =obs36-1.96*sqrt(obs36var), ymax = obs36+1.96
      *sqrt(obs36var))
      geom_abline(lty=3,lwd=2,col=c(rgb(0,118,192,
      maxColorValue=255)))
2. Calibration curve with risk scores of the competing risk model
   1. Valuate each level of all the variables and obtain the total RS.
      > Dataset$factor1[Dataset$factor1==1] <- factor1.scale["Factor1_level1"]
      > … #For example, Dataset$histology[Dataset$histology==1]<-histology.scale["Histology1"]
      > Dataset$rs <- Dataset$factor1+Dataset$factor2+Dataset$factor3+…
      NOTE: Obtain the total RS for each patient by summing the points of each variable.
   2. Count the frequencies and calculate the observed cumulative incidences of the different total risk scores.
      > rs.freq <- as.data.frame(table(Dataset$rs))
      > obs.36 <- vector(mode="numeric", length=nrow(rs.freq))
      > for (i in 1: nrow(rs.freq)) {
       dataset <- subset(Dataset,Dataset$rs== rs.freq [i,1])
       cif.dataset <- cuminc(dataset$Survivalmonths,dataset$death3)
       cif36.dataset <- timepoints(cif.dataset,36)
       obs.36[i] <- cif36.dataset$est[1]}
   3. Set the range of the x-axis and calculate the predicted cumulative incidences of the total risk scores.
      > RS <- range(nom$total.points)
      > x.36 <- seq(min(RS),max(RS),0.01)
      > pre.36 <- 1-(1-cif.min36)^exp(x.36*maxbeta/100)
   4. Plot the calibration curve with risk scores.
      > plot(x.36, pre.36, type='l'…)
      > par(new=TRUE)
      ​> plot(as.vector(rs.freq[,1]), obs.36… )

5. Decision curve analysis of competing risk models

1. Source the stdca function to perform the decision curve analysis.
   > source("stdca.R")
2. Extract the polynomial equations from the nomogram to calculate the survival probability.
   > nomogramEx(nomo = nom)
   > Dataset$predictors <- A * (Dataset$rs ^3) + B * (Dataset$rs ^2) + C * Dataset$rs + D #predictors are predicted probabilities of cancer-specific death calculated by the established nomogram
3. Perform the decision curve analysis.
   > stdca(data = Dataset, outcome = "status", ttoutcome = "Survivalmonths", timepoint = 36,
    predictors = "predictors", cmprsk = TRUE, smooth = FALSE, probability = FALSE)
   NOTE: For evaluating an outcome in the presence of a competing risk, TRUE should be chosen for cmprsk.

6. Internal validation using the bootstrap method

1. Get the average predicted cumulative incidences using the bootstrap method.
   1. Resample the original dataset (Dataset) with replace to generate the bootstrap dataset (Dataset_in). Establish a competing risk model (mod.in_crr) with the bootstrap dataset. Use the function predict.crr to predict mod.in_crr and loop b times to generate suvall.in.
      B=b
      suvall.in <- list()
      for(j in 1:B){
       Dataset_in <- Dataset[sample(c(1:nrow(Dataset)),nrow(Dataset),
      replace = TRUE),]
      attach(Dataset_ in)
       cov. in <- model.matrix(~factor1+ factor2+…)[,-1]
       mod. in _crr <- crr(Survivalmonths, fstatus, failcode=1, cov1=cov.in)
      detach(Dataset. inner)
      suv. in <- predict.crr(mod. in _crr, cov)
      suvall.in[[j]] <- suv.in}
   2. Get the average predicted cumulative incidences in a certain month.
      cif36all. inner <- vector(mode="numeric", length=nrow(Dataset))
      for (k in 1:B) {
       cif36all. inner<- cif36all. inner+ suvall. inner[[k]][which(suvall. inner[[k]][,1]==36),][-1]
      }
      cif36.in <- cif36all.in/B
2. Calculate the C-index using internal cross-validation with the function rcorr.cens.
   rcorr. inner <- rcorr.cens(1-cif36.in,Surv(Dataset$Survivalmonths,Dataset$tumordeath))
   cindex. inner <- rcorr. inner[1]
3. Calibrate using the cross internal validation.
   ​NOTE: The codes of the calibration curve of the competing risk model with internal validation are similar to the codes in section 4, while suv was replaced by suv.in.

7. External validation of the competing risk model

1. Get the predicted cumulative incidences using external data. Get the predicted cumulative incidences with the matrix of external data variables (cov.ex).
   suv.ex <- predict.crr(mod_crr,cov.ex)
   cif36.ex <- suv.ex [which(suv.ex $time=="36"),][-1]
2. Calculate the C-index using external validation.
   rcorr.ex <- rcorr.cens(1-cif36.ex,Surv(Dataset.ex$Survivalmonths,Dataset.ex$tumordeath))
   cindex.ex <- rcorr.ex[1]
3. Calibrate using external validation.
   NOTE: The codes of the calibration curve of the competing risk model with internal validation are similar to the codes in section 4, while suv is replaced by suv.ex.

Results

In this study, data of patients with breast cancer were retrieved from the SEER database and served as example data. The SEER database provides data on cancer representing around 34.6% of the United States population, and permission to access the database was obtained (reference number 12296-Nov2018).

Two nomograms (Figure 1), both including histological type, differentiated grade, T stage, and N stage, were established using the direct method and the weighted met...

Discussion

This study compared competing risk nomograms established by two distinct methods and conducted evaluation and validation of the established nomograms. Specifically, this study provided a step-by-step tutorial for establishing the nomogram based on a direct method, as well as calculating the C-index and plotting the calibration curves.

The rms package in R software is widely used for the construction and evaluation of Cox proportional hazard models, but it is not applicable for competi...

Materials

Name	Company	Catalog Number	Comments
R software	None	Not Applicable	Version 3.6.2 or higher
Computer system	Microsoft	Windows 10	Windows 10 or higher