R/computeP.R

computeP <-
function (x) {
    above <- mean(x >= 0)
    below <- mean(x < 0)
    2 * min(above, below)
}
drizopoulos/JMbayes documentation built on Feb. 2, 2021, 12:34 a.m.