concentrations <- c(0, 2^(-3:3))
surface <- data.frame(
concA = rep(concentrations,each=length(concentrations)),
concB = rep(concentrations,times=length(concentrations))
)
surface$additive <- evalBraidModel(
surface$concA,
surface$concB,
c(1, 1, 3, 3, 0, 0, 100, 100, 100)
)
surface$synergy <- evalBraidModel(
surface$concA,
surface$concB,
c(1, 1, 3, 3, 2, 0, 80, 90)
)
surface$antagonism <- evalBraidModel(
surface$concA,
surface$concB,
c(1, 1, 3, 3, -1, 0, 100)
)
head(surface)
Run the code above in your browser using DataLab