Я хотел бы написать модель со случайными перехватами и случайными наклонами по времени. Я не уверен, что мой код правильный.
model4<-lmer(weight~Time + Diet + Time*Diet + (1+Time|Chick), data = Data, REML = TRUE)
summary(model4)
@dww Кажется, что есть перекрестная публикация, а в резюме появляются практически одни и те же вопросы, но формулируются немного по-другому, например. stats.stackexchange.com/q/568349/237901
Да, это правильная спецификация для этих случайных эффектов. Вы можете проверить это, применив аналогичную модель, но временно убрав фиксированное влияние на диету и взаимодействие между временем и диетой.
model4<-lmer(weight~Time + (1+Time|Chick), data = ChickWeight, REML = TRUE)
Столбец связывает исходные данные, а также прогнозы из этой простой модели выше и выбирает пять случайных цыплят для построения графика.
weight_hat = predict(model4)
cw = cbind(ChickWeight,weight_hat)
random_chicks = sample(unique(cw$Chick),5)
ggplot(cw[cw$Chick %in% random_chicks,], aes(Time, color=Chick)) +
geom_point(aes(y=weight), size=2) +
geom_line(aes(y=weight_hat), size=1.5) +
theme(legend.position = "bottom")+
guides(color=guide_legend(nrow=1))
Вы можете видеть, что точка пересечения и наклон для каждого цыпленка различаются.
Я проголосовал за перенос этого вопроса на перекрестную проверку. Это кажется более близким к вопросу о подходящем статистическом тесте, чем к вопросу о программировании.