efficacyPar <- c(
1, 1, 3, 3,
# Omitted shape synergy parameters assume to be 1
0, 100, 100, 125 # Elevated Ef indicates efficacy synergy
)
potencyPar <- c(
1, 1, 3, 3,
10, 15, # alphas above 1 indicate potency synergy
0, 100, 100, 100 # No efficacy synergy
)
concentrations <- c(0, 2^(-3:3))
surface <- data.frame(
concA = rep(concentrations,each=length(concentrations)),
concB = rep(concentrations,times=length(concentrations))
)
surface$efficacy <- evalMusycModel(surface$concA, surface$concB, efficacyPar)
surface$potency <- evalMusycModel(surface$concA, surface$concB, potencyPar)
head(surface)
Run the code above in your browser using DataLab