# \donttest{
icf <- icfit(Surv(left, right, type='interval2') ~ period + gender + age,
data=drugusers)
rasterplot(icf)
rasterplot(icf, type = 'R')
rasterplot(icf, type = 'Y')
rasterplot(icf, pow = 0.05) # very small power basically shows 0/1
sel <- c(
11, 18, # right-censored, event in (L, \infty)
1:2, # event in (0, R)
115, 133 # event in (L, R)
)
rasterplot(icf, sel = sel)
rasterplot(icf, sel = sel, label = c("e", "p", "g", "c", "m", "n"), show_label = TRUE)
rasterplot(icf, sel = sel, label = c("e", "p", "g", "c", "m", "n"), show_label = TRUE,
type = 'Y')
# }
Run the code above in your browser using DataLab