Blended survival plot with manipulate

RStudio bug need to run base R first manipulate(plot(1:x), x = slider(5, 10))

Usage

manip_plot(obs_Surv, ext_Surv, blend_interv)

Arguments

obs_Surv

Observed survival

ext_Surv

External survival

blend_interv

Blending interval