通过pRoc包可以获取auc等值,但是并不给出p值(单个AUC,和AUC = 0.5相比)。通过verification包中的roc.area ()倒是可以计算出p值,但是计算出来的结果和SPSS不一致,到低应该如何计算roc的p值?
library(pROC)
library(verification)
data(aSAH)
head(aSAH)
r <- roc(aSAH$outcome, aSAH$s100b, plot=T)
levels(aSAH$outcome)<-c('0','1')
roc.area(as.numeric(as.vector(aSAH$outcome)), r$predictor)
$p.value
[1] 0.00002254601288