2

使用以下数据集...

Subj <- rep(1:10, each = 10)
Item <- rep(1:10, times = 10)
IV1 <- rep(1:5, times = 20)
DV <- rnorm(100)

library(data.table)
data <- as.data.table(cbind(Subj, Item, IV1, DV))

data$Subj <- as.factor(data$Subj)
data$Item <- as.factor(data$Item)
data$IV1 <- as.factor(data$IV1)

library(MASS)
contrasts(data$IV1) <- contr.sdif(5)

library(lme4)
m1 <- lmer(DV ~ IV1 + (1 + IV1|Subj) + (1|Item), data = data)

现在假设事实证明,对于 IV1 级别 2 与 IV1 级别 1 的对比度,随机对象斜率仅存在差异。是否可以仅针对这种对比度拟合随机斜率?

4

0 回答 0