predJRML — predJRML • jmBIG

prediction of survival probability and longitudinal marker using joineRML for BIG data

Usage

predJRML(model, ids, dtlong, dtsurv)

Arguments

>>>>>>> test

model: fitted model object
ids: value of id
dtlong: longitudinal data
dtsurv: survival data

<<<<<<< HEAD

Value

=======

Value

>>>>>>> test

list of predicted values for the given id

<<<<<<< HEAD

Examples

=======

Examples

>>>>>>> test

   # \donttest{
##
library(survival)
library(dplyr)
jmcs1<-joinRMLBig(dtlong=long2,
dtsurv = surv2,
longm=y~ x7+visit,
survm=Surv(time,status)~x1+visit,
rd=~ visit|id,
timeVar='visit',
samplesize=200,
id='id')
#> Error in mjoint(formLongFixed = longm, formLongRandom = rd, formSurv = survm,     data = dtlong1[[i]], survData = dtsurv1[[i]], timeVar = timeVar): could not find function "mjoint"
mod4<-jmcs1
#> Error in eval(expr, envir, enclos): object 'jmcs1' not found
P2<-predJRML(model<-mod4,ids<-c(10),dtlong=long2,dtsurv=surv2)
#> Error in eval(expr, envir, enclos): object 'mod4' not found
pp1<-plot(P2$plong[[1]])
#> Error in eval(expr, envir, enclos): object 'P2' not found
pp1<-plot(P2$psurv[[1]])
#> Error in eval(expr, envir, enclos): object 'P2' not found
##
   # }

<<<<<<< HEAD