我正在尝试绘制ROC曲线以进行诊断测试。我相信我得到了正确的值，但是我的ROC非常顺利。我是否需要随机生成100次值才能获得锯齿状的ROC曲线？我不知道该怎么做
dat <- as.table(matrix(c(8,32,2, 30), nrow = 2, byrow = TRUE))
colnames(dat) <- c("Dis+","Dis-")
rownames(dat) <- c("Test+","Test-")
rval <- epi.tests(dat, conf.level = 0.95)
print(rval); summary(rval)
predicted_prob<-predict(lab_file2$risk_score,type="response")
roccurve <- roc(lab_file2$complication, lab_file2$risk_score)
plot(roccurve)