Я пытаюсь разработать модель смешанных эффектов для набора данных с повторными измерениями.
Met
измеряется в серии случайно выбранных дней на 24 образцах, подвергнутых 3 обработкам (Treat
, с уровнями c
, uc
и ga
).
Уровни Met
меняются из-за разницы погодных условий в течение дней (Date
). Таким образом, дата становится вторым случайным эффектом модели (наряду с отобранными элементами (ID
)).
Меня больше всего интересует, оказывает ли Treat
значительное влияние на Met
в разные дни.
некоторые примерные данные:
# create example data frame
ID <- factor(rep(c("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x"), 6))
Treat <- factor(rep(c(rep("c",8), rep("uc",8), rep("ga",8)), 6))
Date <- factor(rep(c(rep("10/06/2007",24), rep("19/06/2007",24), rep("12/07/2007",24), rep("21/07/2007",24), rep("11/08/2007",24), rep("12/08/2007",24)), 1))
Met <- as.numeric(c(rnorm(8,5,2), rnorm(8,7,2), rnorm(8,9,2),
rnorm(8,15,2), rnorm(8,17,2), rnorm(8,19,2),
rnorm(8,9,2), rnorm(8,11,2), rnorm(8,13,2),
rnorm(8,8,2), rnorm(8,10,2), rnorm(8,12,2),
rnorm(8,2,2), rnorm(8,4,2), rnorm(8,6,2),
rnorm(8,3,2), rnorm(8,5,2), rnorm(8,7,2)))
ww <- gl(1,1,144)
lys.data <- data.frame(ID, Treat, Date, Met, ww)
head(lys.data)
# set contrasts of data frame
lys.data$Treat <- factor(lys.data$Treat, levels=c("c", "uc", "ga"))
Затем анализ:
library(nlme)
lme.001 <- lme(Met ~ Treat, data = lys.data,
random=list(ww=pdBlocked(list(pdIdent(~Date-1),
pdIdent(~ID-1)))))
summary(lme.001)
Из результатов, которые я получаю, кажется, что я не делаю то, что, как я предполагаю, делаю, поскольку степени свободы кажутся неправильными (слишком высокими). Верно ли, что число степеней свободы в знаменателе увеличивается с числом повторений (дат) проведения эксперимента?
Кто может помочь мне здесь или указать мне правильное направление? Я ошибаюсь в том, как я представляю вложенность данных? (полагаю, что нет).
lme
. - person Macro   schedule 09.01.2013random=~Date|ID
? Было ли что-то в остатках или графикеlmList
, что предполагало это конкретное выражение для случайных эффектов? - person bokov   schedule 29.07.2013