data(eusilcS)
## semi-continuous variable
breaks <- getBreaks(eusilcS$netIncome,
weights=eusilcS$rb050, equidist = FALSE)
netIncomeCat <- getCat(eusilcS$netIncome, breaks)
summary(netIncomeCat)
Run the code above in your browser using DataLab