Я пытаюсь построить кривую 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)