# NOT RUN {
# loading a data set
data(survData)
form <- Formula(time + event ~ cov1 + cov2)
fit_WB <- FreqSurv_HReg(form, data=survData)
fit_WB
summ.fit_WB <- summary(fit_WB); names(summ.fit_WB)
summ.fit_WB
pred_WB <- predict(fit_WB, tseq=seq(from=0, to=30, by=5))
plot(pred_WB, plot.est="Haz")
plot(pred_WB, plot.est="Surv")
# }
Run the code above in your browser using DataLab