require(pROC)
require(plotly)
require(MiMIR)
require(foreach)
#load the dataset
m <- synthetic_metabolic_dataset
p <- synthetic_phenotypic_dataset
#Calculating the binarized surrogates
b_p<-binarize_all_pheno(p)
#Apply a surrogate models and plot the ROC curve
surr<-calculate_surrogate_scores(met=m, pheno=p, MiMIR::PARAM_surrogates, bin_names=colnames(b_p))
ttest_surrogates(surr$surrogates, b_p)
Run the code above in your browser using DataLab