ik_calc_variance.explained <- function(model){
af <- summary(aov(model))
afss <- af[[1]][["Sum Sq"]]
print(cbind(af[[1]],PctExp=afss/sum(afss)*100))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.