Plots observed and counterfactual survival from rpsftm object

This function returns a ggplot derived from an rpsftm object showing 3 survival curves. Observed survival for experimental and control arm. Latent survival time for control arm.

ggcfact(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::rpsftm(Surv(progyrs, prog) ~ rand(imm, rx),
                  data=immdef,
                  censor_time=censyrs)

ggcfact(imm.fit)