inst/mld_pie.R

mld_pie <- function(...) {llply(combn, function(x, prior){
  c(prior[[x[1]]] / (prior[[x[1]]] + prior[[x[2]]]), prior[[x[2]]] / (prior[[x[1]]] + prior[[x[2]]]))
}, prior = prior)
}
BenBarnard/slidR documentation built on Jan. 2, 2018, 4:32 p.m.