Plots latent survival from rpsftm object

This function returns a ggplot derived from an rpsftm object showing latent survival time for experimental and control arms. If converged then the two latent survival curves should overlap.

gglatent(x, incidence = FALSE)

Arguments

x

rpsftm object (rpsftm)

incidence

TRUE or FALSE (should survival or 1-survival be plotted)

Examples

# use data included in rpsftm package
immdef <- rpsftm::immdef
immdef$rx <- with(immdef, 1 - xoyrs/progyrs)

# fit the model
imm.fit <- rpsftm(Surv(progyrs, prog) ~ rand(imm, rx),
                  data=immdef,
                  censor_time=censyrs)

gglatent(imm.fit)