data(UTIdata)
UTIdata <- subset(UTIdata, !is.na(RNA))
o <- order(UTIdata$Patid, UTIdata$Fup)
UTIdata <- UTIdata[o,]
cens <- (UTIdata$RNAcens==1)+0
yL<- log10(UTIdata$RNA)
X<- cbind((UTIdata$Fup==0)+0, (UTIdata$Fup==1)+0, (UTIdata$Fup==3)+0, (UTIdata$Fup==6)+0, (UTIdata$Fup==9)+0, (UTIdata$Fup==12)+0, (UTIdata$Fup==18)+0, (UTIdata$Fup==24)+0)
Z <- matrix(rep(1, length(yL)), ncol=1)
cluster<- as.numeric(UTIdata$Patid)
fit <- lmec(yL,cens, X, Z, cluster, method='ML', maxstep=40)
Run the code above in your browser using DataLab