generate.AUCTable
generate.AUCTable.RdThe master table gathers all the results of ROCTestfrom multiple comparisons.
Examples
pair.AUC<-list()
single.AUC<-list()
for(i in 1:dim(comps)[1]){
comp_name <- sprintf('%s.Vs.%s',comps[i,1],comps[i,2]) ## each comparison must give a name !!!
G0 <- rownames(phe_info)[which(phe_info$group==comps[i,2])] # get sample list for G0
G1 <- rownames(phe_info)[which(phe_info$group==comps[i,1])] # get sample list for G1
pair.AUC[[comp_name]]<-ROCTest(eset=SINBA.par$SINBA_AC.eset,G0=G0,G1=G1)
single.AUC[[comp_name]]<-ROCTest(eset=SINBA.par$single_AC.eset,G0=G0,G1=G1)}
#> Error: object 'comps' not found
use_comp<-names(pair.AUC)
auc_tab<-generate.AUCTable(pair.AUC = pair.AUC,single.AUC = single.AUC,use_comp = use_comp)
#> Error in generate.AUCTable(pair.AUC = pair.AUC, single.AUC = single.AUC, use_comp = use_comp): could not find function "generate.AUCTable"
if (FALSE) { # \dontrun{
} # }