Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(pROC)
- library(Zelig)
- data(mid) # Data on Militarized Interstate Disputes from King & Zeng (2001)
- m1<-relogit(conflict~.,mid)
- auc(as.numeric(m1$model[1]>0),as.vector(fitted(m1)))
- Area under the curve: 0.9235
- plot(roc(as.numeric(m1$model[1]>0),as.vector(fitted(m1))))
Add Comment
Please, Sign In to add comment