library(data.table)
dt <- simBuyseTest(1e2, n.strata = 3)
if (FALSE) {
BT <- BuyseTest(treatment ~ TTE(eventtime, status = status) + Bin(toxicity), data=dt)
}
# \dontshow{
BT <- BuyseTest(treatment ~ TTE(eventtime, status = status) + Bin(toxicity), data=dt, n.resampling = 10, trace = 0)
# }
model.tables(BT)
model.tables(BT, percentage = FALSE)
model.tables(BT, statistic = "winRatio")
Run the code above in your browser using DataLab