# NOT RUN {
data(SimuData)
# non-terminal events
yh <- SimuData$yh
hcen <- SimuData$hcen
# terminal events
yd <- SimuData$yd
dcen <- SimuData$dcen
# group indicator
z <- SimuData$z
# Win Ratio tests
result <- wr.test(yh, hcen, yd, dcen, z)
print(result)
# }
Run the code above in your browser using DataLab