Returns the median if the majority of values are censored and the mean otherwise.

1 | ```
censored.mean(x, lower, trim = 0)
``` |

`x` |
numeric vector. |

`lower` |
left censoring point. |

`trim` |
fraction of observations to be trimmed from each end of |

`qrnn.fit`

, `qrnn.predict`

1 2 3 4 | ```
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 @rdrrHQ or email at ian@mutexlabs.com.

All documentation is copyright its authors; we didn't write any of that.