R/remove_n2m.r

Defines functions remove_n2m

remove_n2m <- function(x, n = 1, m = 9){
require(dplyr)
  ifelse(between(x, n, m), NA, x)
}

# data[, cols] <- sapply(data[, cols], remove_n2m)
injuryepi/injuryepi documentation built on Nov. 13, 2019, 12:13 p.m.