if (FALSE) {
d1 <- defData(varname = "x1", formula = 0, variance = 1)
d1 <- defData(d1, varname = "b1", formula = 0.5, dist = "binary")
coefs <- log(c(1.2, 0.8))
logisticCoefs(d1, coefs, popPrev = 0.20)
logisticCoefs(d1, coefs, popPrev = 0.20, rr = 1.50, trtName = "rx")
logisticCoefs(d1, coefs, popPrev = 0.20, rd = 0.30, trtName = "rx")
logisticCoefs(d1, coefs, popPrev = 0.20, auc = 0.80)
}
Run the code above in your browser using DataLab