r - 在NLME和LME4中安装相同的模型

数据来自here

library(nlme)
dat0 <- read.table("aids.dat2",head=T)
dat1 <- dat0[dat0$day<=90, ]   # use only first 90-day data
dat2 <- dat1[!apply(is.na(dat1),1,any),]  # remove missing data

# Next, let's treat the data as longitudinal (or grouped) data
aids.dat <- groupedData(lgcopy ~ day | patid, data=dat2)

# A NLME model fit, with random effects on all 4 parameters
start <- c(10,0.5,6,0.005)  # starting value

aids.dat$log10copy = log10(aids.dat$lgcopy)

nlme.fit <- nlme(log10copy ~ exp(p1-b1*day) + exp(p2-b2*day + 1),
                 fixed = list(p1 ~ 1, b1 ~ 1, p2 ~ 1, b2 ~ 1),
                 random = list(patid = pdDiag(list(p1 ~ 1, b1 ~ 1, p2 ~ 1, b2 ~ 1))),
                 data =aids.dat, start=c(start))
summary(nlme.fit)

在这里，我使用nlme包中的nlme拟合非线性混合效果模型。该模型具有4个固定效应和4个随机效应。我在方差-协方差矩阵上指定了对角线结构，每个patid组成一个组。

library(lme4)
deriv_mod <- deriv( ~ exp(p1 - b1*t) + exp(p2 - b2*t + 1),
                    c("p1", "b1", "p2", "b2"), function(t, p1, b1, p2, b2){})
nlmer.fit <- nlmer(deriv_mod ~ list(p1 ~ 1, b1 ~ 1, p2 ~ 1, b2 ~ 1) +
                     list(p1 ~ 1, b1 ~ 1, p2 ~ 1, b2 ~ 1), data = aids.dat, start = c(start))

在这里，我想使用lme4包来拟合相同的模型。从文档看来，formula的nlmer也必须具有渐变分量，因此我首先使用了deriv函数。但是，我不确定如何指定其余参数？的

deriv_mod ~ list(p1 ~ 1, b1 ~ 1, p2 ~ 1, b2 ~ 1) +
                     list(p1 ~ 1, b1 ~ 1, p2 ~ 1, b2 ~ 1)

指定4个固定效果（在第一个列表对象中）和它们对应的4个随机效果（在第二个列表对象中）。但是，我不太确定如何指定对角方差-协方差结构，并确保观察结果按patid分组，就像我在random = list(patid = pdDiag(list(p1 ~ 1, b1 ~ 1, p2 ~ 1, b2 ~ 1)))中用nlme指定的那样。

最佳答案

指定固定效果FE1 ... FE4和独立随机效果RE1 ... RE4的标准方法如下所示

mod_fit <- lme4::nlmer(Y ~ FE1 + FE2 + FE3 + FE4 +
  (1|RE1) + (1|RE2) + (1|RE3) + (1|RE4), data= dat)

nlme软件包的语法与lme4软件包略有不同。

mod_fit <- nlme::nlme(Y ~ FE1 + FE2 + FE3 + FE4 +
      (1|RE1) + (1|RE2) + (1|RE3) + (1|RE4),
  fixed= FE1 + FE2 + FE3 + FE4 ~ Y,
  groups= 1 ~ RE1 + RE2 + RE3 + RE4,
  data= dat)

就是说，我不确定我是否完全理解您的问题的细微差别，因此您的情况很可能需要对此进行细微的修改。如果您提供评论，我很乐意根据需要修改我的答案