Я выполняю специальные тесты на линейной модели смешанных эффектов в R
( lme4
пакет). Я использую multcomp
пакет ( glht()
функцию) для выполнения специальных тестов.
Мой экспериментальный дизайн - повторные измерения со случайным эффектом блока. Модели указаны как:
mymod <- lmer(variable ~ treatment * time + (1|block), data = mydata, REML = TRUE)
Вместо того, чтобы прикреплять мои данные здесь, я работаю с данными, вызываемыми warpbreaks
в multcomp
пакете.
data <- warpbreaks
warpbreaks$rand <- NA
Я добавил дополнительную случайную переменную, чтобы имитировать мой эффект «блока»:
warpbreaks$rand <- rep(c("foo", "bar", "bee"), nrow(warpbreaks)/3)
Это имитирует мою модель:
mod <- lmer(breaks ~ tension * wool + (1|rand), data = warpbreaks)
Мне известен пример в « Дополнительных примерах Multcomp - 2 Way Anova». Этот пример приводит вас к сравнению уровней напряжения внутри уровней wool
.
Что если я захочу сделать обратное - сравнить уровни wool
внутри уровней tension
? (В моем случае это будет сравнение уровней лечения (два - 0, 1) в пределах уровней времени (три - июнь, июль, август).
Я придумал следующий код для этого, но он не работает (см. Сообщение об ошибке ниже).
Сначала из примера (с местами wool
и tension
местами):
tmp <- expand.grid(wool = unique(warpbreaks$wool), tension = unique(warpbreaks$tension))
X <- model.matrix(~ tension * wool, data = tmp)
glht(mod, linfct = X)
Tukey <- contrMat(table(warpbreaks$wool), "Tukey")
K1 <- cbind(Tukey, matrix(0, nrow = nrow(Tukey), ncol = ncol(Tukey)))
rownames(K1) <- paste(levels(warpbreaks$tension)[1], rownames(K1), sep = ":")
K2 <- cbind(matrix(0, nrow = nrow(Tukey), ncol = ncol(Tukey)), Tukey)
rownames(K2) <- paste(levels(warpbreaks$tension)[2], rownames(K2), sep = ":")
Отсюда мой собственный код:
K3 <- cbind(matrix(0, nrow = nrow(Tukey), ncol = ncol(Tukey)), Tukey)
rownames(K2) <- paste(levels(warpbreaks$tension)[3], rownames(K3), sep = ":")
K <- rbind(K1, K2, K3)
colnames(K) <- c(colnames(Tukey), colnames(Tukey))
> summary(glht(mod, linfct = K %*% X))
Error in summary(glht(mod, linfct = K %*% X)) :
error in evaluating the argument 'object' in selecting a method for function 'summary': Error in K %*% X : non-conformable arguments