Piece-wise uniform survival curve for uncertain inputs

sample_pw_unif_surv(p, times, n = 2, sn = 10, epsilon = 0.1)

Arguments

p

Probability

times

Event times

n

Number of samples

sn

Scaling factor. This is like a pseudosample size.

epsilon

Different in times

Examples

surv <- sample_pw_unif_surv(p = c(0.8, 0.3, 0.2, 0),
                           times = c(10, 20, 30, 40), n = 100)
matplot(surv, type = "l")

surv <- sample_pw_unif_surv(p = c(0.8, 0.3, 0.2, 0),
                           times = c(10, 20, 30, 40), n = 100, sn = 100)
matplot(surv, type = "l")