# NOT RUN {
data <- subset(directAntivirals, experiment == 1)
## Data must contain d1, d2 and effect columns
transforms <- getTransformations(data)
fitResult <- fitMarginals(data, transforms)
predictOffAxis(data, fitResult, null_model = "hsa")
# }
Run the code above in your browser using DataLab