r - 如何在 lme 中分别拟合两个随机效应？

Question

我正在 nlme 包中通过 REML 进行线性混合效应模型拟合。这些是对我有用的代码：

# Linear mixed-effects model fit by REML (intercept and not slope)
x <- lme (DV ~ IV1 + IV2 + IV1*IV2, data=a.frame, random=~1|speaker)
summary(x)

# Linear mixed-effects model fit by REML (slope and no intercept)
x1 <- lme (DV ~ IV1 + IV2 + IV1*IV2, data=a.frame, random=~IV3-1|speaker)
summary(x1)

# Linear mixed-effects model fit by REML (slope and intercept)
x2 <- lme (DV ~ IV1 + IV2 + IV1*IV2, data=a.frame, random=~IV3|speaker)
summary(x2)

#nested random effect
x5 <- lme (DV ~ IV1 + IV2 + IV1*IV2, data=a.frame, random=~1|speaker/item)
summary(x5)

我真正想做的是将扬声器和项目分别作为随机效果的模型。我曾尝试使用这个公式：

x4 <- lme (DV ~ IV1 + IV2 + IV1*IV2, data=a.frame, random=~1|speaker + 1|item)

但是，这个公式给了我以下警告信息：

Warning message:
In Ops.factor(speaker, 1) : + not meaningful for factors

你知道这意味着什么吗？以及如何将扬声器和项目分别作为随机效果进行安装？

Answer 1

lme()我认为可以通过以下代码分别包含两种随机效果（一种用于扬声器，一种用于时间） ：

x4 <- lme (DV ~ IV1 + IV2 + IV1*IV2, data=a.frame, random=~ speaker + item -1 | id),

具有id更高级别的变量，其中speaker和item都嵌套。如果您没有这样的变量，您可以将其作为一个新变量引入，所有观察值的值为 1。