I’ve done this plot whit pROC

rocobj <- plot.roc(db$IOT, Pred,
                   main = "Confidence intervals", 
                   percent=TRUE,
                   ci = TRUE,                  
                   print.auc = TRUE)          
ciobj <- ci.se(rocobj,                         
               specificities = seq(0, 100, 5)) # over a select set of specificities
plot(ciobj, type = "shape", col = "#1c61b6AA")     
plot(ci(rocobj, of = "thresholds", thresholds = "best"))

I obtain this plot with only one point and not a stepped curve with multiple points, why?