rm(list = ls())

#----- Libraries and setup
library(dplyr)
library(stringr)
library(pROC)
data_directory <- "Projects/twoLevelRidge/RDA/METABRIC/"
load(paste0(data_directory, "metabric_complete_v3_1.RData"))
objects()

roc(y.test, rr_pred)
roc(y.test, drop(glm_pred))
roc(y.test, drop(aug_pred))
roc(y.test, drop(fwelnet_pred))

# Hvae to manually to do for xtune
p <- predict(fit_xtune, X.test, type = "response")
exp(p) / (1 + exp(p))

roc(y.test, exp(p) / (1 + exp(p)))



rr_alphas

# 77% vs. 74% vs, 74%



