daily pastebin goal
16%
SHARE
TWEET

Untitled

a guest Nov 21st, 2017 43 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. library(pROC)
  2. library(Zelig)
  3.  
  4. data(mid) # Data on Militarized Interstate Disputes from King & Zeng (2001)
  5. m1<-relogit(conflict~.,mid)
  6. auc(as.numeric(m1$model[1]>0),as.vector(fitted(m1)))
  7.  
  8. Area under the curve: 0.9235
  9.    
  10. plot(roc(as.numeric(m1$model[1]>0),as.vector(fitted(m1))))
RAW Paste Data
Top