R/utils.R

Defines functions demean `%||%`

demean <- function(x, w) x - weighted.mean(x, w, na.rm = TRUE)

`%||%` <- function(a, b) if (!is.na(a)) a else b
xiangzhou09/rwrmed documentation built on May 27, 2019, 2:08 p.m.