plot.Diffepoce | R Documentation |
This function displays plots related to predictive accuracy functions:
epoce
and Diffepoce
.
## S3 method for class 'Diffepoce'
plot(x, ...)
## S3 method for class 'epoce'
plot(x, ...)
x |
an object inheriting from classes |
... |
other parameters to be passed through to plotting functions |
These functions do not apply for the moment with multiple causes of event (competing risks).
For epoce
objects, the function displays the EPOCE estimate (either
MPOL or CVPOL) according to the time of prediction. For Diffepoce
objects, plot
displays the difference in EPOCE estimates (either MPOL
or CVPOL) and its 95% tracking interval between two joint latent class
models
Returns plots related to epoce
and Diffepoce
Cecile Proust-Lima and Viviane Philipps
epoce
,Diffepoce
## Not run:
# estimation of the joint latent class model
m3 <- Jointlcmm(fixed= Ydep1~Time*X1,mixture=~Time,random=~Time,
classmb=~X3,subject='ID',survival = Surv(Tevent,Event)~X1+mixture(X2),
hazard="3-quant-splines",hazardtype="PH",ng=3,data=data_lcmm,
B=c(0.7667, 0.4020, -0.8243, -0.2726, 0.0000, 0.0000, 0.0000, 0.3020,
-0.6212, 2.6247, 5.3139, -0.0255, 1.3595, 0.8172, -11.6867, 10.1668,
10.2355, 11.5137, -2.6209, -0.4328, -0.6062, 1.4718, -0.0378, 0.8505,
0.0366, 0.2634, 1.4981))
# predictive accuracy of the model evaluated with EPOCE
VecTime <- c(1,3,5,7,9,11,13,15)
cvpl <- epoce(m3,var.time="Time",pred.times=VecTime)
summary(cvpl)
plot(cvpl,bty="l",ylim=c(0,2))
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.