R/verboten.R

In JoFrhwld/multivariate2017: Linear Mixed Effects Models

#' Create Verboten Vector
#' @description vector of non-Philadelphian speakers
#' @export

verboten_vector <- function(x = c("PH76-3-1-",
                                  "PH84-2-5-",
                                  "PH84-2-3-",
                                  "PH81-1-9-",
                                  "PH92-1-1-",
                                  "PH82-1-16-",
                                  "PH80-2-5-",
                                  "PH80-2-4-",
                                  "PH85-1-5-",
                                  "PH84-1-2-",
                                  "PH84-1-1-",
                                  "PH77-3-4-")){
  return(x)
}

#' Create Verboten String
#' @description string of non-Philadelphian speakers for regex
#' @export

verboten_string <- function(x = c("PH76-3-1-",
                                  "PH84-2-5-",
                                  "PH84-2-3-",
                                  "PH92-1-1-",
                                  "PH81-1-9-",
                                  "PH82-1-16-",
                                  "PH80-2-5-",
                                  "PH80-2-4-",
                                  "PH85-1-5-",
                                  "PH84-1-2-",
                                  "PH84-1-1-",
                                  "PH77-3-4-")){
  return(paste(x, collapse = "|"))
}