# NOT RUN {
##
## Examples: Completely Randomized Design (CRD)
## More details: demo(package='TukeyC')
##
library(TukeyC)
data(CRD2)
## From: vectors x and y
tk1 <- with(CRD2,
TukeyC(x=x,
y=y,
model='y ~ x',
which='x'))
plot(tk1,
id.las=2,
rl=FALSE)
## From: design matrix (dm) and response variable (y)
tk2 <- with(CRD2,
TukeyC(x=dm,
y=y,
model='y ~ x',
which='x'))
plot(tk2,
mm.lty=3,
id.las=2,
rl=FALSE)
## From: data.frame (dfm)
tk3 <- with(CRD2,
TukeyC(x=dfm,
model='y ~ x',
which='x'))
plot(tk3,
id.las=2,
rl=FALSE)
## From: aov
av <- with(CRD2,
aov(y ~ x,
data=dfm))
summary(av)
tk4 <- with(CRD2,
TukeyC(x=av,
which='x'))
plot(tk4,
rl=FALSE,
id.las=2)
# }
Run the code above in your browser using DataLab