# NOT RUN {
data <- subset(directAntivirals, experiment == 2)
## Data must contain d1, d2 and effect columns
fitResult <- fitMarginals(data)
CP <- CPBootstrap(data, fitResult, null_model = "loewe", B.CP = 5)
statM <- maxR(data, fitResult, null_model = "loewe", CP = CP)
outsidePoints(statM$Ymean)
# }
Run the code above in your browser using DataLab