Displaying 1 result from an estimated 1 matches for "sentiv".
Did you mean:
sentig
2012 Oct 25
2
How to extract auc, specificity and sensitivity
...(logit))
int<-coef(model)[1]
slope<-coef(model)[2]
pred<-predict(model)
result<-ifelse(pred>.5,1,0)
accuracy<-length(which(result==z))/length(z)
accuracy
rocpreds<-prediction(result,z)
auc<-performance(rocpreds,"auc")@y.values
sentiv<-performance(rocpreds,"sens")@y.values
sentiv<-slot(fp,"y.values")[[1]]
sentiv<-sentiv[2]
sentiv
specs<-performance(rocpreds,"spec")@y.values
specs<-slot(fp2,"y.values")[[1]]
specs<-specs[2]
specs
output<-c...