Returns the median if the majority of values are censored and the mean otherwise.
censored.mean(x, lower, trim = 0)
left censoring point.
fraction of observations to be trimmed from each end of x before the mean is computed.
x <- c(0, 0, 1, 2, 3)
print(censored.mean(x, lower = 0))
x.cens <- c(0, 0, 0, 1, 2)
print(censored.mean(x.cens, lower = 0))
Questions? Problems? Suggestions? Tweet to @rdrrHQian@mutexlabs.com.
Please suggest features or report bugs with the GitHub issue tracker.
All documentation is copyright its authors; we didn't write any of that.