# NOT RUN {
# loading the data and saving in a 3D-table
data(spnamur, package = "mipfp")
spnamur.sub <- subset(spnamur, select = Household.type:Prof.status)
tab <- table(spnamur.sub)
# flattening the table
tab.flat <- flat(tab)
print(tab.flat)
# }
Run the code above in your browser using DataLab