z <- SSBtoolsData("sprt_emp")[c(1, 2, 4, 7:12, 15, 17, 18), -4]
z$eu <- z$geo != "Iceland"
z
MakeFreq(z)
MakeFreq(z[, -2])
MakeFreq(z[, -(2:3)])
MakeFreq(z[, -1])
MakeFreq(z[, -1], all = TRUE)
x <- MakeFreq(z[, -1], all = TRUE, hierarchies = TRUE)
x
MakeMicro(x, "freq")
Run the code above in your browser using DataLab