# \donttest{
data <- subset(directAntivirals, experiment == 2)
## Data must contain d1, d2 and effect columns
fitResult <- fitMarginals(data)
surf <- fitSurface(data, fitResult, statistic = "maxR")
outsidePoints(surf$maxR$Ymean)
# }
Run the code above in your browser using DataLab