R/ik_calc_variance.explained.R

Defines functions ik_calc_variance.explained

ik_calc_variance.explained <- function(model){
        af <- summary(aov(model))
        afss <- af[[1]][["Sum Sq"]]
        print(cbind(af[[1]],PctExp=afss/sum(afss)*100))
}
ikashnitsky/ik documentation built on May 18, 2019, 3:42 a.m.