Trying to add labels A) and B) to each panel for my two ROC plots.
par(mfrow=c(1,2), xpd=F)
erf.k <- evaluate(testpres_fairy, testbackg_fairy, rf.k)
erf.k@auc
plot(erf.k@TPR~erf.k@FPR, type="b",col="red", main=paste0("RF, AUC = ",round(erf.k@auc,2)), xlab="False Positive Rate", ylab = "True Positive Rate", tag = "A")
abline(0,1)
eglm.k <- evaluate(testpres_fairy, testbackg_fairy, m17,allow.new.levels=T)
eglm.k@auc
plot(eglm.k@TPR~eglm.k@FPR, type="b",col="red", main= paste0("GLMM, AUC = ",round(eglm.k@auc,2)), xlab="False Positive Rate", ylab = "True Positive Rate")
abline(0,1)
