R/computeP.R
In JMbayes: Joint Modeling of Longitudinal and Time-to-Event Data under a Bayesian Approach

computeP <-
function (x) {
    above <- mean(x >= 0)
    below <- mean(x < 0)
    2 * min(above, below)
}

Any scripts or data that you put into this service are public.

JMbayes documentation built on Jan. 9, 2020, 9:07 a.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the JMbayes package in your browser