Proportionally increase or reduce the time to event of a survival distribution.

apply_af(dist, af, log_af = FALSE)

Arguments

dist

A survival distribution.

af

An acceleration factor to be applied.

log_af

If TRUE, the accleration factor is exponentiated before being applied.

Value

A surv_aft object.

Examples

dist1 <- define_survival(distribution = "exp", rate = .25) aft_dist <- apply_af(dist1, 1.5)