R/Models.R

Models<-function(iicc){
    Model<-switch(iicc$method, "Entropy"=ModelEntropy(iicc), "Divergence"=ModelDivergence(iicc),"Qresiduals"=ModelPCA(iicc) ,"MEME"=ModelMEME(iicc),"MDscan"= ModelMDscan(iicc),"MATCH"=ModelMATCH(iicc),"transMEME"=ModeltransMEME(iicc),stop("Detection method not included"))


 
    return(Model)
  
}

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, 1:45 p.m.