R语言如何计算cutoff值 诊断比值比 阳性预测值 阴性预测值：f1 - lrm分组 ~ 指压诱发实验阳性 + Ba + 小漏斗 + 肛提肌损伤 x=T y=T data = traintest_prob - predictf1 newdata =test type = fittedrocobj - roctest$分组 test_prob

计算cutoff值： cutoff <- coords(rocobj, "best", ret=c("threshold"))

计算诊断比值比： odds_ratio <- exp(coef(f1)[2])

计算阳性预测值和阴性预测值： ppv <- posPredValue(test$分组, test_prob, cutoff) npv <- negPredValue(test$分组, test_prob, cutoff)