# NOT RUN {
##
## Example: Split-split-plot Experiment (SSPE)
## More details: demo(package='TukeyC')
##
data(SSPE)
## From: design matrix (dm) and response variable (y)
## Main factor: P
tk1 <- with(SSPE,
TukeyC(dm,
y,
model='y ~ blk + P*SP*SSP + Error(blk/P/SP)',
which='P',
error='blk:P'))
summary(tk1)
plot(tk1)
# Main factor: SP
tk2 <- with(SSPE,
TukeyC(dm,
y,
model='y ~ blk + P*SP*SSP + Error(blk/P/SP)',
which='SP',
error='blk:P:SP',
dispersion='s'))
summary(tk2)
plot(tk2)
# Main factor: SSP
tk3 <- with(SSPE,
TukeyC(dm,
y,
model='y ~ blk + P*SP*SSP + Error(blk/P/SP)',
which='SSP',
error='Within',
dispersion='se'))
summary(tk3)
plot(tk3)
## Nested: p1/SP
tkn1 <- with(SSPE,
TukeyC.nest(dm,
y,
model='y ~ blk + P*SP*SSP + Error(blk/P/SP)',
which='P:SP',
error='blk:P:SP',
fl1=1))
summary(tkn1)
## From: aovlist
av <- with(SSPE,
aov(y ~ blk + P*SP*SSP + Error(blk/P/SP),
data=dfm))
summary(av)
## Nested: p1/sp1/SSP
## Testing SSP inside of level one of P and level one of SP
tkn2 <- TukeyC.nest(av,
which='P:SP:SSP',
error='Within',
fl1=1,
fl2=1)
summary(tkn2)
## Nested: p2/sp1/SSP
tkn3 <- TukeyC.nest(av,
which='P:SP:SSP',
error='Within',
fl1=2,
fl2=1)
summary(tkn3)
# }
Run the code above in your browser using DataLab