R/hlest.R

hlest <-
function (x) 
{
    mat <- pairup(x, type = "leq")
    hlest <- median((mat[, 1] + mat[, 2])/2)
    return(hlest)
}
kloke/rbgee documentation built on May 20, 2019, 12:34 p.m.