Rd file 'PKPDmodels.Rd':
  \examples lines wider than 100 characters:
                         dy2dt = ~ krel * (1-Emax*(y1/Vd)**gamma/(EC50**gamma+(y1/Vd)**gamma)) * y3 - kout * y2,
     PKPDpool.nlme <- nlme(log(Conc) ~ log(PKPDpoolModel(ke,Vd,Kin,kout,krel,Emax,EC50,gamma,Time,ID,Type)),
             start=c(ke=log(0.05),Vd=log(10),Kin=log(5),kout=log(0.5),krel=log(2),EC50=log(5),gamma=log(3)),
                                 strip = function(...) strip.default(..., strip.names=c(FALSE,TRUE), style=1),
                                                                                     col=c("red",1,1), lty=c(1,1,2),pch=16, lwd=1.4,...)},
                                 strip = function(...) strip.default(..., strip.names=c(FALSE,TRUE), style=1),
                                                                             col=c("red",1,1), lty=c(1,1,2),pch=16, lwd=1.4,...)},
         time  <- rep(rep(c(0,2,3,4,5,6,8,10,12,14,16,19,22,24,25,27,30,35,40,50,60,70,80,90,100,120,140,160,180),
                                                                     gamma=log(0.001),h=log(65),G0=log(250),I0=log(120)), 
                            control=list(returnObject=TRUE,msVerbose=TRUE,msMaxIter=20,pnlsMaxIter=20,pnlsTol=1),
                                 strip = function(...) strip.default(..., strip.names=c(FALSE,TRUE), style=1),
                                                                             col=c("red",1,1), lty=c(1,1,1),pch=16,cex=.5, lwd=2,...)},
                              strip = function(...) strip.default(..., strip.names=c(FALSE,TRUE), style=1),
                                                                             col=c("red",1,1), lty=c(1,1,1),pch=16,cex=.5, lwd=2,...)},
             dT <- MMData$time[MMData$id==subject & MMData$time>t][1]-rev(MMData$time[MMData$id==subject & MMData$time<=t])[1]
             dInsulin <- MMData$i[MMData$id==subject & MMData$time>t][1]-rev(MMData$i[MMData$id==subject & MMData$time<=t])[1]
                                             dInsulin/dT*(t-rev(MMData$time[MMData$id==subject & MMData$time<=t])[1])
                             control=list(returnObject=TRUE,msVerbose=TRUE,msMaxIter=20,pnlsMaxIter=20,pnlsTol=1),
                                 strip = function(...) strip.default(..., strip.names=c(FALSE,TRUE), style=1),
                                                                             col=c("red",1,1), lty=c(1,1,1),pch=16, cex=.5, lwd=3,...)},

These lines will be truncated in the PDF manual.