Nothing
data(WalkingStickFemurs)
str(WalkingStickFemurs)
WalkingStickFemurs$specimenF <- factor(WalkingStickFemurs$specimen)
fm <- aov(femur.length ~ specimenF, data = WalkingStickFemurs)
summary(fm)
if (require(ICC)){
ICCest(specimenF,
femur.length,
data = WalkingStickFemurs,
alpha = 0.05,
CI.type = "Smith")
}
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.