Medical tests (or bio-markers) are designed to distinguish patients with a targeted condition from the patients without that condition, and to allow for a decision for or against a treatment of that condition. For this purpose, most often a dichotomous threshold is determined and patients with a test score higher than that threshold can receive treatment. This decision is often made with considerations of costs and possible side effects of treatment, but without considering possible uncertainty of the patient’s obtained test score.

The uncertain interval method allows for the determination of an interval of test scores that are too uncertain for distinguishing patients with and without the targeted condition. Typically, a patient with such a test score would either receive additional tests (when available) to obtain more certainty about the true status of the patient, or further developments of symptoms can be awaited. The latter approach can vary from regular active surveillance to informing the patient which changes in symptoms should trigger further diagnostics.

An uncertain test score has another weighing of costs than solely a decision for or against the presence of the disease. A patients with an uncertain test score should not be exposed to treatment costs. When the existence of the disease is uncertain, the benefits of treatment would be highly uncertain while the risks of possible negative side effects of a treatment remain present.

In this vignette, first the theoretical basis of the uncertain interval method is explained. Next, an example dataset is analyzed to illustrate the various possibilities of the method. The use of PSA scores as an early indicator of prostate cancer are discussed as an example.

The PSA test is a relatively weak test, and demonstrates the clear existence of an interval of uncertain test scores. Prostate cancer in itself is often a slow growing form of cancer and patients with this disease do not necessarily die from the disease. On the other hand, prostate cancer treatments can have serious side effects that seriously affect the quality of life, such as incontinence and sexual dysfunctions, without necessarily leading to a longer life span. Therefore, the current policy is to prevent over-treatment and to offer patients active surveillance of their disease. The question which PSA scores should lead to informing the patient that prostate cancer is very unlikely, which test scores should lead to immediate further diagnostics and possible treatment and which test scores should lead to active surveillance is therefore relevant. The intention of this vignette is to illustrate how the functions in the UncertainInterval package can be used to answer this kind of questions.

Test are not perfect and uncertainty whether the test can distinguish the patients is dependent on the test score. Most often, high and low test scores are the most certain, but test scores in the middle are far less certain. The test scores at the point of the intersection of the two distributions is most uncertain (figure 1): the probability that the patient belongs to the population of patients with the targeted disease (H1) is equal to the probability that the patient belongs to the population of patients without the disease (H0).

```
intersect.binormal <- function(m1, sd1, m2, sd2, p1=.5, p2=.5){
B <- (m1/sd1^2 - m2/sd2^2)
A <- 0.5*(1/sd2^2 - 1/sd1^2)
C <- 0.5*(m2^2/sd2^2 - m1^2/sd1^2) - log((sd1/sd2)*(p2/p1))
if (A!=0){
(-B + c(1,-1)*sqrt(B^2 - 4*A*C))/(2*A)
} else {-C/B}
}
x = seq(-5,8,length=1000)
mu0=0; sd0=1; mu1=2; sd1=2
y0 <- dnorm(x,mu0, sd0)
y1 <- dnorm(x, mu1, sd1)
is=intersect.binormal(mu0, sd0, mu1, sd1)
plot(x,y0,type='l', col='green', xlab='predictor', ylab='density', main='Figure 1')
lines(x,y1,type='l', col='black')
legend('topright', legend=c('H0', 'H1'), lty=c(1,1), col=c('green', 'black'), cex=.7)
threshold = qnorm(.90, mu0, sd0) # allowing a FPR of .1
abline(v=c(is[2], threshold), col=c( 'red', 'black'))
text(1.9, 0.03, expression(alpha), col='green')
text(0, 0.03, expression(beta), col='black')
```

Around the intersection, the test scores are found that are the most uncertain. If we define a threshold (black line) close to the intersection (red line), we can be certain to miss-diagnose about 50% of the patients that have test scores close to the intersection. Furthermore, the diagnoses based om test scores close to the intersection give most unreliable decisions: a second measure is bound to give results slightly lower or slightly higher. A result slightly above the threshold can be slightly below this point when measuring again and would change from a positive decision into a negative decision for the disease to be present, while in reality little has changed.

The intersection is also the point where the sum of false positive rate (FPR = \(\alpha\) (alpha error) = 1 - Sp) and false negative rate (FNR = \(\beta\) (beta error) = 1 - Se) is minimal. The intersection is therefore the same as the Youden threshold, the point where the sum of true positive rate (TPR = Se) and true negative rate (TNR = Sp) is maximal. Small differences may occur as a result of differences in estimation methods, but they are in principle the same.

Note: Tests that have more than one intersection can be problematic. When an intersection occurs in a region where the densities are very low, such an intersection can be ignored. When this is not the case, extra intersections indicate a lower quality of the test. Furthermore, an extra intersection indicates the existence of a region where the interpretation of results is reversed and not straightforward.

The uncertain interval method offers the possibility to determine an interval that can be considered to be too uncertain to distinguish one type of patient from the other type. This indicates to the decision maker that more information is needed before a final decision can be made. A secondary advantage is that the decision maker can be more certain about a patient with scores outside the defined middle range of test scores. A first publication is Landsheer (2016).

An example (Figure 2) is provided, using a file of the PSA bio-marker for the identification of prostate cancer (Etzioni R, Pepe M, Longton G, Hu C, Goodman G, 1999):

```
library(UncertainInterval)
data(psa2b)
names(psa2b)
#> [1] "id" "d" "t" "fpsa" "tpsa" "age"
plotMD(psa2b$d, psa2b$tpsa)
abline(v=4, col='red')
```

It is easy to see in figure 2 that the interpretation of these distributions of scores is problematic. A large overlap is found in the lower region, both distributions have long tails and there are multiple intersections. Both patients with (1) and without (0) prostate cancer can have low or high PSA scores. Using the usual threshold of 4 micro gram per liter (red line), it is easy to see that there are a considerable number of miss classifications and especially the number of false negatives (FN = 101) is high when compared to the number of true positives (TP = 128), resulting in a meager sensitivity of .56. Table 1 shows the confusion matrix.

```
t2 = table (psa2b$tpsa > 4, psa2b$d)
rownames(t2) <- c('PSA <= 4', 'PSA > 4')
library(knitr)
kable(addmargins(t2), caption = "Table 1")
```

0 | 1 | Sum | |
---|---|---|---|

PSA <= 4 | 414 | 101 | 515 |

PSA > 4 | 40 | 128 | 168 |

Sum | 454 | 229 | 683 |

The higher the PSA score, the more certain the presence of prostate cancer is, but patients without prostate cancer can have high PSA values as well. Only the highest PSA values (> 40) indicate for certain that these patients have prostate cancer, but choosing such a high threshold makes that the percentage of false negatives increases greatly.

Determination of the most uncertain test scores may help. The function ui.nonpar dynamically calculates the sensitivity and specificity of the test scores **within** the uncertain interval to determine the lower and upper threshold of this interval of uncertain scores. This function uses the rank order of the sampled test scores and is non-parametric. The default values for the sensitivity and specificity of the test scores within the uncertain interval is .55, which means that the ratios TP/FN and TN/FP are .55/(1-.45) = 1.22. This interval is located around the intersection, which is determined in the ui.nonpar function by density estimation. This estimation is therefore semi-parametric. If needed, this estimation can be overridden by setting the intersection parameter of the ui.nonpar function.

```
(res=ui.nonpar(psa2b$d, psa2b$tpsa))
#> Warning in ui.nonpar(psa2b$d, psa2b$tpsa): More than one point of intersection. Highest density used.
#> cp.l cp.h FN TP TN
#> 1.92000 4.00000 27.00000 33.00000 55.00000
#> FP sensitivity specificity intersection
#> 45.00000 0.55000 0.55000 2.81317
```

The thresholds found are 1.92 and 4.00 and 27 + 33 + 55 + 45 = 160 observations are considered as uncertain or indeterminate. The function quality.threshold provides the quality indices of the lower and upper more certain intervals (MCI’s). In this case (using the default uncertain interval), the number of false negatives is reduced to 41.

```
(out=quality.threshold(psa2b$d, psa2b$tpsa, res[1], res[2]))
#> $table
#> ref
#> diag 0 1 Sum
#> 0 314 41 355
#> NA 100 60 160
#> 1 40 128 168
#> Sum 454 229 683
#>
#> $cut
#> threshold.lower threshold.upper
#> 1.92 4.00
#>
#> $indices
#> prevalence correct.classification.rate
#> 0.3231358 0.8451243
#> balance.correct.incorrect specificity
#> 5.4567901 0.8870056
#> sensitivity negative.predictive.value
#> 0.7573964 0.8845070
#> positive.predictive.value neg.likelihood.ratio
#> 0.7619048 0.2735085
#> pos.likelihood.ratio concordance
#> 6.7029586 0.8689366
```

The sensitivity for the patients who receive a decision for or against the disease has increased to .76. It was 128/228 = .56, so there is a big improvement but it is still a sensitivity that is wanting. Specificity is reduced slightly to .89, as the uncertain interval deselects 55 (TN) + 45 (FP) = 100 non-patients, for which the test score is considered as too uncertain.

The function quality.threshold.uncertain provides detailed quality indices for the uncertain interval when applied to the sample. These indices show a low quality, indicating that these test scores provide very uncertain information about the true status of these patients.

```
(t2 = quality.threshold.uncertain(psa2b$d, psa2b$tpsa, res[1], res[2]))
#> $intersection
#> [1] 2.81317
#>
#> $table
#> ref
#> diag 0 1 Sum
#> 0 55 27 82
#> 1 45 33 78
#> Sum 100 60 160
#>
#> $cut
#> threshold.lower threshold.upper
#> 1.92 4.00
#>
#> $X2
#> n n sum X2 df p
#> TN.FP 55 45 100 1.000 1 0.317
#> FN.TP 27 33 60 0.600 1 0.439
#> overall 82 78 160 1.127 1 0.288
#>
#> $t.test
#> mean.0 mean.1 t df p
#> 2.7434000 2.8936667 -1.5762976 118.4397041 0.1176246
#>
#> $indices
#> prevalence correct.classification.rate
#> 0.3750000 0.5500000
#> balance.correct.incorrect specificity
#> 1.2222222 0.5500000
#> sensitivity negative.predictive.value
#> 0.5500000 0.6707317
#> positive.predictive.value neg.likelihood.ratio
#> 0.4230769 0.8181818
#> pos.likelihood.ratio balance.with.without
#> 1.2222222 0.6000000
#> concordance
#> 0.5740000
```

It is easy to see in figure 3, that the scores of the patients in the uncertain interval have a relatively flat distribution and can hardly be distinguished from each other. Patients form both distributions have similar or slightly lower or higher scores.

```
sel = psa2b$tpsa >= res[1] & psa2b$tpsa <= res[2]
plotMD(psa2b$d[sel], psa2b$tpsa[sel])
```

Table 2 shows the confusion table of the scores within the interval (using the intersection as threshold):

`kable(t2$table, caption = "Table 2")`

0 | 1 | Sum | |
---|---|---|---|

0 | 55 | 27 | 82 |

1 | 45 | 33 | 78 |

Sum | 100 | 60 | 160 |

The question how much uncertainty is acceptable, depends on the clinical setting. The severity of the illness, the possibilities to treat, possible side effects of the treatments and the availability of better, perhaps more expensive bio-markers are relevant parameters. All these clinical parameters influence the decision how much uncertainty is acceptable and should lead to additional testing or active surveillance while waiting for possible further development of symptoms, respectively how much certainty is necessary to make a more definitive decision for or against the presence of the disease.

In the case of prostate cancer, the cancer often grows slowly and is often not causing any symptoms, while treatment with surgery or radiation has serious risks such as incontinence and impotence and does not necessarily prolongs life. Active surveillance with examinations each six months or awaiting possible changes in symptoms is often the more desirable line of action. In that case, we need a high certainty for decisive actions and might accept a wider range of test scores that we consider as diagnostically insufficient. As the PSA bio-marker is a relatively weak indicator, a wide range of test scores in the middle offers insufficient indication for treatment or no treatment. In general, a diagnostic insufficient indication can lead to the decision to use better or additional measurements that offer a better indication.

A wider uncertain interval is obtained by increasing the values of specificity and sensitivity of the uncertain test scores. Higher values makes the test scores in the uncertain interval less uncertain, while the test scores outside the uncertain interval provide increased certainty, that is a increased percentage of correct decisions considering the true status of the patient. In the next code block, specificity and sensitivity is increased to respectively .60, .65 and .70.

```
(res=ui.nonpar(psa2b$d, psa2b$tpsa, sens=.60, spec=.60))
#> Warning in ui.nonpar(psa2b$d, psa2b$tpsa, sens = 0.6, spec = 0.6): More than one point of intersection. Highest density used.
#> cp.l cp.h FN TP TN
#> 1.7000000 4.6000000 35.0000000 52.0000000 77.0000000
#> FP sensitivity specificity intersection
#> 51.0000000 0.5977011 0.6015625 2.8131705
quality.threshold(psa2b$d, psa2b$tpsa, res[1], res[2])$indices[c('specificity', 'sensitivity')]
#> specificity sensitivity
#> 0.8957055 0.7676056
(res=ui.nonpar(psa2b$d, psa2b$tpsa, sens=.65, spec=.65))
#> Warning in ui.nonpar(psa2b$d, psa2b$tpsa, sens = 0.65, spec = 0.65): More than one point of intersection. Highest density used.
#> cp.l cp.h FN TP TN
#> 1.3400000 7.2400000 47.0000000 87.0000000 139.0000000
#> FP sensitivity specificity intersection
#> 75.0000000 0.6492537 0.6495327 2.8131705
quality.threshold(psa2b$d, psa2b$tpsa, res[1], res[2])$indices[c('specificity', 'sensitivity')]
#> specificity sensitivity
#> 0.9583333 0.7789474
(res=ui.nonpar(psa2b$d, psa2b$tpsa, sens=.70, spec=.70))
#> Warning in ui.nonpar(psa2b$d, psa2b$tpsa, sens = 0.7, spec = 0.7): More than one point of intersection. Highest density used.
#> cp.l cp.h FN TP TN
#> 1.1500000 16.8100000 56.0000000 131.0000000 189.0000000
#> FP sensitivity specificity intersection
#> 81.0000000 0.7005348 0.7000000 2.8131705
quality.threshold(psa2b$d, psa2b$tpsa, res[1], res[2])$indices[c('specificity', 'sensitivity')]
#> specificity sensitivity
#> 0.9782609 0.7142857
```

The function quality.threshold produces several statistics to describe the qualities of the test scores outside the uncertain interval (MCI or More Certain Intervals). Clearly, when increasing the uncertain interval, outside the uncertain interval the specificity improves faster than the sensitivity. However, in the last case, the sensitivity deteriorates for the more certain interval (MCI) outside the defined uncertain interval. The reason for this deterioration is that the number of correctly identified true patients does hardly increase, while the total number of true prostate cancer patients with scores outside the uncertain interval becomes smaller. Increasing the uncertain interval should therefore not be applied blindly.

In the UncertainInterval package it is assumed that the test values of the patients with the targeted condition are larger than the test values of the patients without the targeted condition. When this is not the case, one can simply negate the test values by putting a minus sign before the test values. This makes the interpretation straightforward; all quality indices remain applicable. If one wants to use the non-negated test values (for instance when plotting the distributions), it is sufficient to discard the negative sign. Of course, relative comparisons, such as test score -3 > -5, reverses: 3 < 5.

When using a diagnostic test, the ultimate goal is to apply the test to new patients, other than the patients used for verification of the method. Therefore generalization is as important for any test as is its sensitivity, specificity or other validation indicators. Tests without a parametric model are optimized for the samples used, but lack a population model. Consequently, a non-parametric approach of a test necessitates considerable larger samples for validation to ensure that the quality indicators of the test results are not overly adapted to a small sample with particular characteristics.

Generalization is easier when a valid parametric model can be applied, such as the bi-normal model. The advantage of a **valid** parametric model for the test is that we have a population model that allows for greater precision, accuracy and power. Results of a representative sample can be used to estimate population values and can be more easily generalized to other representative samples. The best results for generalization are achieved when a test is developed from the ground up with the use of a specific parametric model and a well defined population in mind.

Unfortunately, this is not so often the case for medical tests. In figure 2 it is easy to see that the PSA test is not very good in identifying true patients but also not good in identifying patients without prostate cancer.

Another approach of this data-set is the use of a transformation, so that a parametric method can be used. From a statistical point of view, we can ask whether a transformation of these test scores could be used to improve on the distribution. In this case, we can use the Box-Cox transformation (available in the car package) to improve the distributions (figures 4 & 5).

```
library(UncertainInterval)
library(car)
data(psa2b)
p1 = powerTransform(psa2b$tpsa)
t_tpsa = bcPower(psa2b$tpsa, p1$roundlam)
qqPlot(t_tpsa[psa2b$d==0])
qqPlot(t_tpsa[psa2b$d==1])
```

The Box-Cox transformation limits skewness of the data by applying a power transformation. This maintains the rank order of the data, but changes its distribution. The method searches for the power transformation that results in the lowest variance. The intention of the method is to transform the data to a shape that is more similar to a normal distribution. There is no guarantee, but the two qq plots show that a reasonable approximation of normal distributions is reached.

Figure 6 shows how the data are approximated using a bi-normal model.

```
plotMD(psa2b$d, t_tpsa, model='binormal', position.legend = 'topleft')
(res1=ui.binormal(psa2b$d, t_tpsa))
#> Warning in nlopt.ui(Se = Se, Sp = Sp, mu0 = m0, sd0 = sd0, mu1 = m1, sd1 =
#> sd1, : More than one point of intersection. Highest used.
#> $status
#> [1] 4
#>
#> $message
#> [1] "NLOPT_XTOL_REACHED: Optimization stopped because xtol_rel or xtol_abs (above) was reached."
#>
#> $intersection
#> [1] 0.8597443
#>
#> $results
#> exp.Sp.ui exp.Se.ui mu0 sd0 mu1 sd1
#> 0.5500000 0.5500000 0.3002297 0.7219207 1.3208021 0.8378606
#>
#> $solution
#> L U
#> 0.6318927 1.0991342
abline(v=res1$solution, col= 'red')
```

```
invBoxCox <- function(x, lambda)
if (lambda == 0) exp(x) else (lambda*x + 1)^(1/lambda)
invBoxCox(res1$solution, p1$roundlam)
#> L U
#> 1.955678 3.402414
```

Of course, not all problems have disappeared; outliers are still there. The boxplot in figure 7 shows that the outliers in the lower tail are problematic: low scores < -3 indicate both a patient and a non-patient. These extreme scores in the sample also influence the estimates of the bi-normal distributions somewhat.

```
outlier_values <- boxplot.stats(t_tpsa)$out # outlier values.
inds <- which(t_tpsa %in% outlier_values)
table(outlier_values, psa2b$d[inds])
#>
#> outlier_values 0 1
#> -4.88500502959075 1 0
#> -3.01290516092602 0 1
#> 2.98492123652568 0 1
#> 3.02834906992807 0 1
#> 3.08915246880567 0 1
#> 3.13226431569987 0 1
#> 3.13230804246717 0 3
boxplot(t_tpsa, main="", boxwex=0.1)
```

`# mtext(paste("Outliers: ", paste(round(outlier_values, 2), collapse=", ")), # cex=0.6)`

Leaving out these extreme values may improve the estimates.

Note: the exercises here are intended as **illustrations** how the UncertainInterval package can be used in the case of a test with a difficult distribution. The PSA test is not developed with this transformation or the bi-normal model in mind. Whether this transformation is the best way to deal specifically with PSA test scores would require additional research to ascertain that the transformation has more general validity. Furthermore, there is considerable discussion about the usefulness of PSA scores for early identification of prostate cancer. Some researchers have argued that the PSA test may have better predictive value for specific age subpopulations (Sadi, 2017).

```
sel=t_tpsa > -3
plotMD(psa2b$d[sel], t_tpsa[sel], model='binormal')
(res55=ui.binormal(psa2b$d[sel], t_tpsa[sel]))
#> Warning in nlopt.ui(Se = Se, Sp = Sp, mu0 = m0, sd0 = sd0, mu1 = m1, sd1 =
#> sd1, : More than one point of intersection. Highest used.
#> $status
#> [1] 4
#>
#> $message
#> [1] "NLOPT_XTOL_REACHED: Optimization stopped because xtol_rel or xtol_abs (above) was reached."
#>
#> $intersection
#> [1] 0.8641356
#>
#> $results
#> exp.Sp.ui exp.Se.ui mu0 sd0 mu1 sd1
#> 0.5500000 0.5500000 0.3116761 0.6802260 1.3398096 0.7886725
#>
#> $solution
#> L U
#> 0.6625423 1.0749633
abline(v=res55$solution, col= 'red')
```

```
invBoxCox <- function(x, lambda)
if (lambda == 0) exp(x) else (lambda*x + 1)^(1/lambda)
invBoxCox(res55$solution, p1$roundlam)
#> L U
#> 2.024697 3.301731
```

Of course, a wider range of test scores can be considered as diagnostically uncertain. In the next block we compare higher values for sensitivity and specificity of the uncertain test scores and show the obtained results for the outer, more certain regions:

```
res60=ui.binormal(psa2b$d[sel], t_tpsa[sel], Se=.60, Sp=.60)
#> Warning in nlopt.ui(Se = Se, Sp = Sp, mu0 = m0, sd0 = sd0, mu1 = m1, sd1 =
#> sd1, : More than one point of intersection. Highest used.
res60$results
#> exp.Sp.ui exp.Se.ui mu0 sd0 mu1 sd1
#> 0.6000000 0.6000000 0.3116761 0.6802260 1.3398096 0.7886725
quality.threshold.uncertain(psa2b$d, t_tpsa, res60$solution[1], res60$solution[2])$indices[c('specificity', 'sensitivity')]
#> specificity sensitivity
#> 0.4927536 0.7142857
quality.threshold(psa2b$d, t_tpsa, res60$solution[1], res60$solution[2])$indices[c('specificity', 'sensitivity')]
#> specificity sensitivity
#> 0.8860759 0.7793103
res65=ui.binormal(psa2b$d[sel], t_tpsa[sel], Se=.65, Sp=.65)
#> Warning in nlopt.ui(Se = Se, Sp = Sp, mu0 = m0, sd0 = sd0, mu1 = m1, sd1 =
#> sd1, : More than one point of intersection. Highest used.
res65$results
#> exp.Sp.ui exp.Se.ui mu0 sd0 mu1 sd1
#> 0.6500000 0.6500000 0.3116761 0.6802260 1.3398096 0.7886725
quality.threshold.uncertain(psa2b$d, t_tpsa, res65$solution[1], res65$solution[2])$indices[c('specificity', 'sensitivity')]
#> specificity sensitivity
#> 0.5779817 0.7307692
quality.threshold(psa2b$d, t_tpsa, res65$solution[1], res65$solution[2])$indices[c('specificity', 'sensitivity')]
#> specificity sensitivity
#> 0.9406780 0.7878788
res70=ui.binormal(psa2b$d[sel], t_tpsa[sel], Se=.70, Sp=.70)
#> Warning in nlopt.ui(Se = Se, Sp = Sp, mu0 = m0, sd0 = sd0, mu1 = m1, sd1 =
#> sd1, : More than one point of intersection. Highest used.
res70$results
#> exp.Sp.ui exp.Se.ui mu0 sd0 mu1 sd1
#> 0.7000000 0.7000000 0.3116761 0.6802260 1.3398096 0.7886725
quality.threshold.uncertain(psa2b$d, t_tpsa, res70$solution[1], res70$solution[2])$indices[c('specificity', 'sensitivity')]
#> specificity sensitivity
#> 0.6655738 0.7303371
quality.threshold(psa2b$d, t_tpsa, res70$solution[1], res70$solution[2])$indices[c('specificity', 'sensitivity')]
#> specificity sensitivity
#> 0.9731544 0.8431373
```

The statistics estimated for the uncertain interval of the **modeled distribution** are exactly what we asked for: sensitivity and specificity are respectively .60, .65 and .70. These estimates are no longer solely based on the sample and the values in the sample deviate, as can be expected. In the last example, with sensitivity and specificity set to .7, the sample values are respectively .67 and .73. When the bi-normal model is valid for these test scores, the bi-normal estimates of .7 can be considered as better, but this requires additional prove.

The obtained **sample** values for the outer regions show systematic improvements when sensitivity and specificity for the uncertain test scores are higher. These sample values are provided by the quality.threshold function. In the last case, specificity has increased to .97 while sensitivity has increased to .84.

A further question is how many patients are considered as having an uncertain test result, when using these values for sensitivity and specificity for determination of the uncertain interval. The extended confusion tables are produced by the quality.threshold function. The diagnoses based on the uncertain test scores are labeled as NA:

```
quality.threshold(psa2b$d, t_tpsa, res55$solution[1], res55$solution[2])$table
#> ref
#> diag 0 1 Sum
#> 0 320 43 363
#> NA 74 42 116
#> 1 60 144 204
#> Sum 454 229 683
quality.threshold(psa2b$d, t_tpsa, res60$solution[1], res60$solution[2])$table
#> ref
#> diag 0 1 Sum
#> 0 280 32 312
#> NA 138 84 222
#> 1 36 113 149
#> Sum 454 229 683
quality.threshold(psa2b$d, t_tpsa, res65$solution[1], res65$solution[2])$table
#> ref
#> diag 0 1 Sum
#> 0 222 21 243
#> NA 218 130 348
#> 1 14 78 92
#> Sum 454 229 683
quality.threshold(psa2b$d, t_tpsa, res70$solution[1], res70$solution[2])$table
#> ref
#> diag 0 1 Sum
#> 0 145 8 153
#> NA 305 178 483
#> 1 4 43 47
#> Sum 454 229 683
res70$solution
#> L U
#> -0.008275071 2.028532093
invBoxCox(res70$solution, p1$roundlam)
#> L U
#> 0.9917652 12.4656935
```

When applying the last results, 483 patients of the sample have a test score that is considered as uncertain (with PSA scores between .99 and 12.5) and should be monitored, 153 patients would receive a decision that the likelihood of having prostate cancer is very low (with 8 errors), and 47 patients would receive a decision for immediate further diagnostics and possible treatment of their prostate cancer (with 4 errors). Clearly, patients with test scores within the uncertain interval should receive more frequent active surveillance when their PSA score is higher.

The PSA test is a weak bio-marker. A better predictive result is possible when using a better test and/or by integrating additional relevant information. A better predictive result would result in a smaller group for monitoring and a lower number of errors.

Up to now we have discussed the uncertain interval method for scales on a continuous scale. Many medical tests have only a limited number of discrete values that can be roughly ordered from ‘good’ to ‘bad’. In other words, these scales are on an interval level and are short in the sense that they have a limited and low number of discrete values.

As there are only a few discrete values, an uncertain interval would only cover a single or a few different test scores. For a single test score, it is not possible to define a threshold (intersection) which would allow for the definition of sensitivity and specificity of the uncertain test scores. When just a few scores are considered as uncertain, sensitivity or specificity of these uncertain test scores can wildly deviate from the desired values. In other words, the methods presented above cannot be applied.

One approach to the problem is simple visual inspection, the other is applying the ui.ordinal function which uses other criteria than sensitivity and specificity for the determination of an uncertain interval.

For visual inspection, the PlotMD function can display an exact representation of the sampled data with a limited number of discrete values when model = ‘ordinal’ is used. The data of Tosteson & Begg (1988) illustrate this. There are 63 patients without cancer and 33 patients who have cancer (in this case either breast cancer or colon cancer). These patients have received a score of 1 to 5, indicating the presence of metastatic disease to the liver. A liver metastasis is a malignant tumor in the liver that has spread from another organ that has been affected by cancer.

```
data("tostbegg2")
sel = tostbegg2$type==0
plotMD(ref=tostbegg2$d, test=tostbegg2$y, model='ordinal')
```

Visual inspection learns us that the score 3 is the most uncertain indicator. The radiologists used this to indicate the possibility of metastatic disease to the liver. This score is the most uncertain and is best used as an indication that further data collection is necessary. But it is also clear that all the scores provide some uncertainty concerning a decision for or against the presence of metastatic cancer.

It should be clear that when using this few scores, all quality indices concern the limited score values and cannot be very precise. However, it is possible to calculate an interval of uncertain test scores, using a loss function. The documentation of this function provides the details. The function ui.ordinal provides additional information about possible choices for the uncertain interval:

```
ui.ordinal(ref=tostbegg2$d, test=tostbegg2$y, return.all=TRUE)
#> Warning in ui.ordinal(ref = tostbegg2$d, test = tostbegg2$y, return.all = TRUE): No solution found for the ui ratio constraints.
#> $Youden
#> max.Youden threshold Sp Se Acc Loss
#> 0.6305916 3.0000000 0.8730159 0.7575758 0.8333333 0.3694084
#> C
#> 0.8376623
#>
#> $data.table
#> test d0 d1 tot TP FP TN FN tpr fpr Y
#> 1 1 33 5 38 33 63 0 0 1.0000000 1.00000000 0.0000000
#> 2 2 22 3 25 28 30 33 5 0.8484848 0.47619048 0.3722944
#> 3 3 4 3 7 25 8 55 8 0.7575758 0.12698413 0.6305916
#> 4 4 2 4 6 22 4 59 11 0.6666667 0.06349206 0.6031746
#> 5 5 2 18 20 18 2 61 15 0.5454545 0.03174603 0.5137085
#>
#> $intersection
#> [1] 3
#>
#> $uncertain.interval
#> lowerbound upperbound UI.Sp UI.Se UI.Acc UI.ratio UI.C
#> 1 3 3 0.0000000 1.0000000 0.4285714 1.4318182 0.5000000
#> 2 2 3 0.8461538 0.5000000 0.7812500 0.4405594 0.6730769
#> 3 1 3 0.9322034 0.2727273 0.8285714 0.3559322 0.5939908
#> 4 3 4 0.0000000 1.0000000 0.5384615 2.2272727 0.6190476
#> 5 2 4 0.7857143 0.7000000 0.7631579 0.6818182 0.7607143
#> 6 1 4 0.9016393 0.4666667 0.8157895 0.4694486 0.6836066
#> 7 3 5 0.0000000 1.0000000 0.7575758 5.9659091 0.7600000
#> 8 2 5 0.7333333 0.8928571 0.8103448 1.7818182 0.8750000
#> 9 1 5 0.8730159 0.7575758 0.8333333 1.0000000 0.8376623
#> UI.n MCI.Sp MCI.Se MCI.Acc MCI.C MCI.n Loss
#> 1 7 0.9322034 0.7333333 0.8651685 0.8375706 89 0.3333333
#> 2 32 0.8918919 0.8148148 0.8593750 0.8673674 64 0.5007215
#> 3 70 0.0000000 1.0000000 0.8461538 0.6590909 26 0.7215007
#> 4 13 0.9649123 0.6923077 0.8795181 0.8248988 83 0.3910534
#> 5 38 0.9428571 0.7826087 0.8793103 0.8627329 58 0.5584416
#> 6 76 0.0000000 1.0000000 0.9000000 0.5000000 20 0.7792208
#> 7 33 1.0000000 0.0000000 0.8730159 0.4875000 63 0.8730159
#> 8 58 1.0000000 0.0000000 0.8684211 0.5000000 38 1.0404040
#> 9 96 NaN NaN NaN NA 0 1.2611833
#>
#> $candidates
#> lowerbound upperbound UI.Sp UI.Se UI.Acc UI.ratio UI.C UI.n MCI.Sp
#> 1 3 3 0 1 0.4285714 1.431818 0.5 7 0.9322034
#> MCI.Se MCI.Acc MCI.C MCI.n Loss
#> 1 0.7333333 0.8651685 0.8375706 89 0.3333333
```

The warning indicates that no solution is found for the given (default) ratio constraints (lower ratio .8, upper ratio 1,25). These ratio’s limit the ratio of patients with the disease and without the disease within the uncertain interval between .8 and 1.25. The selected candidate is the same as was chosen on the basis of visual inspection. The ui.ordinal function provides directly several quality indices for both possible uncertain intervals and for the test scores outside the uncertain interval (MCI’s).

Etzioni R, Pepe M, Longton G, Hu C, Goodman G (1999). Incorporating the time dimension in receiver operating characteristic curves: A case study of prostate cancer. Medical Decision Making 19:242-51.

Landsheer, JA (2016). Interval of Uncertainty: An Alternative Approach for the Determination of Decision Thresholds, with an Illustrative Application for the Prediction of Prostate Cancer. PloS One, 11(11), e0166007.

Sadi, M. V. (2017). PSA screening for prostate cancer. Revista Da Associação Médica Brasileira, 63(8), 722–725.

Tosteson AN, Begg CB (1988). A general regression methodology for ROC curve estimation. Medical Decision Making 8:204-15.