gtest <- survival::survreg(survival::Surv(futime, fustat) ~ ecog.ps + rx,
survival::ovarian,
dist='weibull', scale=1)
torn <- tornado(gtest, modeldata = survival::ovarian, type = "PercentChange",
alpha = 0.10, xlabel = "futime")
plot(torn, xlabel = "Survival Time")
Run the code above in your browser using DataLab