anova_table_rnd = function(args){
table<-t(sapply(1:max(attr(args$mm,"assign")),function(i){
args$i = i
effect_anova_rnd(args = args)}))
table = as.data.frame(table)
class(table) = c("lmpermutation_table","data.frame")
return(table)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.