Nothing
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)
}
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.