concentrations <- c(0, 2^(-3:3))
surface <- data.frame(
concA = rep(concentrations,each=length(concentrations)),
concB = rep(concentrations,times=length(concentrations))
)
surface$uadditive <- evalUrsaModel(
surface$concA,
surface$concB,
c(1, 1, 3, 3, 0, 0, 100)
)
surface$usynergy <- evalUrsaModel(
surface$concA,
surface$concB,
c(1, 1, 3, 3, 5, 0, 80)
)
surface$uantagonism <- evalUrsaModel(
surface$concA,
surface$concB,
c(1, 1, 3, 3, -0.5, 0, 100)
)
head(surface)
Run the code above in your browser using DataLab