require(pROC)
require(plotly)
require(foreach)
require(MiMIR)
#load the dataset
met <- synthetic_metabolic_dataset
phen<- synthetic_phenotypic_dataset
#Calculating the binarized surrogates
b_phen<-binarize_all_pheno(phen)
#Apply a surrogate models and plot the ROC curve
surr<-calculate_surrogate_scores(met, phen, MiMIR::PARAM_surrogates, colnames(b_phen))
#Plot the ROC curves
roc_surro(surr$surrogates, b_phen, "sex")
Run the code above in your browser using DataLab