# 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