ROC-Kurven und AUC mehrerer Modellkombinationen in R

Question

dredge results snapshot Ich benutze Dredge-Funktion im MuMin-Paket, um mit logistischer Regression mehrere Faktorkombinationen zu erstellen.

library(MuMIn) 
AA <- dredge(Forward.model,evaluate = TRUE,rank = "AIC",m.lim = c(8,13),trace=2) 
write.xlsx(AA,File location) 

Dies ergibt etwa 10000 verschiedene Modellkombinationen. Jetzt möchte ich die AUC aller dieser Kombinationen berechnen. Gibt es ein Paket in R, das das kann? Ich bin nicht sehr vertraut mit Schleifen in R. Schreiben

Answer 1

ich diesen Schritten folgen würde:

1)Für jedes der Modelle erhalten, um die vorhergesagten Werte für jede der Proben. Sei pred.mat die Matrix mit den Vorhersagen, wobei jede Zeile eine Einzelperson und jede Spalte unterschiedliche Modelle darstellt und y der Vektor mit der dichotomen Antwortvariablen.

2)Berechne die AUC für jedes der Modelle mit:

# Load pROC library (install it if not) 
     library(pROC) 
    # Compute the AUC values 
     auc.val <- apply(pred.mat,2,function(x)roc(pred=x,resp=y)$auc) 

So auc.val wird die AUC-Werte für jedes der Modell präsentieren.