R/chooseModel.R

Defines functions chooseModel

Documented in chooseModel

chooseModel<-function(AUC, iicc){
 require("MEET")

    variance<-unlist(lapply(AUC, function(x){sd(x)}))
    mean<-unlist(lapply(AUC, function(x){mean(x)}))
    areamv<-mean*(1-variance)
    indexParameter<-which(areamv==max(areamv))
    parameterIdeal<-iicc$vector[indexParameter]
	y<-list(parameterIdeal=parameterIdeal,index=indexParameter)
    return(y)
     
}

Try the MEET package in your browser

Any scripts or data that you put into this service are public.

MEET documentation built on May 2, 2019, 5:52 p.m.