Cómo usar un personaje como atributo de una función

Quiero ejecutar un análisis de comparaciones múltiples para las diferentes variables de un modelo. Mi idea es la siguiente:

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))
}

Cuando corro, aparece el siguiente error:

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

Es decir, no es posible utilizar un carácter para especificar un atributo de la función mcp. ¿Alguien sabe una solución?

Respuestas a la pregunta(6)

Su respuesta a la pregunta