Решение с функцией contrMat
:
library(multcomp)
fit <- lm(Sepal.Width ~ Species, data = iris)
groups <- table(iris$Species)
# setosa versicolor virginica
# 50 50 50
contrastMatrix <- contrMat(groups, base = 2) # 2 <=> versicolor
glht(fit, linfct = mcp(Species=contrastMatrix), alternative='less')
> glht(fit, linfct = mcp(Species=contrastMatrix), alternative='less')
General Linear Hypotheses
Multiple Comparisons of Means: User-defined Contrasts
Linear Hypotheses:
Estimate
setosa - versicolor >= 0 0.658
virginica - versicolor >= 0 0.204