Plot for cisurvfitJMCS object — plot

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

Usage

plot_cisurvfitJMCS(object)

Arguments

object: fitted survfitJMCS object

Value

Plot for predicted survival probability

Examples

  # \donttest{
##
library(survival)
library(dplyr)
jmcs1<-jmcsBig(dtlong=data.frame(long2),
dtsurv = data.frame(surv2),
longm=y~ x7+visit,
survm=Surv(time,status)~x1+visit,
rd= ~ visit|id,
samplesize=200,id='id')
mod2<-jmcs1
P2<-survfitJMCS(model<-mod2,ids<-c(5),u<-seq(surv2[surv2$id==5,]$time,
surv2[surv2$id==5,]$time+10,0.2),obs.time='time')
P3<-cisurvfitJMCS(P2)
#> Error in (1 - h) * qs[i]: non-numeric argument to binary operator
plot_cisurvfitJMCS(P3)
#> Error in eval(expr, envir, enclos): object 'P3' not found
##
  # }