R/BeaverList.R

In mikemahoney218/BeaverForaging:

#' Convert stump codes in the inventory dataset to binary values representing harvest by beaver.
#'
#' @param x the InventoryData dataset
#' @return a vector of corrected values
#' @import dplyr

BeaverStatus <- function(x){

  BeaverStatus <- list("Y" = 1,
                       "N" = 0,
                       "0" = 0)

  x <- x %>%
    mutate(Beaver = x$Gnaw)
  for(i in 1:length(BeaverStatus)){
    x$Beaver <- gsub(paste0("\\b", names(BeaverStatus)[i], "\\b"), BeaverStatus[[i]], x$Beaver)
  }
  x$Beaver <- factor(as.numeric(x$Beaver))
  x$Beaver
}