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 的新变量引入。