Loewe: Calculate Loewe Synergy Score
In synergyfinder: Calculate and Visualize Synergy Scores for Drug Combinations

Description Usage Arguments Details Value Author(s) References Examples

View source: R/calculate_synergy_score.R

Loewe calculates the synergy score matrix from a dose-response matrix by using a druginteraction reference model introduced by Loewe in 1953.

1	Loewe(response, Emin = NA, Emax = NA, quiet = TRUE)

`response`	A data frame. It must contain the columns: "conc1", "conc2", ..., for the concentration of the combined drugs and "response" for the observed %inhibition at certain combination.
`Emin`	The expected minimum response value in the 4 parameter log-logistic model.
`Emax`	The expected maximum response value in the 4 parameter log-logistic model.
`quiet`	A logical value. If it is `TRUE` then the warning message will not show during calculation.

Loewe model is a reference model for evaluating the combination effect of two drugs. The basic assumption of this model is "The referece effect of drug combination is the expected effect of a drug combined with itself".

The optional arguments drug.col.model, drug.row.model are designed for reuse the single drug dose response model fitting results, if it has been down before. Functions FitDoseResponse and ExtractSingleDrug could be used to calculate these arguments.

A data frame containing the concentrations for drugs, reference effect and synergy score estimated by Loewe model.

Shuyu Zheng shuyu.zheng@helsinki.fi
Jing Tang jing.tang@helsinki.fi

Yadav B, Wennerberg K, Aittokallio T, Tang J.(2015). Searching for Drug Synergy in Complex Dose-Response Landscape Using an Interaction Potency Model.Comput Struct Biotechnol J, 13:504– 513.
[Loewe, 1953] Loewe, S. (1953). The problem of synergism and antagonism of combined drugs. Arzneimittelforschung, 3(6):285–290.

data("mathews_screening_data")
data <- ReshapeData(mathews_screening_data)
response <- data$response[data$response$block_id == 1, 
                          c("conc1", "conc2", "response")]
Loewe.score <- Loewe(response)