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