Nothing
ind.oneway <-
function(formula, data, contr=NULL, sig.level=.05, digits=3){
x <- aggregate(formula, data=data, FUN=sumfun)[[2]]
output <- ind.oneway.second(m=x[,1], sd=x[,2], n=x[,3], contr=contr, sig.level=sig.level,digits=digits)
return(output)
}
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.