(fm1 <- lme4:::nlmer(circumference ~ SSlogis(age, Asym, xmid, scal) ~ Asym|Tree,
Orange, verb = 1,
start = c(Asym = 192.6872, xmid = 728.7544, scal = 353.5320)))
(fm2 <- lme4:::nlmer(conc ~ SSfol(Dose, Time,lKe, lKa, lCl) ~ (lKe+lKa+lCl|Subject),
Theoph, start = c(lKe = -2.5, lKa = 0.5, lCl = -3), verb = 1))
(fm3 <- lme4:::nlmer(conc ~ SSfol(Dose, Time,lKe, lKa, lCl) ~
(lKe|Subject) + (lKa|Subject) + (lCl|Subject), Theoph,
start = c(lKe = -2.5, lKa = 0.5, lCl = -3), verb = 1))
(fm4 <- lme4:::nlmer(conc ~ SSfol(Dose, Time,lKe, lKa, lCl) ~
(lKa+lCl|Subject), Theoph,
start = c(lKe = -2.5, lKa = 0.5, lCl = -3), verb = 1))
(fm5 <- lme4:::nlmer(conc ~ SSfol(Dose, Time,lKe, lKa, lCl) ~
(lKa|Subject) + (lCl|Subject), Theoph,
start = c(lKe = -2.5, lKa = 0.5, lCl = -3), verb = 1))
Run the code above in your browser using DataLab