> test.values$Youden
 [1] 0.00 0.05 0.10 0.15 0.20 0.25 0.30 0.35 0.40 0.45 0.50 0.55 0.60 0.55 0.60 0.65 0.60 0.65 0.60 0.65
[21] 0.70 0.65 0.70 0.65 0.60 0.65 0.60 0.65 0.60 0.55 0.50 0.45 0.40 0.35 0.30 0.25 0.20 0.15 0.10 0.05
> max(test.values$Youden)
[1] 0.7

> which.max(test.values$Youden)
[1] 23> which(test.values$Youden==max(test.values$Youden))
[1] 23
> test.values$Youden[21]==test.values$Youden[23]

[1] FALSE

O problema 2 é que quando de fato ocorrem empates a função which.max retorna somente a primeira posição. Então, a questão

seria como retornar todas as posições com valores máximos ou encontrar uma mediana dos valores empatados? 

Qualquer luz é bem vinda.