Nothing
h.result <- function(result, rowcolors = TRUE, digits = 2, nsmall = 2, row.names = FALSE,
row.header = "")
{
code=""
if(any(class(result)=="TukeyHSD")) {
code <- paste(code,h.Tukey(result),sep="")
return(code)
}
else {
a <- df.format(result)
}
return(a)
}
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.