concentrations <- c(0, 2^(-3:3))
surface <- data.frame(
concA = rep(concentrations,each=length(concentrations)),
concB = rep(concentrations,times=length(concentrations))
)
surface$protective <- evalFlippedBraidModel(
surface$concA,
surface$concB,
c(1, 1, 3, 3, 0, 0, 100, 0, 10),
flip="A"
)
surface$coactive <- evalFlippedBraidModel(
surface$concA,
surface$concB,
c(1, 1, 3, 3, 0, 0, 0, 0, 100),
flip="both"
)
head(surface)
Run the code above in your browser using DataLab