##
## 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 + SSP*SP*P + Error(blk/P/SP)',
which='P',
error='blk:P'))
summary(tk1)
# Main factor: SP
tk2 <- with(SSPE,
TukeyC(dm,
y,
model='y ~ blk + SSP*SP*P + Error(blk/P/SP)',
which='SP',
error='blk:P:SP'))
summary(tk2)
# Main factor: SSP
tk3 <- with(SSPE,
TukeyC(dm,
y,
model='y ~ blk + SSP*SP*P + Error(blk/P/SP)',
which='SSP',
error='Within'))
summary(tk3)
## Nested: p1/SP
tkn1 <- with(SSPE,
TukeyC.nest(dm,
y,
model='y ~ blk + SSP*SP*P + Error(blk/P/SP)',
which='SP:P',
error='blk:P:SP',
fl2=1))
summary(tkn1)
## From: aovlist
av <- with(SSPE,
aov(y ~ blk + SSP*SP*P + Error(blk/P/SP),
data=dfm))
summary(av)
## Nested: p/sp/SSP (at various levels of sp and p)
tkn2 <- TukeyC.nest(av,
which='SSP:SP:P',
error='Within',
fl2=1,
fl3=1)
summary(tkn2)
tkn3 <- TukeyC.nest(av,
which='SSP:SP:P',
error='Within',
fl2=2,
fl3=1)
summary(tkn3)
Run the code above in your browser using DataLab