Eu quero executar uma análise de múltiplas comparações para as diferentes variáveis de um modelo. Minha ideia é a seguinte:

library(multcomp)
set.seed(123)
x1 <- gl(4,10)
x2 <- gl(5,2,40)
y <- rnorm(40)

fm1 <- lm(y ~ x1 + x2)

for(var in c('x1', 'x2'))
{
mc1 <- glht(fm1, linfct=mcp(var='Tukey'))
print(summary(mc1))
}

Quando corro, recebo o seguinte erro:

Error en mcp2matrix(model, linfct = linfct) : 
    Variable(s) ‘var’ have been specified in ‘linfct’ but cannot be found in ‘model’! 

Ou seja, não é possível usar um caractere para especificar um atributo da função mcp. Alguém conhece uma solução?