Estoy haciendo el modelo de efectos mixtos lineales ajustado por REML en el paquete nlme. Y estos son códigos que funcionan para mí:

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

Lo que realmente me gustaría hacer es tener un modelo con altavoz y elemento como efectos aleatorios por separado. Intenté usar esta fórmula:

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

Sin embargo, esta fórmula me da el siguiente mensaje de advertencia:

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

¿Tienes alguna idea de lo que esto significa? ¿Y cómo puedo colocar tanto el altavoz como el elemento como efectos aleatorios por separado?