bfit <- braidrm(measure ~ concA + concB, synergisticExample, getCIs=TRUE)
calcBraidConfInt(bfit, function(p) evalBraidModel(10, 10, p))
calcBraidConfInt(bfit, function(p) estimateIAE(p, c(0.5, 0.9), c(10, 10)))
Run the code above in your browser using DataLab