R-code for risk analysis and anonimisation of SES microdata