R/countOfsomething.2.R

In msxakk89/dat: Data Analyst Toolkit (dat): a library of tools for data analysts and scientists

#' Function to count the number of some occurences in a vector
#'
#'
#' @param vec A character or boolean vector
#' @param something A character vector of lenght one specifying the strings or boolean we want to count
#' @export
#' 
countOfsomething.2 <- function(vec,something) { 
  if(anyNA(vec)){
    print("Input vector to countOfsomething.2 has NA. Returning NA.")
    return(NA)
  }
  count_out <- 0
  for(i in 1:length(vec)){
    if(vec[i] == something){
      count_out <- count_out + 1
    }
  }
  return(count_out)
}