powered by
+ Error(...)
varcomps(fm, n)
aov
varcomps
MS.error
repeatability
data(WalkingStickFemurs) aovfit <- aov(femur.length ~ 1 + Error(specimen), data = WalkingStickFemurs) vc <- varcomps(aovfit, n = 2) vc R.varcomps <- repeatability(vc) R.varcomps
Run the code above in your browser using DataLab