# NOT RUN {
ref <- acc[ , 1]
toridit(ref)
g <- acc[ , 2]
meanridit(g, ref)
seridit(g, ref)
meanridits(flu.age, 2, "H3")
meanridits(flu.age, 2) # Uses group totals as reference
seridits(handgun, 2, 1)
# }
Run the code above in your browser using DataLab