Description Usage Arguments Value Author(s) See Also Examples
View source: R/marginalisePairwise.R
In cases where multiple models are simultaneously evaluated in the 'getLikelihoods' function, the posterior likelihoods for each model in which two conditions are equivalent can be summed to give the marginal likelihood of equivalence for all biomolecular events (i.e., data rows).
1  marginaliseEqual(cD, r1, r2)

cD 
A 
r1 
A defined group name to identify in the '@groups' slot of the

r2 
A defined group name to identify in the '@groups' slot of the

A vector of marginal posterior likelihoods defining the probability that the two group identifiers are equal for each row of the data.
Thomas J. Hardcastle
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22  # load test data
data(simData)
# Create a {countData} object from test data, supposing that there are
# multiple experimental groups present.
replicates < c("simA", "simA", "simB", "simC", "simC", "simD", "simE", "simE", "simF", "simG")
CD < new("countData", data = simData, replicates = replicates)
CD < allModels(CD)
# The total number of models generated is high.
length(CD@groups)
# Priors and likelihoods acquired through standard means.
## Not run: CD < getPriors(CD, cl = cl)
## Not run: CD < getLikelihoods(CD, cl = cl)
# Marginal likelihood that 'simA' and 'simD' replicate groups are equal
# for each row of the data.
## Not run: marginaliseEqual(CD, "simA", "simD")

Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.