fit <- lme4::lmer(Sepal.Length ~ Petal.Length +
(Petal.Length | Species),
data = iris
)
lvl1.values <-
c(
mean(iris$Petal.Length) - stats::sd(iris$Petal.Length),
mean(iris$Petal.Length),
mean(iris$Petal.Length) + stats::sd(iris$Petal.Length)
)
vpc_at(
model = fit,
lvl1.var = "Petal.Length",
lvl1.values = lvl1.values
)
Run the code above in your browser using DataLab