# rocbc

## LE Bantis, B Brewer, CT Nakas, B Reiser

###

## About the rocbc Package

(Authors: LE Bantis, B Brewer, CT Nakas, B Reiser)

This package is focused on Box-Cox based ROC curves and provides point estimates, confidence intervals (CIs), and hypothesis tests. It can be used both for inferences for a single biomarker and when comparisons of two correlated biomarkers are of interest. It provides inferences and comparisons around the area under the ROC curve (AUC), the Youden index, the sensitivity at a given specificity level (and vice versa), the optimal operating point of the ROC curve (in the Youden sense), and the Youden based cutoff. This documentation consists of two parts, the one marker and the two marker case. All approaches presented herein have been recently published (see references for each function).

The functions of each part:

- One marker case

  - checkboxcox
  - threerocs
  - rocboxcox
  - rocboxcoxCI

- Two marker case (comparisons of two markers)

  - checkboxcox2
  - comparebcAUC
  - comparebcJ
  - comparebcSens
  - comparebcSpec
  - threerocs2

checkboxcox

- Description

  - This function tests whether the Box-Cox transformation is able to achieve approximate normality for your data. That is, it will allow the user to know whether it is appropriate to use all the methods discussed later on in this package.

- Usage
  `checkboxcox(marker, D, plots, printShapiro = TRUE)`

- Arguments

  - `marker`: A vector of length \(n\) that contains the biomarker scores of all individuals.

  - `D`: A vector of length n that contains the true disease status of an individual. It is a binary vector containing 0 for the healthy/control individuals and 1 for the diseased individuals.

  - `plots='on' or 'off'`: Valid inputs are “on” and “off”. When set to “on”, the user gets the histograms of the biomarker for both the healthy and the diseased group before and after the Box-Cox transformation. In addition, all four corresponding qq-plots are provided.

  - `printShapiro`: Boolean. When set to TRUE, the results of the Shapiro-Wilk test will be printed to the console. When set to FALSE, the results are suppressed. Default value is FALSE.

- Value

  - `res_shapiro`: A results table that contains the results of four Shapiro-Wilk tests for normality testing. Two of these refer to normality testing of the healthy and the diseased groups before the Box-Cox transformation, and the remaining two refer to the Box-Cox transformed biomarkers scores for the healthy and the diseased groups. Thus, this testing process produces four p-values. In addition, if the plots are set to ‘on’, then the output provides (1) the histograms of the biomarker for both the healthy and the diseased groups before and after the Box-Cox transformation, (2) all four corresponding qq-plots, and (3) a plot with the empirical ROC curve overplotted with the Box-Cox based ROC curve for visual comparison purposes.
  - `transformation.parameter`: The single transformation parameter \(\lambda\) that is applied for both groups simultaneously.
  - `transx`: The Box-Cox transformed scores for the healthy.
  - `transy`: The Box-Cox transformed scores for the diseased.
  - `pval_x`: The p-value of the Shapiro-Wilk test of normality for the healthy group (before the Box-Cox transformation).
  - `pval_y`: The p-value of the Shapiro-Wilk test of normality for the diseased group (before the Box-Cox transformation).
  - `pval_transx`: The p-value of the Shapiro-Wilk test of normality for the healthy group (after the Box-Cox transformation).
  - `pval_transy`: The p-value of the Shapiro-Wilk test of normality for the diseased group (after the Box-Cox transformation).
  - `roc`: A function of the estimated Box-Cox ROC curve. You can use this to simply request TPR values for given FPR values.

- **Example: **

    #DATA GENERATION
    set.seed(123)
    x=rgamma(100, shape=2, rate = 8) # Generates biomarker data from a gamma distribution
                                     # for the healthy group.
    y=rgamma(100, shape=2, rate = 4) # Generates biomarker data from a gamma distribution
                                     # for the diseased group.
    scores=c(x,y)
    D=c(zeros(1,100), ones(1,100))

    out=checkboxcox(marker=scores, D, plots="on", printShapiro = TRUE)

    ##
    ## 	Shapiro-Wilk normality test
    ##
    ## data:  x
    ## W = 0.92354, p-value = 2.181e-05
    ##
    ##
    ## 	Shapiro-Wilk normality test
    ##
    ## data:  y
    ## W = 0.90169, p-value = 1.7e-06
    ##
    ##
    ## 	Shapiro-Wilk normality test
    ##
    ## data:  transx
    ## W = 0.98765, p-value = 0.4826
    ##
    ##
    ## 	Shapiro-Wilk normality test
    ##
    ## data:  transy
    ## W = 0.98936, p-value = 0.6128

    summary(out)

    ##                          Length Class  Mode
    ## transformation.parameter   1    -none- numeric
    ## transx                   100    -none- numeric
    ## transy                   100    -none- numeric
    ## pval_x                     1    -none- numeric
    ## pval_y                     1    -none- numeric
    ## pval_transx                1    -none- numeric
    ## pval_transy                1    -none- numeric
    ## rocfun                     1    -none- function

threerocs

- Description

  - This function provides a visual comparison of the Empirical ROC, the Box-Cox ROC, and the Metz binormal semi-parametric estimator of the ROC curve. It also computes the AUC for the curve corresponding to each method.

- Usage
  `threerocs(marker, D, plots)`

- Arguments

  - `marker`: A vector of length \(n\) that contains the biomarker scores of all individuals.

  - `D`: A vector of length n that contains the true disease status of an individual. It is a binary vector containing 0 for the healthy/control individuals and 1 for the diseased individuals.

  - `plots='on' or 'off'`: Valid inputs are “on” and “off”. When set to “on”, the user gets a single plot containing the estimated ROC curves using the Empirical, Box-Cox, and Metz methods.

- Value

  - `AUC_Empirical`: The AUC of the empirical ROC curve.
  - `AUC_Metz`: The AUC of the Metz binormal curve (as calculated by MRMCaov package using the “binormal” option).
  - `AUC_BoxCox`: The AUC of the Box-Cox based ROC curve.

- **Example: **

    #DATA GENERATION
    set.seed(123)
    x <- rgamma(100, shape=2, rate = 8) # generates biomarker data from a gamma
                                     # distribution for the healthy group.
    y <- rgamma(100, shape=2, rate = 4) # generates biomarker data from a gamma
                                     # distribution for the diseased group.
    scores <- c(x,y)
    D=c(pracma::zeros(1,100), pracma::ones(1,100))
    out=threerocs(marker=scores, D, plots="on")

    summary(out)

    ##               Length Class  Mode
    ## AUC_Empirical 1      -none- numeric
    ## AUC_Metz      1      -none- numeric
    ## AUC_BoxCox    1      -none- numeric

rocboxcox

- Description

  - This function applies the Box-Cox transformation to provide a comprehensive ROC analysis that involves the AUC (and its CI), the maximized Youden index (and its CI), the optimized Youden based cutoff (and its CI), and joint confidence regions for the optimized pair of sensitivity and specificity. For the AUC and the Youden index, the Delta Method is employed by accounting for the variability of the estimated transformation parameters due to the Box-Cox transformation. Both the AUC and the YI confidence intervals are found after using the probit transformation and back-transforming the endpoints of the corresponding CI back into the ROC space. For the cutoffs, it has been shown that the delta method does not perform well; thus, the bootstrap with 1,000 repetitions is employed here, instead. During this this process, the cutoffs are back-transformed with the inverse Box-Cox transformation so that they lie on the original scale of the data.

- Usage
  `rocboxcox(marker, D, plots, printProgress = TRUE)`

- Arguments

  - `marker`: A vector of length n that contains the biomarker scores of all individuals.

  - `D`: A vector of length n that contains the true disease status of an individual. It is a binary vector containing 0 for the healthy/control individuals and 1 for the diseased individuals.

  - `alpha`: Nominal level used to calculate the confidence intervals. A common choice is 0.05.

  - `plots`: Valid inputs are “on” and “off”. When set to “on”, the function returns a comprehensive figure with the ROC estimate and several point estimates: AUC, Youden index, optimized Youden cutoff, and the Youden based sensitivty and specificity along with the corresponding marginal confidence intervals and the joint confidence region of the estimated sensitivity and specificity.

  - `printProgress`: Boolean. When set to TRUE, messages describing the progress of the bootstrapping will be printed to the console window. When set to FALSE, these messages are suppressed. Default value is FALSE.

- Value

  - `transx`: The Box-Cox transformed scores for the healthy group.
  - `transy`: The Box-Cox transformed scores for the diseased group.
  - `transformation.parameter`: The estimated Box-Cox transformation parameter ($\lambda$).
  - `AUC`: The estimated area under the Box-Cox based ROC curve.
  - `AUCCI`: The (1-$\alpha$)100% CI for the AUC. (A common choice of \(\alpha\) is 0.05). This CI is based on probit transforming the AUC estimate, finding the CI on the real line, and then back-transforming its endpoints to the ROC space. It is in line with using \(Z=\frac{\Phi^{-1}(\hat{AUC})}{\sqrt{var(\Phi^{-1}(\hat{AUC}))}}\) to test the null hypothesis that \(H_{0}: AUC=0.5\).
  - `pvalueAUC`: The corresponding p-value for the AUC estimate. This a two-tailed p-value that tests the hypothesis \(H_{0}: AUC=0.5\) by employing \(Z=\frac{\Phi^{-1}(\hat{AUC})}{\sqrt{var(\Phi^{-1}(\hat{AUC}))}}\) which, under the null hypothesis, is taken to follow a standard normal distribution.
  - `J`: The maximized Youden index.
  - `JCI`: The corresponding CI for the maximized Youden index. For this CI, we consider the probit transformation \(\hat{J}_{T}=\Phi^{-1}(\hat{J})\) and then back-transform its endpoints to derive a 95% CI for the Youden index itself (Bantis et al. (2021)).
  - `pvalueJ`: The corresponding two-tailed p-value for the maximized Youden index. This corresponds to \(Z=\frac{\hat{J}_{T}}{\sqrt{var(\hat{J}_{T})}}\). The underlying null hypothesis is \(H_{0}: J=0\)
  - `Sens`: The sensitivity that corresponds to the Youden based optimized cutoff.
  - `CImarginalSens`: The marginal (1-$\alpha$)100% CI for the sensitivity that corresponds to the Youden based optimized cutoff. This is derived by first employing the probit transformation, finding a CI on the real line, and then back-transforming its endpoints to the ROC space.
  - `Spec`: The specificity that corresponds to the Youden based optimized cutoff.
  - `CImarginalSpec`: The marginal (1-$\alpha$)100% CI for the specificity that corresponds to the Youden based optimized cutoff. This is derived by first employing the probit transformation, finding a CI on the real line, and then back-transforming its endpoints to the ROC space.
  - `cutoff`: The Youden-based optimized cutoff.
  - `CIcutoff`: the (1-$\alpha$)100% CI for the Youden-based optimized cutoff. This is based on the bootstrap. It involves using the Box-Cox transformation for every bootstrap iteration and then using the inverse Box-Cox transformation to obtain the cutoff on its original scale (Bantis et al. (2019)).
  - `areaegg`: The area of the (1-$\alpha$)100% egg-shaped joint confidence region that refers to the optimized pair of sensitivity and specificity. This takes into account the fact that the estimated sensitivity and specificity are correlated as opposed to the corresponding rectangular area that ignores this.
  - `arearect`: The area of the (1-$\alpha$)100% rectangular joint confidence region that refers to the optimized pair of sensitivity and specificity. This ignores the correlation of the optimized sensitivity and specificity and tends to yield a larger area compared to the one of the egg-shaped region.
  - `mxlam`: The mean of the marker scores of the healthy group after the Box-Cox transformation.
  - `sxlam`: The standard deviation of the marker scores of the healthy group after the Box-Cox transformation.
  - `mylam`: The mean of the marker scores of the diseased group after the Box-Cox transformation.
  - `sylam`: The standard deviation of the marker scores of the diseased group after the Box-Cox transformation.
  - `results`: A table that provides some indicative results: the AUC, the J (maximized Youden index), the estimated cutoff, the Sens, and the Spec along with their marginal CIs.
  - `roc`: A function of the estimated Box-Cox ROC curve. You can use this to simply request TPR values for given FPR values.

- **Example: **

    set.seed(123)
    x=rgamma(100, shape=2, rate = 8)
    y=rgamma(100, shape=2, rate = 4)
    scores=c(x,y)
    D=c(zeros(1,100), ones(1,100))
    out=rocboxcox(marker=scores,D, 0.05, plots="on", printProgress=FALSE)

    summary(out)

    ##                          Length Class       Mode
    ## transx                   100    -none-      numeric
    ## transy                   100    -none-      numeric
    ## transformation.parameter   1    -none-      numeric
    ## AUC                        1    -none-      numeric
    ## AUCCI                      2    -none-      numeric
    ## pvalueAUC                  1    -none-      numeric
    ## J                          1    -none-      numeric
    ## JCI                        2    -none-      numeric
    ## pvalueJ                    1    -none-      numeric
    ## Sens                       1    -none-      numeric
    ## CImarginalSens             2    -none-      numeric
    ## Spec                       1    -none-      numeric
    ## CImarginalSpec             2    -none-      numeric
    ## cutoff                     1    -none-      numeric
    ## CIcutoff                   2    -none-      numeric
    ## areaegg                    1    -none-      numeric
    ## arearect                   1    -none-      numeric
    ## mxlam                      1    -none-      numeric
    ## sxlam                      1    -none-      numeric
    ## mylam                      1    -none-      numeric
    ## sylam                      1    -none-      numeric
    ## results                   18    formattable numeric
    ## rocfun                     1    -none-      function

rocboxcoxCI

- Description

  - This function applies the Box-Cox transformation and carries out statistical inferences for the sensitivity at a given specificity (and vice versa).

- Usage
  `out=rocboxcoxCI(marker, D, givenSP=givenSP, givenSE=NA, alpha, plots)`

`out=rocboxcoxCI(marker, D, givenSP=NA, givenSE=givenSE, alpha, plots)`

- Arguments

  - `marker`: A vector of length n that contains the biomarker scores of all individuals.

  - `D`: A vector of length n that contains the true disease status of an individual, where 0 denotes a healthy/control individual, and 1 denotes a diseased individual.

  - `givenSP`: A vector of specificity values that the user wants to fix/set, at which the sensitivity is to be estimated. In this case, the ‘givenSE’ argument needs to be set to NA.

  - `givenSE`: A vector of sensitivity values that the user want to fix/set, at which the specificity is to be estimated. In this case, the ‘givenSP’ argument needs to be set to NA.

  - `alpha`: Nominal level used to calculate the confidence intervals. A common choice is 0.05.

  - `plots`: Valid inputs are “on” and “off”. When set to “on”, it returns both (1) the Box-Cox based ROC plot along with pointwise 95% confidence intervals for the full spectrum of FPRs and (2) a second plot that visualizes the confidence intervals at the given sensitivities or specificities.

- Value

  - `SPandCIs`: The specificity values and the CIs around them.
  - `SEandCIs`: The specificity values and the CIs around them.
  - `SEvalues`: The sensitivity values provided by the user at which the specificity was calculated. If the user did not provide any sensitivity values, this argument shoulb be set to NA.
  - `SPvalues`: The specificity values provided by the user at which the sensitivity was calculated. If the user did not provide any specificity values, this argument should be set to NA.

- **Example: **

    givenSP=c(0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9)
    givenSE=NA
    out=rocboxcoxCI(marker=scores ,D, givenSP=givenSP, givenSE=NA, alpha=0.05, plots="on")

    summary(out)

    ##          Length Class       Mode
    ## SPandCIs  4     formattable numeric
    ## SEandCIs 36     formattable numeric
    ## Sevalues  1     -none-      logical
    ## Sphat     1     -none-      numeric
    ## CIsp      2     formattable numeric
    ## Spvalues  9     -none-      numeric
    ## Sehat     9     -none-      numeric
    ## CIse     18     formattable numeric

checkboxcox2

- Description

  - This function tests whether the Box-Cox transformation is able to achieve approximate normality for your data. That is, it will allow the user to know whether it is appropriate to use all the methods discussed later on in this package. It is similar to the function checkboxcox but is designed for two markers instead of just one.

- Usage
  `checkboxcox2(marker1, marker2, D, plots, printShapiro = TRUE)`

- Arguments

  - `marker1`: A vector of length n that contains the biomarker scores of all individuals for the first marker.

  - `marker2`: A vector of length n that contains the biomarker scores of all individuals for the second marker.

  - `D`: A vector of length n that contains the true disease status of an individual. It is a binary vector containing 0 for the healthy/control individuals and 1 for the diseased individuals.

  - `plots='on' or 'off'`: Valid inputs are “on” and “off”. When set to “on”, the user gets the histograms of the biomarker for both the healthy and the diseased group before and after the Box-Cox transformation for both marker1 and marker2. In addition, all eight corresponding qq-plots are provided.

  - `printShapiro`: Boolean. When set to TRUE, the results of the Shapiro-Wilk test will be printed to the console. When set to FALSE, the results are suppressed. Default value is FALSE.

- Value

  - `res_shapiro`: A results table that contains the results of eight Shapiro-Wilk tests for normality testing. Four of these refer to normality testing of the healthy and the diseased groups before the Box-Cox transformation, and the remaining four refer to the Box-Cox transformed biomarkers scores for the healthy and the diseased groups. Thus, this testing process produces eight p-values. In addition, if the plots are set to ‘on’, then the output provides (1) the histograms of the biomarker for both the healthy and the diseased groups before and after the Box-Cox transformation for both marker1 and marker2, (2) all eight corresponding qq-plots, and (3) two plots (one for marker1, one for marker2) with the empirical ROC curve overplotted with the Box-Cox based ROC curve for visual comparison purposes.
  - `transx1`: The Box-Cox transformed scores for the first marker and the healthy group.
  - `transy1`: The Box-Cox transformed scores for the first marker and the diseased group.
  - `transformation.parameter.1`: The estimated Box-Cox transformation parameter (lambda) for marker1.
  - `transx2`: The Box-Cox transformed scores for the second marker and the healthy group.
  - `transy2`: The Box-Cox transformed scores for the second marker and the diseased group.
  - `transformation.parameter.2`: The estimated Box-Cox transformation parameter (lambda) for marker2.
  - `pval_x1`: The p-value of the Shapiro Wilk test of normality for the marker1 healthy group (before the Box-Cox transformation).
  - `pval_y1`: The p-value of the Shapiro Wilk test of normality for the marker1 diseased group (before the Box-Cox transformation).
  - `pval_transx1`: The p-value of the Shapiro Wilk test of normality for the marker1 healthy group (after the Box-Cox transformation).
  - `pval_transy1`: The p-value of the Shapiro Wilk test of normality for the marker1 diseased group (after the Box-Cox transformation).
  - `pval_x2`: The p-value of the Shapiro Wilk test of normality for the marker2 healthy group (before the Box-Cox transformation).
  - `pval_y2`: The p-value of the Shapiro Wilk test of normality for the marker2 diseased group (before the Box-Cox transformation).
  - `pval_transx2`: The p-value of the Shapiro Wilk test of normality for the marker2 healthy group (after the Box-Cox transformation).
  - `pval_transy2`: The p-value of the Shapiro Wilk test of normality for the marker2 diseased group (after the Box-Cox transformation).
  - `roc1`: A function that refers to the ROC of the first marker. It allows the user to feed in FPR values and the corresponding TPR values.
  - `roc2`: A function that refers to the ROC of the first marker. It allows the user to feed in FPR values and the corresponding TPR values.

- **Example: **

    #DATA GENERATION
    set.seed(123)

    nx <- 100
    Sx <- matrix(c(1, 0.5, 0.5, 1), nrow = 2, ncol = 2)

    mux <- c(X = 10, Y = 12)
    X = mvtnorm::rmvnorm(nx, mean = mux, sigma = Sx)

    ny <- 100
    Sy <- matrix(c(1.1, 0.6, 0.6, 1.1), nrow = 2, ncol = 2)

    muy <- c(X = 11, Y = 13.7)
    Y = mvtnorm::rmvnorm(ny, mean = muy, sigma = Sy)

    dx = pracma::zeros(nx,1)
    dy = pracma::ones(ny,1)

    markers = rbind(X,Y);
    marker1 = markers[,1]
    marker2 = markers[,2]
    D = c(rbind(dx,dy))

    out=checkboxcox2(marker1, marker2, D, plots = "on")

    summary(out)

    ##                            Length Class  Mode
    ## res_shapiro                  8    -none- list
    ## transformation.parameter.1   1    -none- numeric
    ## transx1                    100    -none- numeric
    ## transy1                    100    -none- numeric
    ## transformation.parameter.2   1    -none- numeric
    ## transx2                    100    -none- numeric
    ## transy2                    100    -none- numeric
    ## pval_x1                      1    -none- numeric
    ## pval_y1                      1    -none- numeric
    ## pval_transx1                 1    -none- numeric
    ## pval_transy1                 1    -none- numeric
    ## pval_x2                      1    -none- numeric
    ## pval_y2                      1    -none- numeric
    ## pval_transx2                 1    -none- numeric
    ## pval_transy2                 1    -none- numeric
    ## roc1                         1    -none- function
    ## roc2                         1    -none- function

comparebcAUC

- Description

  - This function provides a comparison of two correlated markers in terms of their AUCs (areas under the Box-Cox based ROC curves). Marker measurements are assumed to be taken on the same individuals for both markers.

- Usage
  `out=comparebcAUC(marker1, marker2, D, alpha, plots)`

- Arguments

  - `marker1`: A vector of length n that contains the biomarker scores of all individuals for the first marker.

  - `marker2`: A vector of length n that contains the biomarker scores of all individuals for the second marker.

  - `D`: A vector of length n that contains the true disease status of an individual. It is a binary vector containing 0 for the healthy/control individuals and 1 for the diseased individuals.

  - `alpha`: Nominal level used to calculate the confidence intervals. A common choice is 0.05.

  - `plots`: Valid inputs are “on” and “off”. When set to “on” it returns the Box-Cox based ROC along with informative information about the two AUCs in the legend of the plot.

- Value

  - `resultstable`: A summary table of the comparison that contains the AUC of each marker, the p-value of the difference using the probit transformation, the p-value of the difference, and the confidence interval of the difference.
  - `AUCmarker1`: The AUC of the first marker.
  - `AUCmarker2`: The AUC of the second marker.
  - `pvalue_probit_difference`: The p-value for the comparison of the AUCs. It employs the probit transformation that has greater power then when not using it (as opposed to the p-value provided in the ‘pvalue difference’ output argument provided later on). It is based on \(Z^*=\frac{\Phi^{-1}\left(\hat{AUC}_{1}\right)-\Phi^{-1}\left(\hat{AUC}_{2}\right)}{\sqrt{Var\left(\Phi^{-1}\left(\hat{AUC}_{1}\right)\right)+Var\left(\Phi^{-1}\left(\hat{AUC}_{2}\right)\right)-2Cov\left(\Phi^{-1}\left(\hat{AUC}_{1}\right)),\Phi^{-1}\left(\hat{AUC}_{2}\right)\right)}}\).
  - `pvalue_difference`: The p-value for the comparisons of the AUC (without the probit transformation). Simulations have shown that this is inferior to the ‘pvalue probit difference’. This is based on \(Z=\frac{\hat{AUC}_{1}-\hat{AUC}_{2}}{\sqrt{Var\left(\hat{AUC}_{1}\right)+Var\left(\hat{AUC}_{2}\right)-2Cov\left(\hat{AUC}_{1},\hat{AUC}_{2}\right)}}\).
  - `CI_difference`: The confidence interval for the difference of the AUCs. It is based on \(Z\) given above.
  - `roc1`: A function that refers to the ROC of the first marker. It allows the user to feed in FPR values and the corresponding TPR values.
  - `roc2`: A function that refers to the ROC of the first marker. It allows the user to feed in FPR values and the corresponding TPR values.
  - `transx1`: The Box-Cox transformed scores for the first marker and the healthy group.
  - `transy1`: The Box-Cox transformed scores for the first marker and the diseased group.
  - `transformation.parameter.1`: The estimated Box-Cox transformation parameter (lambda) for marker 1.
  - `transx2`: The Box-Cox transformed scores for the second marker and the healthy group.
  - `transy2`: The Box-Cox transformed scores for the second marker and the diseased group.
  - `transformation.parameter.2`: The estimated Box-Cox transformation parameter (lambda) for marker 2.

- **Example: **

    #GENERATE SOME BIVARIATE DATA===
    set.seed(123)

    nx <- 100
     Sx <- matrix(c(1,   0.5,
                    0.5,  1),
                nrow = 2, ncol = 2)

    mux <- c(X = 10, Y = 12)
    X=rmvnorm(nx, mean = mux, sigma = Sx)

    ny <- 100
    Sy <- matrix(c(1.1,   0.6,
                   0.6,  1.1),
                 nrow = 2, ncol = 2)

    muy <- c(X = 11, Y = 13.7)
    Y=rmvnorm(ny, mean = muy, sigma = Sy)

    dx=zeros(nx,1)
    dy=ones(ny,1)

    markers=rbind(X,Y);
    marker1=markers[,1]
    marker2=markers[,2]
    D=c(rbind(dx,dy))

    #==DATA HAVE BEEN GENERATED====

    #===COMPARE THE AUCs of Marker 1 vs Maker 2

    out=comparebcAUC(marker1, marker2, D, alpha=0.05,  plots="on")

    summary(out)

    ##                            Length Class       Mode
    ## resultstable                 7    formattable numeric
    ## AUCmarker1                   1    -none-      numeric
    ## AUCmarker2                   1    -none-      numeric
    ## pvalue_probit_difference     1    -none-      numeric
    ## pvalue_difference            1    -none-      numeric
    ## CI_difference                2    -none-      numeric
    ## roc1                         1    -none-      function
    ## roc2                         1    -none-      function
    ## transx1                    100    -none-      numeric
    ## transy1                    100    -none-      numeric
    ## transformation.parameter.1   1    -none-      numeric
    ## transx2                    100    -none-      numeric
    ## transy2                    100    -none-      numeric
    ## transformation.parameter.2   1    -none-      numeric

comparebcJ

- Description

  - This function provides a comparison of two correlated markers in terms of their J (Youden indices for Box-Cox based ROC curves). Markers measurements are assumed to be taken on the same individuals for both markers.

- Usage
  `out=comparebcJ(marker1, marker2, D, alpha, plots)`

- Arguments

  - `marker1`: A vector of length n that contains the biomarker scores of all individuals for the first marker.

  - `marker2`: A vector of length n that contains the biomarker scores of all individuals for the second marker.

  - `D`: A vector of length n that contains the true disease status of an individual, where 0 denotes a healthy/control individual, and 1 denotes a diseased individual.

  - `alpha`: Nominal level used to calculate the confidence intervals. A common choice is 0.05.

  - `plots`: Valid inputs are “on” and “off”. When set to “on” it returns the Box-Cox based ROC along with informative information about the two AUCs in the legend of the plot.

- Value

  - `resultstable`: A summary table of the comparison that contains the maximized Youden Index of each marker, the p-value of the difference using the probit transformation, the p-value of the difference, and the confidence interval of the difference.
  - `J1`: The maximized Youden Index (J) of the first marker.
  - `J2`: The maximized Youden Index (J) of the second marker.
  - `pvalue_probit_difference`: The p-value for the comparison of the Js. It employs the probit transformation that has greater power then when not using it (as opposed to the p-value provided in the ‘pvalue difference’ output argument provided later on). It is based on \(Z^{*}=\frac{\hat{J}_{T2}-\hat{J}_{T1}}{\sqrt{Var(\hat{J}_{T1})+Var(\hat{J}_{T2})-2Cov(\hat{J}_{T1},\hat{J}_{T2})}}\) where \(\hat{J}_{Ti}=\Phi^{-1}(\hat{J}_{i})\), \(i=1,2\).
  - `pvalue_difference`: The p-value for the comparisons of the J (without the probit transformation). Simulations have shown that this is inferior to the ‘pvalue probit difference’. This is based on \(Z=\frac{\hat{J}_{2}-\hat{J}_{1}}{\sqrt{Var(\hat{J}_{1})+Var(\hat{J}_{2})-2Cov(\hat{J}_{1},\hat{J}_{T})}}\).
  - `CI_difference`: The confidence interval for the difference of the Js. This is based on \(Z\) mentioned right above.
  - `roc1`: A function that refers to the ROC of the first marker. It allows the user to feed in FPR values and the corresponding TPR values.
  - `roc2`: A function that refers to the ROC of the first marker. It allows the user to feed in FPR values and the corresponding TPR values.
  - `transx1`: The Box-Cox transformed scores for the first marker and the healthy group.
  - `transy1`: The Box-Cox transformed scores for the first marker and the diseased group.
  - `transformation.parameter.1`: The estimated Box-Cox transformation parameter (lambda) for marker 1.
  - `transx2`: The Box-Cox transformed scores for the second marker and the healthy group.
  - `transy2`: The Box-Cox transformed scores for the second marker and the diseased group.
  - `transformation.parameter.2`: The estimated Box-Cox transformation parameter (lambda) for marker 2.

- **Example: **

    #==DATA HAVE BEEN GENERATED====
    #===COMPARE THE Js of Marker 1 vs Maker 2

    out=comparebcJ(marker1, marker2, D, alpha=0.05,  plots="on")

    summary(out)

    ##                            Length Class       Mode
    ## resultstable                 7    formattable numeric
    ## J1                           1    -none-      numeric
    ## J2                           1    -none-      numeric
    ## pvalue_probit_difference     1    -none-      numeric
    ## pvalue_difference            1    -none-      numeric
    ## CI_difference                2    -none-      numeric
    ## roc1                         1    -none-      function
    ## roc2                         1    -none-      function
    ## transx1                    100    -none-      numeric
    ## transy1                    100    -none-      numeric
    ## transformation.parameter.1   1    -none-      numeric
    ## transx2                    100    -none-      numeric
    ## transy2                    100    -none-      numeric
    ## transformation.parameter.2   1    -none-      numeric

comparebcSens

- Description

  - This function provides a comparison of two correlated markers in terms of their sensitivities at a given specificity (for Box-Cox based ROC curves). Marker measurements are assumed to be taken on the same individuals for both markers.

- Usage
  `out=comparebcSens(marker1, marker2, D, alpha, atSpec, plots)`

- Arguments

  - `marker1`: A vector of length n that contains the biomarker scores of all individuals for the first marker.

  - `marker2`: A vector of length n that contains the biomarker scores of all individuals for the second marker.

  - `D`: A vector of length n that contains the true disease status of an individual, where 0 denotes a healthy/control individual, and 1 denotes a diseased individual.

  - `alpha`: Nominal level used to calculate the confidence intervals. A common choice is 0.05.

  - `atSpec`: The value of specificity at which the comparison of sensitivities will take place.

  - `plots`: Valid inputs are “on” and “off”. When set to “on” it returns the Box-Cox based ROC along with informative information about the two AUCs in the legend of the plot.

- Value

  - `resultstable`: A summary table of the comparison that contains the sensitivity of each marker at the given specificity, the p-value of the difference using the probit transformation, the p-value of the difference, and the confidence interval of the difference.
  - `Sens1`: The sensitivity at the selected specificity for the first marker.
  - `Sens2`: The sensitivity at the selected specificity for the second marker.
  - `pvalue_probit_difference`: The p-value for the comparison of the sensitivities. It employs the probit transformation that has greater power then when not using it (as opposed to the p-value provided in the ‘pvalue_difference’ output argument provided later on).
  - `pvalue_difference`: The p-value for the comparisons of the sensitivities (without the probit transformation). Simulations have shown that this is inferior to the ‘pvalue_probit_difference’.
  - `CI_difference`: The confidence interval for the difference of the sensitivities.
  - `roc1`: A function that refers to the ROC of the first marker. It allows the user to feed in FPR values and the corresponding TPR values.
  - `roc2`: A function that refers to the ROC of the first marker. It allows the user to feed in FPR values and the corresponding TPR values.
  - `transx1`: The Box-Cox transformed scores for the first marker and the healthy group.
  - `transy1`: The Box-Cox transformed scores for the first marker and the diseased group.
  - `transformation.parameter.1`: The estimated Box-Cox transformation parameter (lambda) for marker 1.
  - `transx2`: The Box-Cox transformed scores for the second marker and the healthy group.
  - `transy2`: The Box-Cox transformed scores for the second marker and the diseased group.
  - `transformation.parameter.2`: The estimated Box-Cox transformation parameter (lambda) for marker 2.

- **Example: **

    out=comparebcSens(marker1=marker1, marker2=marker2, D=D, alpha =0.05, atSpec=0.8, plots="on")

    summary(out)

    ##                            Length Class       Mode
    ## resultstable                 7    formattable numeric
    ## Sens1                        1    -none-      numeric
    ## Sens2                        1    -none-      numeric
    ## pvalue_probit_difference     1    -none-      numeric
    ## pvalue_difference            1    -none-      numeric
    ## CI_difference                2    -none-      numeric
    ## roc1                         1    -none-      function
    ## roc2                         1    -none-      function
    ## transx1                    100    -none-      numeric
    ## transy1                    100    -none-      numeric
    ## transformation.parameter.1   1    -none-      numeric
    ## transx2                    100    -none-      numeric
    ## transy2                    100    -none-      numeric
    ## transformation.parameter.2   1    -none-      numeric

comparebcSpec

- Description

  - This function provides a comparison of two correlated markers in terms of their specificities at a given sensitivity (for Box-Cox based ROC curves). Marker measurements are assumed to be taken on the same individuals for both markers.

- Usage
  `out=comparebcSpec(marker1, marker2, D, alpha, atSens, plots)`

- Arguments

  - `marker1`: A vector of length n that contains the biomarker scores of all individuals for the first marker.

  - `marker2`: A vector of length n that contains the biomarker scores of all individuals for the second marker.

  - `D`: A vector of length n that contains the true disease status of an individual, where 0 denotes a healthy/control individual, and 1 denotes a diseased individual.

  - `alpha`: Nominal level used to calculate the confidence intervals. A common choice is 0.05.

  - `atSens`: The value of sensitivity at which the comparison of specificities will take place.

  - `plots`: Valid inputs are “on” and “off”. When set to “on” it returns the Box-Cox based ROC along with informative information about the two AUCs in the legend of the plot.

- Value

  - `Spec1`: The specificity at the selected sensitivity for the first marker.
  - `Spec2`: The specificity at the selected sensitivity for the second marker.
  - `pvalue_probit_difference`: The p-value for the comparison of the specificities. It employs the probit transformation that has greater power then when not using it (as opposed to the p-value provided in the ‘pvalue_difference’ output argument provided later on).
  - `pvalue_difference`: The p-value for the comparison of the specificities (without the probit transformation). Simulations have shown that this is inferior to the ‘pvalue_probit_difference’.
  - `CI_difference`: The confidence interval for the difference of the specificities.
  - `roc1`: A function that refers to the ROC of the first marker. It allows the user to feed in FPR values and the corresponding TPR values.
  - `roc2`: A function that refers to the ROC of the first marker. It allows the user to feed in FPR values and the corresponding TPR values.
  - `transx1`: The Box-Cox transformed scores for the first marker and the healthy group.
  - `transy1`: The Box-Cox transformed scores for the first marker and the diseased group.
  - `transformation.parameter.1`: The estimated Box-Cox transformation parameter (lambda) for marker 1.
  - `transx2`: The Box-Cox transformed scores for the second marker and the healthy group.
  - `transy2`: The Box-Cox transformed scores for the second marker and the diseased group.
  - `transformation.parameter.2`: The estimated Box-Cox transformation parameter (lambda) for marker 2.

- **Example: **

    out=comparebcSpec(marker1=marker1, marker2=marker2, D=D, alpha =0.05, atSens=0.8, plots="on")

    summary(out)

    ##                            Length Class       Mode
    ## resultstable                 7    formattable numeric
    ## FPR1                         1    -none-      numeric
    ## FPR2                         1    -none-      numeric
    ## pvalue_probit_difference     1    -none-      numeric
    ## pvalue_difference            1    -none-      numeric
    ## CI_difference                2    -none-      numeric
    ## roc1                         1    -none-      function
    ## roc2                         1    -none-      function
    ## transx1                    100    -none-      numeric
    ## transy1                    100    -none-      numeric
    ## transformation.parameter.1   1    -none-      numeric
    ## transx2                    100    -none-      numeric
    ## transy2                    100    -none-      numeric
    ## transformation.parameter.2   1    -none-      numeric

threerocs

- Description

  - This function provides a visual comparison of the Empirical ROC, the Box-Cox ROC, and the Metz binormal semi-parametric estimator of the ROC curve. It also computes the AUC for the curve corresponding to each method.

- Usage
  `threerocs2(marker1, marker2, D, plots)`

- Arguments

  - `marker1`: A vector of length n that contains the biomarker scores of all individuals for the first marker.

  - `marker2`: A vector of length n that contains the biomarker scores of all individuals for the second marker.

  - `D`: A vector of length n that contains the true disease status of an individual. It is a binary vector containing 0 for the healthy/control individuals and 1 for the diseased individuals.

  - `plots='on' or 'off'`: Valid inputs are “on” and “off”. When set to “on”, the user gets a single plot containing the estimated ROC curves using the Empirical, Box-Cox, and Metz methods for each of the two provided markers.

- Value

  - `AUC_BoxCox1`: The AUC of the Box-Cox based ROC curve for the first marker.
  - `AUC_BoxCox2`: The AUC of the Box-Cox based ROC curve for the second marker.
  - `AUC_Metz1`: The AUC of the Metz binormal curve (as calculated by MRMCaov package using the “binormal” option) for the first marker.
  - `AUC_Metz2`: The AUC of the Metz binormal curve (as calculated by MRMCaov package using the “binormal” option) for the second marker.
  - `AUC_Empirical1`: The AUC of the empirical ROC curve for the first marker.
  - `AUC_Empirical2`: The AUC of the empirical ROC curve for the second marker.

- **Example: **

    out=threerocs2(marker1, marker2, D, plots = "on")

    summary(out)

    ##                Length Class  Mode
    ## AUC_BoxCox1    1      -none- numeric
    ## AUC_BoxCox2    1      -none- numeric
    ## AUC_Metz1      1      -none- numeric
    ## AUC_Metz2      1      -none- numeric
    ## AUC_Empirical1 1      -none- numeric
    ## AUC_Empirical2 1      -none- numeric