R/is_ksic.R

In jongjinyun/KSIC: Korea Standard Industry Code Data

#' is ksic?
#' @export
is_ksic <- function(x){
  return(data.frame(input = x,
                    C10 = x %in% ksicDB[ksicDB$ksic_C=="C10",]$ksic_cd,
                    C9 = x %in% ksicDB[ksicDB$ksic_C=="C9",]$ksic_cd))
}