R/nona.R

In guess: Adjust Estimates of Learning for Guessing

#' No NAs
#'
#' Converts NAs to 0s
#' @param vec Required. Character or Numeric vector. 
#' @return Character vector.
#' @export
#' @examples
#' x <- c(NA, 1, 0); nona(x)
#' x <- c(NA, "dk", 0); nona(x)

nona <- function(vec = NULL) {
  
  if (is.null(vec)) {
    stop("Input vector cannot be NULL")
  }
  
  vec[is.na(vec)] <- 0
  vec
}