R/hlest.R

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