R khu vực hồi quy logistic dưới đường cong

Question

Tôi đang thực hiện hồi quy logistic bằng cách sử dụng page này. Mã của tôi như sau.

mydata <- read.csv("http://www.ats.ucla.edu/stat/data/binary.csv") 
mylogit <- glm(admit ~ gre, data = mydata, family = "binomial") 
summary(mylogit) 
prob=predict(mylogit,type=c("response")) 
mydata$prob=prob 

Sau khi chạy mã này mydata dataframe có hai cột - 'thừa nhận' và 'prob'. Hai cột đó có đủ để có được đường cong ROC không?

Tôi có thể lấy đường cong ROC như thế nào.

Thứ hai, bằng cách nới lỏng tại mydata, có vẻ như mô hình dự đoán tính xác thực của admit=1.

Điều đó có đúng không?

Làm cách nào để tìm ra sự kiện cụ thể mà mô hình dự đoán?

Cảm ơn

UPDATE: Dường như bên dưới ba lệnh rất hữu ích. Họ cung cấp các cut-off mà sẽ có độ chính xác tối đa và sau đó giúp đỡ để có được đường cong ROC.

coords(g, "best") 

mydata$prediction=ifelse(prob>=0.3126844,1,0) 

confusionMatrix(mydata$prediction,mydata$admit 

Answer 1

Đường cong ROC so sánh xếp hạng dự đoán và câu trả lời. Do đó, bạn có thể đánh giá các đường cong ROC với gói pROC như sau:

mydata <- read.csv("http://www.ats.ucla.edu/stat/data/binary.csv") 
mylogit <- glm(admit ~ gre, data = mydata, family = "binomial") 
summary(mylogit) 
prob=predict(mylogit,type=c("response")) 
mydata$prob=prob 
library(pROC) 
g <- roc(admit ~ prob, data = mydata) 
plot(g)  

Answer 2

một cách khác để mưu ROC đường cong ...

library(Deducer) 
modelfit <- glm(formula=admit ~ gre + gpa, family=binomial(), data=mydata, na.action=na.omit) 
rocplot(modelfit) 

Answer 3

#Another way to plot ROC 

mydata <- read.csv("http://www.ats.ucla.edu/stat/data/binary.csv") 
mylogit <- glm(admit ~ gre, data = mydata, family = "binomial")  
summary(mylogit)  
prob=predict(mylogit,type=c("response"))  
library("ROCR")  
pred <- prediction(prob, mydata$admit)  
perf <- performance(pred, measure = "tpr", x.measure = "fpr")  
plot(perf, col=rainbow(7), main="ROC curve Admissions", xlab="Specificity", 
    ylab="Sensitivity")  
abline(0, 1) #add a 45 degree line