Nothing
runPermut <-
function(data, addit=FALSE, covariable=NULL, family=binomial) {
TraitR <- sample(data[,1])
dataR <- data.frame(TraitR, data[,2:ncol(data)])
return(runPvalues(dataR, addit, covariable, family))
}
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.