# NOT RUN {
data(teeth)
attach(teeth)
planScheffe(2,alpha=0.05)
# Planned comparison w=c(1,1)
cohere(cbind(either4up,either4low),smoker,mset,
w=c(1,1),gamma=2,m=8,m1=6,m2=8)
# Discovered comparison emphasizing upper teeth
cohere(cbind(either4up,either4low),smoker,mset,
w=c(1,3),gamma=2,m=8,m1=6,m2=8)
3.465038^2 #squared deviate
# Both deviates lead to rejection, because
# 3.291909 >= 1.894915
# and 3.465038^2 = 12.00649 >= 7.077349
detach(teeth)
# }
Run the code above in your browser using DataLab