marginaliseEqual {baySeq} | R Documentation |
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).
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
# 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")