data(ex_dta)
dta_ps <- psrwe_est(ex_dta,
v_covs = paste("V", 1:7, sep = ""),
v_grp = "Group",
cur_grp_level = "current")
ps_borrow <- psrwe_borrow(total_borrow = 30, dta_ps)
rst <- psrwe_survkm(ps_borrow,
pred_tp = 365,
v_time = "Y_Surv",
v_event = "Status")
rst
Run the code above in your browser using DataLab