R/utils.R

Defines functions str_count zero2na

zero2na <- function(x) ifelse(x == 0, NA, x)

str_count <- function(x){
  unname(sapply(x, function(y) length(strsplit(y, "")[[1]])))
}
LCBC-UiO/Questionnaires documentation built on July 18, 2023, 6:45 p.m.