# Example 1
propWINS(WR = 2, WO = 1.5)
# Example 2 - Back-calculation
COVID19HCE <- hce(GROUP = COVID19$GROUP, TRTP = COVID19$TRTP)
res <- calcWINS(COVID19HCE)
WR <- res$WR1$WR
WO <- res$WO$WO
Overall <- res$summary$TOTAL
propWINS(WR = WR, WO = WO, Overall = Overall)
## Verify
res$summary
# Example 3 - Confidence interval
propWINS(WR = 1.4, WO = 1.3, alpha = 0.05, Overall = 2500)
propWINS(WR = 2, WO = 1.5, alpha = 0.01, N = 500)
Run the code above in your browser using DataLab