# NOT RUN {
## load the HF-ACTION trial data
library(WR)
head(hfaction_cpx9)
dat<-hfaction_cpx9
## Comparing exercise training to usual care by LWR, FWR, and NWR
obj<-WRrec(ID=dat$patid,time=dat$time,status=dat$status,
trt=dat$trt_ab,strata=dat$age60,naive=TRUE)
## print the results
obj
# }
Run the code above in your browser using DataLab