# NOT RUN {
klass_data <- GetKlass(klass = "6", date = "2007-01-01")
input_level <- levelCheck(x = klassdata$nace5, klass_data = klass_data)
formattering(x = klassdata$nace5, input_level = input_level, klass = 6, klass_data=klass_data)
klass_data <- GetKlass(klass = "7", date = "2007-01-01")
input_level <- levelCheck(x = klassdata$occupation, klass_data = klass_data)
formattering(x = klassdata$occupation, input_level = input_level, klass = 7, klass_data=klass_data)
klass_data <- GetKlass(klass = "131", date = "2007-01-01")
input_level <- levelCheck(x = klassdata$occupation, klass_data = klass_data)
formattering(x = klassdata$kommune2, input_level = input_level, klass = 131, klass_data=klass_data)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab