df=data.frame(type='positive classification', auc=round(roc.p$auc,3),cutoff=cutoff, sensitivity=sensitivity,specificity=specificity,ci_lower = ci[1],ci_upper=ci[3]) return(df) } else{ cutoff=roc.p$thresholds[which.min(roc.p$sensitivities+roc.p$specificities)] sensitivity=roc.p$sensitivities...