R/ksic.R

In jongjinyun/KSIC: Korea Standard Industry Code Data

Defines functions ksic

Documented in ksic

#' print ksic
#' @export
ksic <- function(digit=5, C=10){
  return(data.frame(ksicDB[(ksicDB$ksic_C == paste("C",C,sep=""))&(ksicDB$digit == digit),]))
}