R/censored.mean.R

In qrnn: Quantile Regression Neural Network

Defines functions censored.mean

Documented in censored.mean

censored.mean <-
function(x, lower, trim = 0)
{
    x.mean <- mean(x, trim = trim)
    x.median <- median(x)
    if (isTRUE(all.equal(x.median, lower))){
        return(x.median)
    } else{
        return(x.mean)
    }
}

Try the qrnn package in your browser