R/Prediction.R

In MEET: MEET: Motif Elements Estimation Toolkit

Prediction<-function(iicc){

  resultsPrediction<-switch(iicc$method, "Entropy"=PredictEntropy(iicc), "Divergence"=PredictDivergence(iicc),"Qresiduals"=PredictPCA(iicc) ,"MEME"=PredictMEME(iicc),"MDscan"= PredictMDscan(iicc),"MATCH"=PredictMATCH(iicc),"transMEME"=PredicttransMEME(iicc),stop("Detection method not included"))

  return(resultsPrediction)

}