File: regtest-Tukey.R

package info (click to toggle)
multcomp 0.991-2-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 548 kB
  • sloc: sh: 43; makefile: 1
file content (15 lines) | stat: -rw-r--r-- 399 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 

library("multcomp")

set.seed(290875)

data("warpbreaks")
fm1 <- aov(breaks ~ wool * tension, data = warpbreaks)

TukeyHSD(fm1, "tension", ordered = FALSE)
confint(glht(fm1, linfct = mcp(tension = "Tukey")))
summary(glht(fm1, linfct = mcp(tension = "Tukey")))

TukeyHSD(fm1, "wool", ordered = FALSE)
confint(glht(fm1, linfct = mcp(wool = "Tukey")))
summary(glht(fm1, linfct = mcp(wool = "Tukey")))