# Simulate some log-likeihoods of data given models (each model
# describes one column of the 'ps' object).
ps <- log(rbind(
cbind(runif(10000, 0, 0.1), runif(10000, 0.3, 0.9)),
cbind(runif(10000, 0.4, 0.9), runif(1000, 0, 0.2))))
# get posterior log-likelihoods of model, estimating prior likelihoods
# of each model from the data.
pps <- getPosteriors(ps, prs <- c(0.5, 0.5), pET = "none", cl =
NULL)
pps$priors
pps$posteriors[1:10,]
Run the code above in your browser using DataLab