Nothing
outlierSamples=function(model,data,z.cutoff=-2) {
allmean=apply(model$Sol,2,mean)
seff=allmean[grep("sample.",names(allmean))][c(1:length(levels(data$sample)))]
seff.z=(seff-mean(seff))/sd(seff)
return(sub("sample.","",names(which(seff.z<z.cutoff))))
}
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.