R/is_third_party.R

In publichealthengland/hcaidcs: R functions for the mandatory surveillance of bacteraemia and C. difficile infection

#' Check whether assignment is third party
#'
#' @param x A numeric value from assignment method
#' @return TRUE or FALSE
#' @examples
#' \dontrun{
#' is_third_party(9)
#' is_third_party(13)
#' }

is_third_party <- function(x){
  z <- x == 13 | x == 14
  return(z)
}