# \donttest{
##
library(survival)
library(dplyr)
fit4<-joinRMLBig(dtlong=long2,dtsurv = surv2,longm=y~ x7+visit,survm=Surv(time,status)~x1+visit,
rd=~ visit|id,timeVar='visit',samplesize=200,id='id')
P2<-predJRML(model<-fit4,ids<-c(10),dtlong=long2,dtsurv=surv2)
pp1<-plot(P2$plong[[1]])
pp1<-plot(P2$psurv[[1]])
##
# }
Run the code above in your browser using DataLab