Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.