0, 0, 1, 0, 0~
## $ black 0, 1, 1, 1, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0~
##...levels: control = 0, case = 1
## Setting direction: controls < cases
##
## Call:
## roc.default(response...$predvalue, legacy.axes = T, print.auc = T, print.auc.y = 45)
##
## Data: tmp$predvalue in 471 controls...(tmp$dead 0) < 94 cases (tmp$dead 1).
## Area under the curve: 0.8794
也是可以直接画法ROC曲线的:
roc.plot <- roc...(tmp$dead, tmp$predvalue)
## Setting levels: control = 0, case = 1
## Setting direction: controls < cases