R/edar_occupation.R
In DiogoFerrari/edar: Exploratory Data Analysis in R
Defines functions
display.nas
## {{{ ancillary }}}
display.nas <- function(isco, conv.from, conv.to)
{
print(
isco %>%
dplyr::rename(conv.from=!!conv.from,
conv.to =!!conv.to,
) %>%
dplyr::filter(!stats::complete.cases(conv.to)) %>%
dplyr::filter( stats::complete.cases(conv.from)) %>%
dplyr::filter(!duplicated(.)) %>%
dplyr::arrange(conv.from) %>%
dplyr::rename_at(dplyr::vars(conv.from, conv.to), dplyr::funs(c(conv.from, conv.to) ) )
, n=Inf)
}
## }}}
## =====================================================
## converting between ISCOs
## =====================================================
## Conversions are based on Harry Ganzeboom’s script (http://www.harryganzeboom.nl/ISCO08/index.htm)
## Local scripts in ~/Dropbox/CienciasSociais/Data/00-Auxiliary/isco08-2
## -----
## to 88
## -----
## {{{ docs }}}
#' Recode ISCO-08 into ISCO-88
#'
#' The function recodes ISCO-08 into ISCO-88.
#'
#' @param isco08 a numeric vector with the ISCO-08 codes
#' @param display.nas boolean. If true (defaul is \code{FALSE}), displays table with unmatched ISCO-08 codes.
#'
#' @return
#' It returns a vector with ISCO-88 codes.
#'
#' @export
## }}}
isco08to88 <- function(isco08, display.nas=FALSE)
{
## RECODE OF ISCO-08 INTO ISCO-88 based on http://www.harryganzeboom.nl/ISCO08/index.htm
## Conversion Table Version 13 Aug 2015
isco = tibble::tibble(isco08=isco08)
isco = isco %>%
dplyr::mutate(isco88 = dplyr::case_when(
isco08 == 0110 ~ 0110,
isco08 == 0210 ~ 0110,
isco08 == 0310 ~ 0110,
isco08 == 0100 ~ 0110,
isco08 == 0200 ~ 0110,
isco08 == 0300 ~ 0110,
isco08 == 1000 ~ 1000,
isco08 == 1100 ~ 1100,
isco08 == 1110 ~ 1100,
isco08 == 1111 ~ 1110,
isco08 == 1112 ~ 1120,
isco08 == 1113 ~ 1130,
isco08 == 1114 ~ 1140,
isco08 == 1120 ~ 1210,
isco08 == 1200 ~ 1200,
isco08 == 1210 ~ 1230,
isco08 == 1211 ~ 1231,
isco08 == 1212 ~ 1232,
isco08 == 1213 ~ 1239,
isco08 == 1219 ~ 1229,
isco08 == 1220 ~ 1230,
isco08 == 1221 ~ 1233,
isco08 == 1222 ~ 1234,
isco08 == 1223 ~ 1237,
isco08 == 1300 ~ 1220,
isco08 == 1310 ~ 1221,
isco08 == 1311 ~ 1221,
isco08 == 1312 ~ 1221,
isco08 == 1320 ~ 1220,
isco08 == 1321 ~ 1222,
isco08 == 1322 ~ 1222,
isco08 == 1323 ~ 1223,
isco08 == 1324 ~ 1235,
isco08 == 1330 ~ 1236,
isco08 == 1340 ~ 1229,
isco08 == 1341 ~ 1229,
isco08 == 1342 ~ 1229,
isco08 == 1343 ~ 1229,
isco08 == 1344 ~ 1229,
isco08 == 1345 ~ 1229,
isco08 == 1346 ~ 1227,
isco08 == 1349 ~ 1229,
isco08 == 1400 ~ 1310,
isco08 == 1410 ~ 1315,
isco08 == 1411 ~ 1315,
isco08 == 1412 ~ 1315,
isco08 == 1420 ~ 1314,
isco08 == 1430 ~ 1319,
isco08 == 1431 ~ 1319,
isco08 == 1439 ~ 1319,
isco08 == 2000 ~ 2000,
isco08 == 2100 ~ 2100,
isco08 == 2110 ~ 2110,
isco08 == 2111 ~ 2111,
isco08 == 2112 ~ 2112,
isco08 == 2113 ~ 2113,
isco08 == 2114 ~ 2114,
isco08 == 2120 ~ 2120,
isco08 == 2130 ~ 2210,
isco08 == 2131 ~ 2211,
isco08 == 2132 ~ 2213,
isco08 == 2133 ~ 2200,
isco08 == 2140 ~ 2140,
isco08 == 2141 ~ 2149,
isco08 == 2142 ~ 2142,
isco08 == 2143 ~ 2149,
isco08 == 2144 ~ 2145,
isco08 == 2145 ~ 2146,
isco08 == 2146 ~ 2147,
isco08 == 2149 ~ 2149,
isco08 == 2150 ~ 2140,
isco08 == 2151 ~ 2143,
isco08 == 2152 ~ 2144,
isco08 == 2153 ~ 2144,
isco08 == 2160 ~ 2140,
isco08 == 2161 ~ 2141,
isco08 == 2162 ~ 2141,
isco08 == 2163 ~ 3471,
isco08 == 2164 ~ 2141,
isco08 == 2165 ~ 2148,
isco08 == 2166 ~ 3471,
isco08 == 2200 ~ 2200,
isco08 == 2210 ~ 2220,
isco08 == 2211 ~ 2221,
isco08 == 2212 ~ 2221,
isco08 == 2220 ~ 2230,
isco08 == 2221 ~ 2230,
isco08 == 2222 ~ 2230,
isco08 == 2230 ~ 3229,
isco08 == 2240 ~ 3221,
isco08 == 2250 ~ 2223,
isco08 == 2260 ~ 3210,
isco08 == 2261 ~ 2222,
isco08 == 2262 ~ 2224,
isco08 == 2263 ~ 2229,
isco08 == 2264 ~ 3226,
isco08 == 2265 ~ 3223,
isco08 == 2266 ~ 3229,
isco08 == 2267 ~ 3224,
isco08 == 2269 ~ 2229,
isco08 == 2310 ~ 2310,
isco08 == 2320 ~ 2320,
isco08 == 2330 ~ 2320,
isco08 == 2300 ~ 2300,
isco08 == 2340 ~ 2330,
isco08 == 2341 ~ 2331,
isco08 == 2342 ~ 2332,
isco08 == 2350 ~ 2350,
isco08 == 2351 ~ 2351,
isco08 == 2351 ~ 2352,
isco08 == 2352 ~ 2340,
isco08 == 2353 ~ 2359,
isco08 == 2354 ~ 2359,
isco08 == 2355 ~ 2359,
isco08 == 2356 ~ 2359,
isco08 == 2359 ~ 2359,
isco08 == 2400 ~ 2400,
isco08 == 2410 ~ 2410,
isco08 == 2411 ~ 2411,
isco08 == 2412 ~ 2419,
isco08 == 2413 ~ 2419,
isco08 == 2420 ~ 2419,
isco08 == 2421 ~ 2419,
isco08 == 2422 ~ 2419,
isco08 == 2423 ~ 2412,
isco08 == 2424 ~ 2412,
isco08 == 2430 ~ 2410,
isco08 == 2431 ~ 2419,
isco08 == 2432 ~ 2419,
isco08 == 2433 ~ 3415,
isco08 == 2434 ~ 3415,
isco08 == 2500 ~ 2100,
isco08 == 2510 ~ 2130,
isco08 == 2511 ~ 2131,
isco08 == 2512 ~ 2131,
isco08 == 2513 ~ 2131,
isco08 == 2513 ~ 2139,
isco08 == 2514 ~ 2132,
isco08 == 2519 ~ 2131,
isco08 == 2520 ~ 2131,
isco08 == 2521 ~ 2131,
isco08 == 2522 ~ 2131,
isco08 == 2523 ~ 2131,
isco08 == 2529 ~ 2139,
isco08 == 2600 ~ 2400,
isco08 == 2610 ~ 2420,
isco08 == 2611 ~ 2421,
isco08 == 2612 ~ 2422,
isco08 == 2619 ~ 2429,
isco08 == 2620 ~ 2430,
isco08 == 2621 ~ 2431,
isco08 == 2622 ~ 2432,
isco08 == 2630 ~ 2440,
isco08 == 2631 ~ 2441,
isco08 == 2632 ~ 2442,
isco08 == 2633 ~ 2443,
isco08 == 2634 ~ 2445,
isco08 == 2635 ~ 2446,
isco08 == 2636 ~ 2460,
isco08 == 2640 ~ 2450,
isco08 == 2641 ~ 2451,
isco08 == 2642 ~ 2451,
isco08 == 2643 ~ 2444,
isco08 == 2650 ~ 2450,
isco08 == 2651 ~ 2452,
isco08 == 2652 ~ 2453,
isco08 == 2653 ~ 2454,
isco08 == 2654 ~ 2455,
isco08 == 2655 ~ 2455,
isco08 == 2656 ~ 3472,
isco08 == 2659 ~ 3474,
isco08 == 3000 ~ 3000,
isco08 == 3100 ~ 3100,
isco08 == 3110 ~ 3110,
isco08 == 3111 ~ 3111,
isco08 == 3112 ~ 3112,
isco08 == 3113 ~ 3113,
isco08 == 3114 ~ 3114,
isco08 == 3115 ~ 3115,
isco08 == 3116 ~ 3116,
isco08 == 3117 ~ 3117,
isco08 == 3118 ~ 3118,
isco08 == 3119 ~ 3119,
isco08 == 3120 ~ 1220,
isco08 == 3121 ~ 1229,
isco08 == 3122 ~ 1222,
isco08 == 3123 ~ 1223,
isco08 == 3130 ~ 8160,
isco08 == 3131 ~ 8161,
isco08 == 3132 ~ 8163,
isco08 == 3133 ~ 8150,
isco08 == 3134 ~ 8155,
isco08 == 3135 ~ 8120,
isco08 == 3139 ~ 8290,
isco08 == 3140 ~ 3210,
isco08 == 3141 ~ 3211,
isco08 == 3142 ~ 3212,
isco08 == 3143 ~ 3212,
isco08 == 3150 ~ 3140,
isco08 == 3151 ~ 3141,
isco08 == 3152 ~ 3142,
isco08 == 3153 ~ 3143,
isco08 == 3154 ~ 3144,
isco08 == 3155 ~ 3145,
isco08 == 3200 ~ 3100,
isco08 == 3210 ~ 3130,
isco08 == 3211 ~ 3133,
isco08 == 3212 ~ 3211,
isco08 == 3213 ~ 3228,
isco08 == 3214 ~ 7311,
isco08 == 3220 ~ 3230,
isco08 == 3221 ~ 3231,
isco08 == 3222 ~ 3232,
isco08 == 3230 ~ 3241,
isco08 == 3240 ~ 3227,
isco08 == 3250 ~ 3220,
isco08 == 3251 ~ 3225,
isco08 == 3252 ~ 3229,
isco08 == 3253 ~ 3229,
isco08 == 3254 ~ 3224,
isco08 == 3255 ~ 3226,
isco08 == 3256 ~ 3221,
isco08 == 3257 ~ 3152,
isco08 == 3258 ~ 3152,
isco08 == 3259 ~ 3229,
isco08 == 3300 ~ 3300,
isco08 == 3310 ~ 3410,
isco08 == 3311 ~ 3411,
isco08 == 3312 ~ 3419,
isco08 == 3313 ~ 3433,
isco08 == 3314 ~ 3434,
isco08 == 3315 ~ 3417,
isco08 == 3320 ~ 3410,
isco08 == 3321 ~ 3412,
isco08 == 3322 ~ 3415,
isco08 == 3323 ~ 3416,
isco08 == 3324 ~ 3421,
isco08 == 3330 ~ 3420,
isco08 == 3331 ~ 3422,
isco08 == 3332 ~ 3414,
isco08 == 3332 ~ 3439,
isco08 == 3333 ~ 3423,
isco08 == 3334 ~ 3413,
isco08 == 3339 ~ 3429,
isco08 == 3340 ~ 3430,
isco08 == 3341 ~ 3431,
isco08 == 3342 ~ 3431,
isco08 == 3343 ~ 3431,
isco08 == 3344 ~ 3431,
isco08 == 3350 ~ 3440,
isco08 == 3351 ~ 3441,
isco08 == 3352 ~ 3442,
isco08 == 3353 ~ 3443,
isco08 == 3354 ~ 3444,
isco08 == 3355 ~ 3450,
isco08 == 3359 ~ 3449,
isco08 == 3400 ~ 3400,
isco08 == 3410 ~ 3430,
isco08 == 3411 ~ 3432,
isco08 == 3412 ~ 3460,
isco08 == 3413 ~ 3480,
isco08 == 3420 ~ 3470,
isco08 == 3421 ~ 3475,
isco08 == 3422 ~ 3475,
isco08 == 3423 ~ 3340,
isco08 == 3423 ~ 3475,
isco08 == 3430 ~ 3470,
isco08 == 3431 ~ 3131,
isco08 == 3432 ~ 3471,
isco08 == 3433 ~ 3470,
isco08 == 3434 ~ 5122,
isco08 == 3435 ~ 3470,
isco08 == 3500 ~ 3100,
isco08 == 3510 ~ 3120,
isco08 == 3511 ~ 3122,
isco08 == 3512 ~ 3121,
isco08 == 3513 ~ 2139,
isco08 == 3514 ~ 3121,
isco08 == 3520 ~ 3130,
isco08 == 3521 ~ 3130,
isco08 == 3522 ~ 3114,
isco08 == 3522 ~ 3132,
isco08 == 4000 ~ 4000,
isco08 == 4110 ~ 4100,
isco08 == 4120 ~ 4115,
isco08 == 4100 ~ 4100,
isco08 == 4130 ~ 4110,
isco08 == 4131 ~ 4112,
isco08 == 4132 ~ 4113,
isco08 == 4200 ~ 4200,
isco08 == 4210 ~ 4210,
isco08 == 4211 ~ 4211,
isco08 == 4212 ~ 4213,
isco08 == 4213 ~ 4214,
isco08 == 4214 ~ 4215,
isco08 == 4220 ~ 4220,
isco08 == 4221 ~ 3414,
isco08 == 4222 ~ 4222,
isco08 == 4223 ~ 4223,
isco08 == 4224 ~ 4222,
isco08 == 4225 ~ 4222,
isco08 == 4226 ~ 4222,
isco08 == 4227 ~ 4190,
isco08 == 4229 ~ 4222,
isco08 == 4300 ~ 4100,
isco08 == 4310 ~ 4120,
isco08 == 4311 ~ 4121,
isco08 == 4312 ~ 4122,
isco08 == 4313 ~ 4121,
isco08 == 4320 ~ 4130,
isco08 == 4321 ~ 4131,
isco08 == 4322 ~ 4132,
isco08 == 4323 ~ 4133,
isco08 == 4400 ~ 4100,
isco08 == 4410 ~ 4140,
isco08 == 4411 ~ 4141,
isco08 == 4412 ~ 4142,
isco08 == 4413 ~ 4143,
isco08 == 4414 ~ 4144,
isco08 == 4415 ~ 4141,
isco08 == 4416 ~ 4190,
isco08 == 4419 ~ 4190,
isco08 == 5000 ~ 5000,
isco08 == 5100 ~ 5100,
isco08 == 5110 ~ 5110,
isco08 == 5111 ~ 5111,
isco08 == 5112 ~ 5112,
isco08 == 5113 ~ 5113,
isco08 == 5120 ~ 5122,
isco08 == 5130 ~ 5120,
isco08 == 5131 ~ 5123,
isco08 == 5132 ~ 5123,
isco08 == 5140 ~ 5140,
isco08 == 5141 ~ 5141,
isco08 == 5142 ~ 5141,
isco08 == 5150 ~ 5120,
isco08 == 5151 ~ 5121,
isco08 == 5152 ~ 5121,
isco08 == 5153 ~ 9141,
isco08 == 5160 ~ 5140,
isco08 == 5161 ~ 5152,
isco08 == 5162 ~ 5142,
isco08 == 5163 ~ 5143,
isco08 == 5164 ~ 5149,
isco08 == 5165 ~ 3340,
isco08 == 5169 ~ 5149,
isco08 == 5200 ~ 5200,
isco08 == 5210 ~ 5230,
isco08 == 5211 ~ 5230,
isco08 == 5212 ~ 9111,
isco08 == 5220 ~ 1314,
isco08 == 5221 ~ 1314,
isco08 == 5222 ~ 1314,
isco08 == 5223 ~ 5220,
isco08 == 5230 ~ 4211,
isco08 == 5240 ~ 5220,
isco08 == 5241 ~ 5210,
isco08 == 5242 ~ 5220,
isco08 == 5243 ~ 9113,
isco08 == 5244 ~ 9113,
isco08 == 5245 ~ 5220,
isco08 == 5246 ~ 5123,
isco08 == 5249 ~ 5220,
isco08 == 5300 ~ 5100,
isco08 == 5310 ~ 5130,
isco08 == 5311 ~ 5131,
isco08 == 5312 ~ 5131,
isco08 == 5320 ~ 5130,
isco08 == 5321 ~ 5132,
isco08 == 5322 ~ 5133,
isco08 == 5329 ~ 5139,
isco08 == 5400 ~ 5100,
isco08 == 5410 ~ 5160,
isco08 == 5411 ~ 5161,
isco08 == 5412 ~ 5162,
isco08 == 5413 ~ 5163,
isco08 == 5414 ~ 5169,
isco08 == 5419 ~ 5169,
isco08 == 6000 ~ 6000,
isco08 == 6100 ~ 6100,
isco08 == 6110 ~ 6110,
isco08 == 6111 ~ 6111,
isco08 == 6112 ~ 6112,
isco08 == 6113 ~ 6113,
isco08 == 6114 ~ 6114,
isco08 == 6120 ~ 6120,
isco08 == 6121 ~ 6124,
isco08 == 6122 ~ 6122,
isco08 == 6123 ~ 6123,
isco08 == 6129 ~ 6129,
isco08 == 6130 ~ 6130,
isco08 == 6210 ~ 6141,
isco08 == 6200 ~ 6150,
isco08 == 6220 ~ 6150,
isco08 == 6221 ~ 6151,
isco08 == 6222 ~ 6152,
isco08 == 6223 ~ 6153,
isco08 == 6224 ~ 6154,
isco08 == 6300 ~ 6200,
isco08 == 6310 ~ 6210,
isco08 == 6320 ~ 6210,
isco08 == 6330 ~ 6210,
isco08 == 6340 ~ 6210,
isco08 == 7000 ~ 7000,
isco08 == 7100 ~ 7100,
isco08 == 7110 ~ 7120,
isco08 == 7111 ~ 7129,
isco08 == 7112 ~ 7122,
isco08 == 7113 ~ 7113,
isco08 == 7114 ~ 7123,
isco08 == 7115 ~ 7124,
isco08 == 7119 ~ 7129,
isco08 == 7120 ~ 7130,
isco08 == 7121 ~ 7131,
isco08 == 7122 ~ 7132,
isco08 == 7123 ~ 7133,
isco08 == 7124 ~ 7134,
isco08 == 7125 ~ 7135,
isco08 == 7126 ~ 7136,
isco08 == 7127 ~ 7240,
isco08 == 7130 ~ 7140,
isco08 == 7131 ~ 7141,
isco08 == 7132 ~ 7142,
isco08 == 7133 ~ 7143,
isco08 == 7200 ~ 7200,
isco08 == 7210 ~ 7210,
isco08 == 7211 ~ 7211,
isco08 == 7212 ~ 7212,
isco08 == 7213 ~ 7213,
isco08 == 7214 ~ 7214,
isco08 == 7215 ~ 7215,
isco08 == 7220 ~ 7220,
isco08 == 7221 ~ 7221,
isco08 == 7222 ~ 7222,
isco08 == 7223 ~ 7223,
isco08 == 7224 ~ 7224,
isco08 == 7230 ~ 7230,
isco08 == 7231 ~ 7231,
isco08 == 7232 ~ 7232,
isco08 == 7233 ~ 7233,
isco08 == 7234 ~ 7231,
isco08 == 7300 ~ 7300,
isco08 == 7310 ~ 7310,
isco08 == 7311 ~ 7311,
isco08 == 7312 ~ 7312,
isco08 == 7313 ~ 7313,
isco08 == 7314 ~ 7321,
isco08 == 7315 ~ 7322,
isco08 == 7316 ~ 3471,
isco08 == 7317 ~ 7331,
isco08 == 7318 ~ 7332,
isco08 == 7319 ~ 7330,
isco08 == 7320 ~ 7340,
isco08 == 7321 ~ 7340,
isco08 == 7322 ~ 7340,
isco08 == 7323 ~ 7345,
isco08 == 7400 ~ 7200,
isco08 == 7410 ~ 7240,
isco08 == 7411 ~ 7137,
isco08 == 7412 ~ 7241,
isco08 == 7413 ~ 7245,
isco08 == 7420 ~ 7240,
isco08 == 7421 ~ 7242,
isco08 == 7421 ~ 7243,
isco08 == 7422 ~ 7243,
isco08 == 7500 ~ 7400,
isco08 == 7510 ~ 7410,
isco08 == 7511 ~ 7411,
isco08 == 7512 ~ 7412,
isco08 == 7513 ~ 7413,
isco08 == 7514 ~ 7414,
isco08 == 7515 ~ 7415,
isco08 == 7516 ~ 7416,
isco08 == 7520 ~ 7420,
isco08 == 7521 ~ 7421,
isco08 == 7522 ~ 7422,
isco08 == 7523 ~ 7423,
isco08 == 7530 ~ 7430,
isco08 == 7531 ~ 7434,
isco08 == 7532 ~ 7435,
isco08 == 7533 ~ 7436,
isco08 == 7534 ~ 7437,
isco08 == 7535 ~ 7441,
isco08 == 7536 ~ 7442,
isco08 == 7540 ~ 7200,
isco08 == 7541 ~ 7216,
isco08 == 7542 ~ 7112,
isco08 == 7543 ~ 3152,
isco08 == 7544 ~ 7143,
isco08 == 7549 ~ 7000,
isco08 == 8000 ~ 8000,
isco08 == 8100 ~ 8100,
isco08 == 8110 ~ 8110,
isco08 == 8111 ~ 7111,
isco08 == 8112 ~ 8112,
isco08 == 8113 ~ 8113,
isco08 == 8114 ~ 8212,
isco08 == 8120 ~ 8120,
isco08 == 8121 ~ 8120,
isco08 == 8122 ~ 8223,
isco08 == 8130 ~ 8220,
isco08 == 8131 ~ 8220,
isco08 == 8132 ~ 8224,
isco08 == 8140 ~ 8230,
isco08 == 8141 ~ 8231,
isco08 == 8142 ~ 8232,
isco08 == 8143 ~ 8253,
isco08 == 8150 ~ 8260,
isco08 == 8151 ~ 8261,
isco08 == 8152 ~ 8262,
isco08 == 8153 ~ 8263,
isco08 == 8154 ~ 8264,
isco08 == 8155 ~ 8265,
isco08 == 8156 ~ 8266,
isco08 == 8157 ~ 8264,
isco08 == 8159 ~ 8269,
isco08 == 8160 ~ 8270,
isco08 == 8170 ~ 8140,
isco08 == 8171 ~ 8140,
isco08 == 8172 ~ 8141,
isco08 == 8180 ~ 8290,
isco08 == 8181 ~ 8131,
isco08 == 8182 ~ 8162,
isco08 == 8183 ~ 8290,
isco08 == 8189 ~ 8290,
isco08 == 8200 ~ 8200,
isco08 == 8210 ~ 8280,
isco08 == 8211 ~ 8281,
isco08 == 8212 ~ 8283,
isco08 == 8219 ~ 8290,
isco08 == 8300 ~ 8300,
isco08 == 8310 ~ 8310,
isco08 == 8311 ~ 8311,
isco08 == 8312 ~ 8312,
isco08 == 8320 ~ 8320,
isco08 == 8321 ~ 8321,
isco08 == 8322 ~ 8322,
isco08 == 8330 ~ 8320,
isco08 == 8331 ~ 8323,
isco08 == 8332 ~ 8324,
isco08 == 8340 ~ 8330,
isco08 == 8341 ~ 8331,
isco08 == 8342 ~ 8332,
isco08 == 8343 ~ 8333,
isco08 == 8344 ~ 8334,
isco08 == 8350 ~ 8340,
isco08 == 9000 ~ 9000,
isco08 == 9100 ~ 9100,
isco08 == 9110 ~ 9130,
isco08 == 9111 ~ 9131,
isco08 == 9112 ~ 9132,
isco08 == 9120 ~ 9140,
isco08 == 9121 ~ 9133,
isco08 == 9122 ~ 9142,
isco08 == 9123 ~ 9142,
isco08 == 9129 ~ 9140,
isco08 == 9200 ~ 9200,
isco08 == 9210 ~ 9210,
isco08 == 9211 ~ 9211,
isco08 == 9212 ~ 9211,
isco08 == 9213 ~ 9211,
isco08 == 9214 ~ 9211,
isco08 == 9215 ~ 9212,
isco08 == 9216 ~ 9213,
isco08 == 9300 ~ 9300,
isco08 == 9310 ~ 9310,
isco08 == 9311 ~ 9311,
isco08 == 9312 ~ 9312,
isco08 == 9313 ~ 9313,
isco08 == 9320 ~ 9320,
isco08 == 9321 ~ 9322,
isco08 == 9329 ~ 9320,
isco08 == 9330 ~ 9330,
isco08 == 9331 ~ 9331,
isco08 == 9332 ~ 9332,
isco08 == 9333 ~ 9333,
isco08 == 9334 ~ 9333,
isco08 == 9400 ~ 9100,
isco08 == 9410 ~ 9130,
isco08 == 9411 ~ 5122,
isco08 == 9412 ~ 9132,
isco08 == 9500 ~ 9100,
isco08 == 9510 ~ 9120,
isco08 == 9520 ~ 9112,
isco08 == 9600 ~ 9100,
isco08 == 9610 ~ 9160,
isco08 == 9611 ~ 9161,
isco08 == 9612 ~ 9161,
isco08 == 9613 ~ 9162,
isco08 == 9620 ~ 9140,
isco08 == 9621 ~ 9151,
isco08 == 9622 ~ 9160,
isco08 == 9623 ~ 9153,
isco08 == 9624 ~ 9160,
isco08 == 9629 ~ 9100,
isco08 == 9999 ~ 0000,
)
)
if (display.nas) display.nas(isco, conv.from="isco08", conv.to="isco88")
return(isco$isco88)
}
## {{{ docs }}}
#' Recode ISCO-68 into ISCO-88
#'
#' The function recodes ISCO-68 into ISCO-88.
#'
#' @param isco68 a numeric vector with the ISCO-68 codes
#' @param display.nas boolean. If true (defaul is \code{FALSE}), displays table with unmatched ISCO-68 codes.
#'
#' @return
#' It returns a vector with ISCO-88 codes.
#'
#' @export
## }}}
isco68to88 <- function(isco68, display.nas=FALSE)
{
## RECODE OF ISCO-68 INTO ISCO-88 based on http://www.harryganzeboom.nl/ISCO08/index.htm
## last update: 1992-08-25 .
isco = tibble::tibble(isco68=isco68)
isco = isco %>%
dplyr::mutate(
isco88 = dplyr::case_when(isco68 == 0100 ~ 2110,
isco68 == 0110 ~ 2113,
isco68 == 0120 ~ 2111,
isco68 == 0131 ~ 2114,
isco68 == 0132 ~ 2111,
isco68 == 0133 ~ 2112,
isco68 == 0140 ~ 3111,
isco68 == 0200 ~ 2140,
isco68 == 0210 ~ 2141,
isco68 == 0220 ~ 2142,
isco68 == 0230 ~ 2143,
isco68 == 0240 ~ 2145,
isco68 == 0250 ~ 2146,
isco68 == 0260 ~ 2147,
isco68 == 0270 ~ 2147,
isco68 == 0280 ~ 2149,
isco68 == 0290 ~ 2149,
isco68 == 0300 ~ 3110,
isco68 == 0310 ~ 2148,
isco68 == 0320 ~ 3118,
isco68 == 0321 ~ 3118,
isco68 == 0329 ~ 3118,
isco68 == 0330 ~ 3112,
isco68 == 0340 ~ 3113,
isco68 == 0340 ~ 3114,
isco68 == 0350 ~ 3115,
isco68 == 0360 ~ 3116,
isco68 == 0370 ~ 3117,
isco68 == 0380 ~ 3117,
isco68 == 0390 ~ 3119,
isco68 == 0400 ~ 3140,
isco68 == 0410 ~ 3143,
isco68 == 0411 ~ 3143,
isco68 == 0419 ~ 3143,
isco68 == 0420 ~ 3142,
isco68 == 0421 ~ 3142,
isco68 == 0429 ~ 3142,
isco68 == 0430 ~ 3141,
isco68 == 0500 ~ 2210,
isco68 == 0510 ~ 2211,
isco68 == 0520 ~ 2212,
isco68 == 0521 ~ 2212,
isco68 == 0529 ~ 2212,
isco68 == 0530 ~ 2213,
isco68 == 0531 ~ 3213,
isco68 == 0539 ~ 2213,
isco68 == 0540 ~ 3211,
isco68 == 0541 ~ 3212,
isco68 == 0549 ~ 3211,
isco68 == 0600 ~ 2221,
isco68 == 0610 ~ 2221,
isco68 == 0611 ~ 2221,
isco68 == 0619 ~ 2221,
isco68 == 0620 ~ 3221,
isco68 == 0630 ~ 2222,
isco68 == 0640 ~ 3225,
isco68 == 0650 ~ 2223,
isco68 == 0660 ~ 3227,
isco68 == 0670 ~ 2224,
isco68 == 0680 ~ 3228,
isco68 == 0690 ~ 3223,
isco68 == 0700 ~ 2230,
isco68 == 0710 ~ 2230,
isco68 == 0711 ~ 2230,
isco68 == 0719 ~ 2230,
isco68 == 0720 ~ 3231,
isco68 == 0730 ~ 2230,
isco68 == 0740 ~ 3232,
isco68 == 0750 ~ 3224,
isco68 == 0751 ~ 3224,
isco68 == 0759 ~ 3224,
isco68 == 0760 ~ 3226,
isco68 == 0761 ~ 3226,
isco68 == 0762 ~ 3226,
isco68 == 0769 ~ 3226,
isco68 == 0770 ~ 3133,
isco68 == 0780 ~ 3220,
isco68 == 0790 ~ 3229,
isco68 == 0791 ~ 3226,
isco68 == 0792 ~ 3241,
isco68 == 0793 ~ 3222,
isco68 == 0799 ~ 3229,
isco68 == 0800 ~ 2120,
isco68 == 0810 ~ 2122,
isco68 == 0820 ~ 2121,
isco68 == 0830 ~ 2131,
isco68 == 0840 ~ 3434,
isco68 == 0849 ~ 2132,
isco68 == 0900 ~ 2441,
isco68 == 1100 ~ 2411,
isco68 == 1101 ~ 2411,
isco68 == 1109 ~ 2411,
isco68 == 1200 ~ 2420,
isco68 == 1210 ~ 2421,
isco68 == 1211 ~ 2421,
isco68 == 1219 ~ 2421,
isco68 == 1220 ~ 2422,
isco68 == 1221 ~ 2422,
isco68 == 1222 ~ 2422,
isco68 == 1229 ~ 2422,
isco68 == 1290 ~ 2429,
isco68 == 1291 ~ 2429,
isco68 == 1299 ~ 2429,
isco68 == 0130 ~ 2110,
isco68 == 1300 ~ 2300,
isco68 == 1310 ~ 2310,
isco68 == 1311 ~ 1229,
isco68 == 1319 ~ 2310,
isco68 == 1320 ~ 2321,
isco68 == 1321 ~ 2323,
isco68 == 1329 ~ 2321,
isco68 == 1330 ~ 2331,
isco68 == 1340 ~ 2332,
isco68 == 1350 ~ 2340,
isco68 == 1390 ~ 2359,
isco68 == 1391 ~ 1229,
isco68 == 1392 ~ 2352,
isco68 == 1393 ~ 3300,
isco68 == 1394 ~ 1229,
isco68 == 1399 ~ 2322,
isco68 == 1400 ~ 2460,
isco68 == 1410 ~ 2460,
isco68 == 1411 ~ 2460,
isco68 == 1412 ~ 3480,
isco68 == 1413 ~ 2460,
isco68 == 1414 ~ 2460,
isco68 == 1415 ~ 2460,
isco68 == 1416 ~ 3480,
isco68 == 1419 ~ 2460,
isco68 == 1490 ~ 3480,
isco68 == 1491 ~ 3242,
isco68 == 1499 ~ 3480,
isco68 == 1500 ~ 2451,
isco68 == 1510 ~ 2451,
isco68 == 1511 ~ 2451,
isco68 == 1519 ~ 2451,
isco68 == 1590 ~ 2451,
isco68 == 1591 ~ 2451,
isco68 == 1592 ~ 2451,
isco68 == 1593 ~ 2419,
isco68 == 1599 ~ 2451,
isco68 == 1600 ~ 2450,
isco68 == 1610 ~ 2452,
isco68 == 1620 ~ 3471,
isco68 == 1621 ~ 3471,
isco68 == 1622 ~ 3471,
isco68 == 1629 ~ 3471,
isco68 == 1630 ~ 3131,
isco68 == 1631 ~ 3131,
isco68 == 1639 ~ 3131,
isco68 == 1700 ~ 3470,
isco68 == 1710 ~ 3473,
isco68 == 1711 ~ 2453,
isco68 == 1712 ~ 3473,
isco68 == 1713 ~ 3473,
isco68 == 1719 ~ 2453,
isco68 == 1720 ~ 3473,
isco68 == 1721 ~ 2454,
isco68 == 1729 ~ 3473,
isco68 == 1730 ~ 2455,
isco68 == 1731 ~ 2455,
isco68 == 1732 ~ 2455,
isco68 == 1739 ~ 2455,
isco68 == 1740 ~ 1229,
isco68 == 1749 ~ 1229,
isco68 == 1750 ~ 3474,
isco68 == 1790 ~ 3470,
isco68 == 1791 ~ 3473,
isco68 == 1799 ~ 3472,
isco68 == 1800 ~ 3475,
isco68 == 1801 ~ 3475,
isco68 == 1809 ~ 3475,
isco68 == 1900 ~ 2400,
isco68 == 1910 ~ 2432,
isco68 == 1920 ~ 2442,
isco68 == 1921 ~ 2445,
isco68 == 1922 ~ 2443,
isco68 == 1923 ~ 2443,
isco68 == 1924 ~ 2442,
isco68 == 1929 ~ 2442,
isco68 == 1930 ~ 2446,
isco68 == 1931 ~ 3460,
isco68 == 1939 ~ 2446,
isco68 == 1940 ~ 2412,
isco68 == 1941 ~ 2412,
isco68 == 1949 ~ 1232,
isco68 == 1950 ~ 2444,
isco68 == 1951 ~ 2444,
isco68 == 1959 ~ 2444,
isco68 == 1960 ~ 2000,
isco68 == 1990 ~ 3400,
isco68 == 1991 ~ 5150,
isco68 == 1992 ~ 3450,
isco68 == 1993 ~ 5113,
isco68 == 1994 ~ 3340,
isco68 == 1995 ~ 3429,
isco68 == 1999 ~ 3100,
isco68 == 2000 ~ 1110,
isco68 == 2010 ~ 1100,
isco68 == 2011 ~ 1120,
isco68 == 2012 ~ 1120,
isco68 == 2013 ~ 1120,
isco68 == 2014 ~ 1120,
isco68 == 2015 ~ 1130,
isco68 == 2020 ~ 1110,
isco68 == 2021 ~ 1110,
isco68 == 2022 ~ 1110,
isco68 == 2023 ~ 1110,
isco68 == 2024 ~ 1110,
isco68 == 2029 ~ 1110,
isco68 == 2030 ~ 1120,
isco68 == 2031 ~ 1120,
isco68 == 2032 ~ 1120,
isco68 == 2033 ~ 1120,
isco68 == 2034 ~ 1120,
isco68 == 2035 ~ 1120,
isco68 == 2036 ~ 1130,
isco68 == 2039 ~ 1120,
isco68 == 2100 ~ 1300,
isco68 == 2110 ~ 1200,
isco68 == 2110 ~ 1200,
isco68 == 2111 ~ 1210,
isco68 == 2112 ~ 1210,
isco68 == 2113 ~ 1319,
isco68 == 2114 ~ 1227,
isco68 == 2115 ~ 1227,
isco68 == 2116 ~ 1313,
isco68 == 2119 ~ 1210,
isco68 == 2119 ~ 1210,
isco68 == 2120 ~ 1220,
isco68 == 2190 ~ 1220,
isco68 == 2191 ~ 1230,
isco68 == 2192 ~ 1230,
isco68 == 2193 ~ 1230,
isco68 == 2194 ~ 1230,
isco68 == 2195 ~ 1141,
isco68 == 2196 ~ 1142,
isco68 == 2197 ~ 1142,
isco68 == 2199 ~ 1227,
isco68 == 3000 ~ 1231,
isco68 == 3009 ~ 1240,
isco68 == 3100 ~ 3440,
isco68 == 3101 ~ 3440,
isco68 == 3102 ~ 3444,
isco68 == 3103 ~ 3441,
isco68 == 3104 ~ 3442,
isco68 == 3109 ~ 3440,
isco68 == 3200 ~ 4110,
isco68 == 3210 ~ 4111,
isco68 == 3211 ~ 4115,
isco68 == 3219 ~ 4111,
isco68 == 3220 ~ 4113,
isco68 == 3300 ~ 3430,
isco68 == 3310 ~ 3433,
isco68 == 3311 ~ 4211,
isco68 == 3312 ~ 4211,
isco68 == 3313 ~ 4212,
isco68 == 3314 ~ 4212,
isco68 == 3315 ~ 4211,
isco68 == 3319 ~ 3433,
isco68 == 3390 ~ 4120,
isco68 == 3391 ~ 4215,
isco68 == 3399 ~ 4121,
isco68 == 3400 ~ 3120,
isco68 == 3410 ~ 4114,
isco68 == 3420 ~ 3122,
isco68 == 3500 ~ 4133,
isco68 == 3510 ~ 1226,
isco68 == 3520 ~ 1226,
isco68 == 3590 ~ 4133,
isco68 == 3600 ~ 5112,
isco68 == 3601 ~ 5112,
isco68 == 3602 ~ 5112,
isco68 == 3609 ~ 5112,
isco68 == 3700 ~ 4142,
isco68 == 3701 ~ 9151,
isco68 == 3709 ~ 4142,
isco68 == 3800 ~ 4223,
isco68 == 3801 ~ 3132,
isco68 == 3802 ~ 3132,
isco68 == 3809 ~ 4223,
isco68 == 3900 ~ 4100,
isco68 == 3910 ~ 4131,
isco68 == 3911 ~ 4131,
isco68 == 3919 ~ 4131,
isco68 == 3920 ~ 4132,
isco68 == 3930 ~ 4100,
isco68 == 3931 ~ 4100,
isco68 == 3932 ~ 3432,
isco68 == 3939 ~ 4100,
isco68 == 3940 ~ 4222,
isco68 == 3941 ~ 4133,
isco68 == 3942 ~ 4131,
isco68 == 3943 ~ 3414,
isco68 == 3944 ~ 4221,
isco68 == 3949 ~ 4222,
isco68 == 3950 ~ 4141,
isco68 == 3951 ~ 4141,
isco68 == 3959 ~ 4141,
isco68 == 3990 ~ 4190,
isco68 == 3991 ~ 4143,
isco68 == 3992 ~ 1141,
isco68 == 3993 ~ 9153,
isco68 == 3999 ~ 4143,
isco68 == 4000 ~ 1314,
isco68 == 4001 ~ 1317,
isco68 == 4002 ~ 1231,
isco68 == 4009 ~ 1314,
isco68 == 4100 ~ 1314,
isco68 == 4101 ~ 1224,
isco68 == 4102 ~ 5230,
isco68 == 4103 ~ 1224,
isco68 == 4104 ~ 3421,
isco68 == 4105 ~ 3421,
isco68 == 4106 ~ 1314,
isco68 == 4107 ~ 9333,
isco68 == 4108 ~ 3423,
isco68 == 4109 ~ 1314,
isco68 == 4200 ~ 1233,
isco68 == 4210 ~ 1233,
isco68 == 4220 ~ 3416,
isco68 == 4221 ~ 3416,
isco68 == 4222 ~ 3416,
isco68 == 4229 ~ 3416,
isco68 == 4300 ~ 3415,
isco68 == 4310 ~ 3415,
isco68 == 4311 ~ 3415,
isco68 == 4319 ~ 3415,
isco68 == 4320 ~ 3415,
isco68 == 4400 ~ 3410,
isco68 == 4410 ~ 3412,
isco68 == 4411 ~ 3413,
isco68 == 4412 ~ 3411,
isco68 == 4419 ~ 3412,
isco68 == 4420 ~ 3429,
isco68 == 4430 ~ 3417,
isco68 == 4431 ~ 3417,
isco68 == 4432 ~ 3417,
isco68 == 4500 ~ 5200,
isco68 == 4510 ~ 5220,
isco68 == 4511 ~ 5220,
isco68 == 4512 ~ 5220,
isco68 == 4513 ~ 5210,
isco68 == 4514 ~ 5220,
isco68 == 4519 ~ 5220,
isco68 == 4520 ~ 9110,
isco68 == 4521 ~ 9110,
isco68 == 4522 ~ 9113,
isco68 == 4523 ~ 9112,
isco68 == 4524 ~ 9113,
isco68 == 4525 ~ 9110,
isco68 == 4529 ~ 5230,
isco68 == 4900 ~ 5200,
isco68 == 5000 ~ 1315,
isco68 == 5001 ~ 1315,
isco68 == 5002 ~ 1225,
isco68 == 5009 ~ 1225,
isco68 == 5100 ~ 1315,
isco68 == 5100 ~ 5000,
isco68 == 5101 ~ 1315,
isco68 == 5102 ~ 1315,
isco68 == 5103 ~ 1315,
isco68 == 5104 ~ 1315,
isco68 == 5109 ~ 1315,
isco68 == 5200 ~ 5121,
isco68 == 5201 ~ 5121,
isco68 == 5209 ~ 5121,
isco68 == 5300 ~ 5120,
isco68 == 5310 ~ 5122,
isco68 == 5311 ~ 5122,
isco68 == 5312 ~ 9132,
isco68 == 5319 ~ 5122,
isco68 == 5320 ~ 5123,
isco68 == 5321 ~ 5123,
isco68 == 5322 ~ 5123,
isco68 == 5329 ~ 5123,
isco68 == 5400 ~ 9130,
isco68 == 5401 ~ 5131,
isco68 == 5402 ~ 9132,
isco68 == 5403 ~ 9152,
isco68 == 5409 ~ 5142,
isco68 == 5500 ~ 9140,
isco68 == 5510 ~ 9141,
isco68 == 5511 ~ 9141,
isco68 == 5512 ~ 9141,
isco68 == 5519 ~ 9141,
isco68 == 5520 ~ 9132,
isco68 == 5521 ~ 9142,
isco68 == 5522 ~ 7143,
isco68 == 5529 ~ 9132,
isco68 == 5600 ~ 8264,
isco68 == 5700 ~ 5141,
isco68 == 5701 ~ 5141,
isco68 == 5702 ~ 5141,
isco68 == 5703 ~ 5141,
isco68 == 5709 ~ 5141,
isco68 == 5800 ~ 5160,
isco68 == 5810 ~ 5161,
isco68 == 5820 ~ 5162,
isco68 == 5821 ~ 3451,
isco68 == 5822 ~ 1229,
isco68 == 5823 ~ 1229,
isco68 == 5829 ~ 5162,
isco68 == 5830 ~ 5164,
isco68 == 5831 ~ 1229,
isco68 == 5832 ~ 3452,
isco68 == 5833 ~ 5164,
isco68 == 5839 ~ 5164,
isco68 == 5890 ~ 5169,
isco68 == 5891 ~ 5163,
isco68 == 5892 ~ 3432,
isco68 == 5899 ~ 9152,
isco68 == 5900 ~ 5100,
isco68 == 5910 ~ 5113,
isco68 == 5920 ~ 5143,
isco68 == 5990 ~ 5100,
isco68 == 5991 ~ 9152,
isco68 == 5992 ~ 9151,
isco68 == 5993 ~ 9151,
isco68 == 5994 ~ 9152,
isco68 == 5995 ~ 9120,
isco68 == 5996 ~ 5111,
isco68 == 5997 ~ 4213,
isco68 == 5998 ~ 9151,
isco68 == 5999 ~ 5132,
isco68 == 6000 ~ 1311,
isco68 == 6001 ~ 6132,
isco68 == 6009 ~ 1311,
isco68 == 6100 ~ 6133,
isco68 == 6110 ~ 6133,
isco68 == 6111 ~ 1311,
isco68 == 6112 ~ 6210,
isco68 == 6113 ~ 6133,
isco68 == 6114 ~ 6133,
isco68 == 6115 ~ 6130,
isco68 == 6116 ~ 6130,
isco68 == 6117 ~ 9211,
isco68 == 6119 ~ 6133,
isco68 == 6120 ~ 6130,
isco68 == 6200 ~ 9211,
isco68 == 6210 ~ 9211,
isco68 == 6211 ~ 9211,
isco68 == 6219 ~ 9211,
isco68 == 6220 ~ 9211,
isco68 == 6230 ~ 9211,
isco68 == 6239 ~ 9211,
isco68 == 6240 ~ 9211,
isco68 == 6240 ~ 9211,
isco68 == 6250 ~ 9211,
isco68 == 6260 ~ 9211,
isco68 == 6270 ~ 9211,
isco68 == 6280 ~ 8331,
isco68 == 6290 ~ 9211,
isco68 == 6290 ~ 9200,
isco68 == 6291 ~ 9211,
isco68 == 6299 ~ 6100,
isco68 == 6300 ~ 9212,
isco68 == 6310 ~ 6141,
isco68 == 6311 ~ 6141,
isco68 == 6319 ~ 6141,
isco68 == 6320 ~ 9142,
isco68 == 6329 ~ 6141,
isco68 == 6400 ~ 6150,
isco68 == 6410 ~ 6150,
isco68 == 6411 ~ 6150,
isco68 == 6419 ~ 6150,
isco68 == 6490 ~ 6150,
isco68 == 6491 ~ 6154,
isco68 == 6499 ~ 9213,
isco68 == 7000 ~ 7510,
isco68 == 7001 ~ 7510,
isco68 == 7009 ~ 7510,
isco68 == 7100 ~ 7110,
isco68 == 7110 ~ 7111,
isco68 == 7111 ~ 7111,
isco68 == 7112 ~ 7111,
isco68 == 7113 ~ 7111,
isco68 == 7119 ~ 7111,
isco68 == 7120 ~ 8112,
isco68 == 7130 ~ 8113,
isco68 == 7139 ~ 8113,
isco68 == 7200 ~ 7220,
isco68 == 7210 ~ 8121,
isco68 == 7220 ~ 8122,
isco68 == 7230 ~ 8123,
isco68 == 7240 ~ 8122,
isco68 == 7250 ~ 7211,
isco68 == 7260 ~ 8123,
isco68 == 7270 ~ 8124,
isco68 == 7280 ~ 8223,
isco68 == 7290 ~ 8120,
isco68 == 7300 ~ 8140,
isco68 == 7310 ~ 8141,
isco68 == 7320 ~ 8141,
isco68 == 7321 ~ 7421,
isco68 == 7329 ~ 8141,
isco68 == 7330 ~ 8142,
isco68 == 7340 ~ 8143,
isco68 == 7400 ~ 8150,
isco68 == 7410 ~ 8151,
isco68 == 7420 ~ 8152,
isco68 == 7430 ~ 8153,
isco68 == 7440 ~ 8154,
isco68 == 7450 ~ 8155,
isco68 == 7490 ~ 8159,
isco68 == 7491 ~ 6142,
isco68 == 7499 ~ 8159,
isco68 == 7500 ~ 8260,
isco68 == 7510 ~ 8261,
isco68 == 7520 ~ 8261,
isco68 == 7530 ~ 7432,
isco68 == 7540 ~ 8262,
isco68 == 7541 ~ 7432,
isco68 == 7549 ~ 8262,
isco68 == 7550 ~ 8262,
isco68 == 7560 ~ 8264,
isco68 == 7590 ~ 8260,
isco68 == 7600 ~ 7441,
isco68 == 7610 ~ 7441,
isco68 == 7620 ~ 7441,
isco68 == 7700 ~ 8270,
isco68 == 7710 ~ 8273,
isco68 == 7711 ~ 8273,
isco68 == 7719 ~ 8273,
isco68 == 7720 ~ 8276,
isco68 == 7730 ~ 7411,
isco68 == 7731 ~ 8271,
isco68 == 7739 ~ 7411,
isco68 == 7740 ~ 8270,
isco68 == 7750 ~ 8272,
isco68 == 7760 ~ 7412,
isco68 == 7761 ~ 7412,
isco68 == 7769 ~ 7412,
isco68 == 7770 ~ 8277,
isco68 == 7780 ~ 8278,
isco68 == 7790 ~ 8270,
isco68 == 7799 ~ 7411,
isco68 == 7800 ~ 8279,
isco68 == 7810 ~ 8279,
isco68 == 7820 ~ 8279,
isco68 == 7830 ~ 8279,
isco68 == 7890 ~ 8279,
isco68 == 7900 ~ 7433,
isco68 == 7910 ~ 7433,
isco68 == 7911 ~ 7433,
isco68 == 7919 ~ 7433,
isco68 == 7920 ~ 7434,
isco68 == 7930 ~ 7433,
isco68 == 7940 ~ 7435,
isco68 == 7950 ~ 7436,
isco68 == 7960 ~ 7437,
isco68 == 0799 ~ 2221,
isco68 == 7990 ~ 8269,
isco68 == 8000 ~ 7442,
isco68 == 8010 ~ 7442,
isco68 == 8020 ~ 7442,
isco68 == 8030 ~ 7442,
isco68 == 8100 ~ 7420,
isco68 == 8110 ~ 7422,
isco68 == 8120 ~ 8240,
isco68 == 8190 ~ 7420,
isco68 == 8191 ~ 7422,
isco68 == 8199 ~ 7422,
isco68 == 8200 ~ 7113,
isco68 == 8300 ~ 7220,
isco68 == 8310 ~ 7221,
isco68 == 8311 ~ 7221,
isco68 == 8319 ~ 7221,
isco68 == 8320 ~ 7222,
isco68 == 8321 ~ 7222,
isco68 == 8329 ~ 7222,
isco68 == 8330 ~ 7223,
isco68 == 8331 ~ 7223,
isco68 == 8339 ~ 7223,
isco68 == 8340 ~ 8211,
isco68 == 8350 ~ 7224,
isco68 == 8350 ~ 8211,
isco68 == 8351 ~ 8223,
isco68 == 8359 ~ 7224,
isco68 == 8390 ~ 7220,
isco68 == 8400 ~ 7230,
isco68 == 8410 ~ 7230,
isco68 == 8411 ~ 8281,
isco68 == 8412 ~ 7233,
isco68 == 8419 ~ 7230,
isco68 == 8420 ~ 7311,
isco68 == 8421 ~ 7311,
isco68 == 8422 ~ 7311,
isco68 == 8429 ~ 7311,
isco68 == 8430 ~ 7231,
isco68 == 8431 ~ 1314,
isco68 == 8439 ~ 7231,
isco68 == 8440 ~ 7232,
isco68 == 8490 ~ 7230,
isco68 == 8491 ~ 7231,
isco68 == 8492 ~ 7233,
isco68 == 8493 ~ 8280,
isco68 == 8494 ~ 7234,
isco68 == 8499 ~ 7230,
isco68 == 8500 ~ 7240,
isco68 == 8510 ~ 7241,
isco68 == 8520 ~ 7242,
isco68 == 8530 ~ 8282,
isco68 == 8540 ~ 7243,
isco68 == 8550 ~ 7137,
isco68 == 8551 ~ 7137,
isco68 == 8559 ~ 7137,
isco68 == 8560 ~ 7244,
isco68 == 8570 ~ 7245,
isco68 == 8590 ~ 7240,
isco68 == 8600 ~ 3130,
isco68 == 8610 ~ 3132,
isco68 == 8620 ~ 3139,
isco68 == 8700 ~ 7210,
isco68 == 8710 ~ 7136,
isco68 == 8711 ~ 7136,
isco68 == 8719 ~ 7136,
isco68 == 8720 ~ 7212,
isco68 == 8730 ~ 7213,
isco68 == 8731 ~ 7213,
isco68 == 8732 ~ 7213,
isco68 == 8733 ~ 7213,
isco68 == 8739 ~ 7213,
isco68 == 8740 ~ 7214,
isco68 == 8800 ~ 7313,
isco68 == 8801 ~ 7313,
isco68 == 8809 ~ 7313,
isco68 == 8900 ~ 7320,
isco68 == 8910 ~ 7322,
isco68 == 8911 ~ 7322,
isco68 == 8919 ~ 7322,
isco68 == 8920 ~ 7321,
isco68 == 8930 ~ 8131,
isco68 == 8940 ~ 7323,
isco68 == 8950 ~ 7324,
isco68 == 8990 ~ 8130,
isco68 == 9000 ~ 8230,
isco68 == 9010 ~ 8230,
isco68 == 9020 ~ 8231,
isco68 == 9100 ~ 8253,
isco68 == 9200 ~ 7340,
isco68 == 9210 ~ 7341,
isco68 == 9211 ~ 7341,
isco68 == 9219 ~ 7341,
isco68 == 9220 ~ 8251,
isco68 == 9230 ~ 7342,
isco68 == 9240 ~ 7343,
isco68 == 9250 ~ 7343,
isco68 == 9260 ~ 7345,
isco68 == 9270 ~ 8224,
isco68 == 9290 ~ 7340,
isco68 == 9300 ~ 7241,
isco68 == 9310 ~ 7141,
isco68 == 9311 ~ 7141,
isco68 == 9319 ~ 7141,
isco68 == 9390 ~ 7142,
isco68 == 9400 ~ 7520,
isco68 == 9410 ~ 7312,
isco68 == 9420 ~ 7424,
isco68 == 9430 ~ 8212,
isco68 == 9490 ~ 7331,
isco68 == 9491 ~ 7331,
isco68 == 9492 ~ 7331,
isco68 == 9493 ~ 7331,
isco68 == 9499 ~ 8400,
isco68 == 9500 ~ 7120,
isco68 == 9510 ~ 7122,
isco68 == 9520 ~ 7123,
isco68 == 9530 ~ 7131,
isco68 == 9540 ~ 7124,
isco68 == 9541 ~ 7124,
isco68 == 9542 ~ 7124,
isco68 == 9549 ~ 7124,
isco68 == 9550 ~ 7133,
isco68 == 9551 ~ 7133,
isco68 == 9559 ~ 7133,
isco68 == 9560 ~ 7134,
isco68 == 9570 ~ 7135,
isco68 == 9590 ~ 7129,
isco68 == 9591 ~ 7129,
isco68 == 9592 ~ 7129,
isco68 == 9593 ~ 7129,
isco68 == 9594 ~ 7129,
isco68 == 9595 ~ 9313,
isco68 == 9596 ~ 7129,
isco68 == 9599 ~ 7141,
isco68 == 9600 ~ 8160,
isco68 == 9610 ~ 8161,
isco68 == 9690 ~ 8160,
isco68 == 9700 ~ 9330,
isco68 == 9710 ~ 9333,
isco68 == 9711 ~ 9333,
isco68 == 9712 ~ 9151,
isco68 == 9713 ~ 9151,
isco68 == 9714 ~ 9322,
isco68 == 9719 ~ 9333,
isco68 == 9720 ~ 7215,
isco68 == 9730 ~ 8333,
isco68 == 9731 ~ 8333,
isco68 == 9739 ~ 8333,
isco68 == 9740 ~ 8332,
isco68 == 9790 ~ 8334,
isco68 == 9800 ~ 8320,
isco68 == 9810 ~ 8340,
isco68 == 9811 ~ 8340,
isco68 == 9819 ~ 8340,
isco68 == 9820 ~ 8162,
isco68 == 9830 ~ 8311,
isco68 == 9831 ~ 8311,
isco68 == 9832 ~ 8311,
isco68 == 9839 ~ 8311,
isco68 == 9839 ~ 8311,
isco68 == 9840 ~ 8312,
isco68 == 9850 ~ 8320,
isco68 == 9851 ~ 8323,
isco68 == 9852 ~ 8324,
isco68 == 9853 ~ 8324,
isco68 == 9854 ~ 9333,
isco68 == 9855 ~ 3340,
isco68 == 9859 ~ 8322,
isco68 == 9860 ~ 9332,
isco68 == 9861 ~ 9332,
isco68 == 9869 ~ 9332,
isco68 == 9890 ~ 8320,
isco68 == 9891 ~ 8312,
isco68 == 9899 ~ 9331,
isco68 == 9900 ~ 9300,
isco68 == 9950 ~ 7520,
isco68 == 9951 ~ 7520,
isco68 == 9959 ~ 7520,
isco68 == 9970 ~ 8290,
isco68 == 9971 ~ 7530,
isco68 == 9979 ~ 8280,
isco68 == 9990 ~ 9300,
isco68 == 9991 ~ 9320,
isco68 == 9992 ~ 9320,
isco68 == 9993 ~ 9320,
isco68 == 9994 ~ 9312,
isco68 == 9995 ~ 9162,
isco68 == 9996 ~ 9161,
isco68 == 9997 ~ 9312,
isco68 == 9999 ~ 9300,
isco68 == 12000 ~ 0000,
isco68 == 10000 ~ 3452,
isco68 == 10001 ~ 1229,
isco68 == 10002 ~ 3452,
isco68 == 10003 ~ 5164,
isco68 == 10009 ~ 1229,
isco68 == 7899 ~ 7416,
isco68 == 7732 ~ 7411,
isco68 == 6322 ~ 6112,
isco68 == 6321 ~ 6141,
isco68 == 4439 ~ 3417,
isco68 == 2019 ~ 1210,
isco68 == 0339 ~ 3112,
isco68 == 0139 ~ 2120
)
)
if (display.nas) display.nas(isco, conv.from="isco68", conv.to="isco88")
return(isco$isco88)
}
## -----
## to 08
## -----
## {{{ docs }}}
#' Recode ISCO-68 into ISCO-08
#'
#' The function recodes ISCO-68 into ISCO-08.
#'
#' @param isco68 a numeric vector with the ISCO-68 codes
#' @param display.nas boolean. If true (defaul is \code{FALSE}), displays table with unmatched ISCO-68 codes.
#'
#' @return
#' It returns a vector with ISCO-08 codes.
#'
#' @export
## }}}
isco68to08 <- function(isco68, display.nas=FALSE)
{
## RECODE OF ISCO-68 INTO ISCO-08 based on http://www.harryganzeboom.nl/ISCO08/index.htm
## Conversion Table Version 13 Aug 2015
isco = tibble::tibble(isco68=isco68)
isco = isco %>%
dplyr::mutate(isco08 = dplyr::case_when(isco68 == 0100 ~ 2110,
isco68 == 0110 ~ 2113,
isco68 == 0120 ~ 2111,
isco68 == 0130 ~ 2110,
isco68 == 0131 ~ 2114,
isco68 == 0132 ~ 2111,
isco68 == 0133 ~ 2112,
isco68 == 0139 ~ 2110,
isco68 == 0140 ~ 3111,
isco68 == 0200 ~ 2140,
isco68 == 0210 ~ 2160,
isco68 == 0220 ~ 2142,
isco68 == 0230 ~ 2151,
isco68 == 0240 ~ 2144,
isco68 == 0250 ~ 2145,
isco68 == 0260 ~ 2146,
isco68 == 0270 ~ 2146,
isco68 == 0280 ~ 2141,
isco68 == 0290 ~ 2149,
isco68 == 0300 ~ 3110,
isco68 == 0310 ~ 2165,
isco68 == 0320 ~ 3118,
isco68 == 0321 ~ 3118,
isco68 == 0329 ~ 3118,
isco68 == 0330 ~ 3112,
isco68 == 0339 ~ 3119,
isco68 == 0340 ~ 3113,
isco68 == 0350 ~ 3115,
isco68 == 0360 ~ 3116,
isco68 == 0370 ~ 3117,
isco68 == 0380 ~ 3117,
isco68 == 0390 ~ 3119,
isco68 == 0400 ~ 3150,
isco68 == 0410 ~ 3153,
isco68 == 0411 ~ 3153,
isco68 == 0419 ~ 3153,
isco68 == 0420 ~ 3152,
isco68 == 0421 ~ 3152,
isco68 == 0429 ~ 3152,
isco68 == 0430 ~ 3151,
isco68 == 0500 ~ 2130,
isco68 == 0510 ~ 2131,
isco68 == 0520 ~ 2131,
isco68 == 0521 ~ 2130,
isco68 == 0529 ~ 2131,
isco68 == 0530 ~ 2131,
isco68 == 0530 ~ 2131,
isco68 == 0531 ~ 3142,
isco68 == 0540 ~ 3141,
isco68 == 0541 ~ 3142,
isco68 == 0549 ~ 3210,
isco68 == 0600 ~ 2200,
isco68 == 0610 ~ 2210,
isco68 == 0611 ~ 2210,
isco68 == 0619 ~ 2210,
isco68 == 0620 ~ 3256,
isco68 == 0630 ~ 2261,
isco68 == 0640 ~ 3251,
isco68 == 0650 ~ 2250,
isco68 == 0660 ~ 3240,
isco68 == 0670 ~ 2262,
isco68 == 0680 ~ 3213,
isco68 == 0690 ~ 2265,
isco68 == 0700 ~ 2220,
isco68 == 0710 ~ 2221,
isco68 == 0711 ~ 2221,
isco68 == 0719 ~ 2221,
isco68 == 0720 ~ 3221,
isco68 == 0730 ~ 2222,
isco68 == 0740 ~ 3222,
isco68 == 0750 ~ 2267,
isco68 == 0751 ~ 3254,
isco68 == 0759 ~ 2267,
isco68 == 0760 ~ 2264,
isco68 == 0761 ~ 2264,
isco68 == 0762 ~ 3259,
isco68 == 0769 ~ 2264,
isco68 == 0770 ~ 3211,
isco68 == 0780 ~ 2240,
isco68 == 0790 ~ 3259,
isco68 == 0791 ~ 3259,
isco68 == 0792 ~ 3230,
isco68 == 0793 ~ 3257,
isco68 == 0799 ~ 3259,
isco68 == 0800 ~ 2120,
isco68 == 0810 ~ 2120,
isco68 == 0820 ~ 2120,
isco68 == 0830 ~ 2511,
isco68 == 0840 ~ 3314,
isco68 == 0849 ~ 2514,
isco68 == 0900 ~ 2631,
isco68 == 1100 ~ 2411,
isco68 == 1101 ~ 2411,
isco68 == 1109 ~ 2411,
isco68 == 1200 ~ 2610,
isco68 == 1210 ~ 2611,
isco68 == 1211 ~ 2611,
isco68 == 1219 ~ 1220,
isco68 == 1219 ~ 2611,
isco68 == 1220 ~ 2612,
isco68 == 1221 ~ 2612,
isco68 == 1222 ~ 2612,
isco68 == 1229 ~ 2612,
isco68 == 1290 ~ 2619,
isco68 == 1291 ~ 2619,
isco68 == 1299 ~ 2611,
isco68 == 1300 ~ 2300,
isco68 == 1310 ~ 2310,
isco68 == 1311 ~ 2310,
isco68 == 1319 ~ 2310,
isco68 == 1320 ~ 2330,
isco68 == 1321 ~ 2330,
isco68 == 1329 ~ 2330,
isco68 == 1330 ~ 2341,
isco68 == 1340 ~ 2342,
isco68 == 1350 ~ 2352,
isco68 == 1390 ~ 2350,
isco68 == 1391 ~ 1345,
isco68 == 1392 ~ 2359,
isco68 == 1393 ~ 5312,
isco68 == 1394 ~ 1345,
isco68 == 1399 ~ 2320,
isco68 == 1400 ~ 2636,
isco68 == 1410 ~ 2636,
isco68 == 1411 ~ 2636,
isco68 == 1412 ~ 3413,
isco68 == 1413 ~ 2636,
isco68 == 1414 ~ 2636,
isco68 == 1415 ~ 3413,
isco68 == 1416 ~ 2636,
isco68 == 1419 ~ 2636,
isco68 == 1490 ~ 3413,
isco68 == 1491 ~ 5161,
isco68 == 1499 ~ 3413,
isco68 == 1500 ~ 2641,
isco68 == 1510 ~ 2641,
isco68 == 1511 ~ 2641,
isco68 == 1519 ~ 2641,
isco68 == 1590 ~ 2641,
isco68 == 1591 ~ 2642,
isco68 == 1592 ~ 2431,
isco68 == 1593 ~ 2432,
isco68 == 1599 ~ 2642,
isco68 == 1600 ~ 2650,
isco68 == 1610 ~ 2651,
isco68 == 1620 ~ 3435,
isco68 == 1621 ~ 3435,
isco68 == 1622 ~ 3432,
isco68 == 1629 ~ 3435,
isco68 == 1630 ~ 3431,
isco68 == 1631 ~ 3521,
isco68 == 1639 ~ 3431,
isco68 == 1700 ~ 2650,
isco68 == 1710 ~ 2652,
isco68 == 1711 ~ 2652,
isco68 == 1712 ~ 2652,
isco68 == 1713 ~ 2652,
isco68 == 1719 ~ 2652,
isco68 == 1720 ~ 2653,
isco68 == 1721 ~ 2653,
isco68 == 1729 ~ 2653,
isco68 == 1730 ~ 2655,
isco68 == 1731 ~ 2655,
isco68 == 1732 ~ 2654,
isco68 == 1739 ~ 2655,
isco68 == 1740 ~ 2654,
isco68 == 1749 ~ 2654,
isco68 == 1750 ~ 2659,
isco68 == 1790 ~ 2650,
isco68 == 1791 ~ 2652,
isco68 == 1799 ~ 2656,
isco68 == 1800 ~ 3421,
isco68 == 1801 ~ 3422,
isco68 == 1809 ~ 3421,
isco68 == 1900 ~ 2000,
isco68 == 1910 ~ 2622,
isco68 == 1920 ~ 2632,
isco68 == 1921 ~ 2634,
isco68 == 1922 ~ 2633,
isco68 == 1923 ~ 2633,
isco68 == 1924 ~ 2632,
isco68 == 1929 ~ 2632,
isco68 == 1930 ~ 2635,
isco68 == 1931 ~ 3412,
isco68 == 1939 ~ 2635,
isco68 == 1940 ~ 2423,
isco68 == 1941 ~ 2423,
isco68 == 1949 ~ 1212,
isco68 == 1950 ~ 2643,
isco68 == 1951 ~ 2643,
isco68 == 1959 ~ 2643,
isco68 == 1960 ~ 2000,
isco68 == 1990 ~ 3000,
isco68 == 1991 ~ 5161,
isco68 == 1992 ~ 3100,
isco68 == 1993 ~ 3421,
isco68 == 1994 ~ 2635,
isco68 == 1995 ~ 3339,
isco68 == 1999 ~ 3100,
isco68 == 2000 ~ 1112,
isco68 == 2010 ~ 1112,
isco68 == 2011 ~ 1112,
isco68 == 2012 ~ 1112,
isco68 == 2013 ~ 1112,
isco68 == 2014 ~ 1112,
isco68 == 2015 ~ 1113,
isco68 == 2019 ~ 1112,
isco68 == 2020 ~ 1111,
isco68 == 2021 ~ 1111,
isco68 == 2022 ~ 1111,
isco68 == 2023 ~ 1111,
isco68 == 2024 ~ 1111,
isco68 == 2029 ~ 1111,
isco68 == 2030 ~ 1112,
isco68 == 2031 ~ 1112,
isco68 == 2032 ~ 1112,
isco68 == 2033 ~ 1112,
isco68 == 2034 ~ 1112,
isco68 == 2035 ~ 1112,
isco68 == 2036 ~ 1113,
isco68 == 2039 ~ 1112,
isco68 == 2100 ~ 1200,
isco68 == 2110 ~ 1120,
isco68 == 2111 ~ 1120,
isco68 == 2112 ~ 1120,
isco68 == 2113 ~ 1200,
isco68 == 2114 ~ 1210,
isco68 == 2115 ~ 1210,
isco68 == 2116 ~ 1323,
isco68 == 2119 ~ 1120,
isco68 == 2120 ~ 1321,
isco68 == 2190 ~ 1200,
isco68 == 2191 ~ 1200,
isco68 == 2192 ~ 1200,
isco68 == 2193 ~ 1200,
isco68 == 2194 ~ 1200,
isco68 == 2195 ~ 1114,
isco68 == 2196 ~ 1114,
isco68 == 2197 ~ 1114,
isco68 == 2199 ~ 1210,
isco68 == 3000 ~ 4000,
isco68 == 3009 ~ 3341,
isco68 == 3100 ~ 3350,
isco68 == 3101 ~ 3350,
isco68 == 3102 ~ 3112,
isco68 == 3103 ~ 3351,
isco68 == 3104 ~ 3352,
isco68 == 3109 ~ 3350,
isco68 == 3200 ~ 4131,
isco68 == 3210 ~ 4120,
isco68 == 3211 ~ 4120,
isco68 == 3219 ~ 4131,
isco68 == 3220 ~ 4132,
isco68 == 3300 ~ 3313,
isco68 == 3310 ~ 3313,
isco68 == 3311 ~ 5230,
isco68 == 3312 ~ 5230,
isco68 == 3313 ~ 4211,
isco68 == 3314 ~ 4211,
isco68 == 3315 ~ 5230,
isco68 == 3319 ~ 3313,
isco68 == 3390 ~ 4311,
isco68 == 3391 ~ 4214,
isco68 == 3399 ~ 4310,
isco68 == 3400 ~ 3500,
isco68 == 3410 ~ 4132,
isco68 == 3420 ~ 3511,
isco68 == 3500 ~ 1324,
isco68 == 3510 ~ 1324,
isco68 == 3520 ~ 1324,
isco68 == 3590 ~ 4323,
isco68 == 3600 ~ 5112,
isco68 == 3601 ~ 5112,
isco68 == 3602 ~ 5111,
isco68 == 3609 ~ 5112,
isco68 == 3700 ~ 4412,
isco68 == 3701 ~ 9621,
isco68 == 3709 ~ 4412,
isco68 == 3800 ~ 4223,
isco68 == 3801 ~ 3521,
isco68 == 3802 ~ 3521,
isco68 == 3809 ~ 4223,
isco68 == 3900 ~ 4100,
isco68 == 3910 ~ 4321,
isco68 == 3911 ~ 4323,
isco68 == 3919 ~ 4321,
isco68 == 3920 ~ 4322,
isco68 == 3930 ~ 4100,
isco68 == 3931 ~ 4100,
isco68 == 3932 ~ 3411,
isco68 == 3939 ~ 4100,
isco68 == 3940 ~ 4226,
isco68 == 3941 ~ 4323,
isco68 == 3942 ~ 9621,
isco68 == 3943 ~ 4221,
isco68 == 3944 ~ 4226,
isco68 == 3949 ~ 4226,
isco68 == 3950 ~ 4411,
isco68 == 3951 ~ 4415,
isco68 == 3959 ~ 4411,
isco68 == 3990 ~ 4419,
isco68 == 3992 ~ 4419,
isco68 == 3993 ~ 9623,
isco68 == 3999 ~ 4413,
isco68 == 4000 ~ 1420,
isco68 == 4001 ~ 5222,
isco68 == 4002 ~ 1211,
isco68 == 4009 ~ 1420,
isco68 == 4100 ~ 5221,
isco68 == 4101 ~ 1420,
isco68 == 4102 ~ 5211,
isco68 == 4103 ~ 1420,
isco68 == 4104 ~ 3324,
isco68 == 4105 ~ 3324,
isco68 == 4106 ~ 1420,
isco68 == 4107 ~ 9629,
isco68 == 4108 ~ 3333,
isco68 == 4109 ~ 5221,
isco68 == 4200 ~ 1221,
isco68 == 4210 ~ 1221,
isco68 == 4220 ~ 3323,
isco68 == 4221 ~ 3323,
isco68 == 4222 ~ 3323,
isco68 == 4229 ~ 3323,
isco68 == 4300 ~ 2433,
isco68 == 4310 ~ 2433,
isco68 == 4311 ~ 3322,
isco68 == 4319 ~ 2433,
isco68 == 4320 ~ 3322,
isco68 == 4400 ~ 3321,
isco68 == 4410 ~ 3321,
isco68 == 4411 ~ 3334,
isco68 == 4412 ~ 3311,
isco68 == 4419 ~ 3321,
isco68 == 4420 ~ 3339,
isco68 == 4430 ~ 3339,
isco68 == 4431 ~ 3315,
isco68 == 4432 ~ 3315,
isco68 == 4439 ~ 3339,
isco68 == 4500 ~ 5200,
isco68 == 4510 ~ 5220,
isco68 == 4511 ~ 5220,
isco68 == 4512 ~ 5245,
isco68 == 4513 ~ 5241,
isco68 == 4514 ~ 5220,
isco68 == 4519 ~ 5220,
isco68 == 4520 ~ 9520,
isco68 == 4521 ~ 9520,
isco68 == 4522 ~ 5244,
isco68 == 4523 ~ 9520,
isco68 == 4524 ~ 5243,
isco68 == 4525 ~ 9520,
isco68 == 4529 ~ 5211,
isco68 == 4900 ~ 5200,
isco68 == 5000 ~ 1410,
isco68 == 5001 ~ 1411,
isco68 == 5002 ~ 1411,
isco68 == 5009 ~ 1412,
isco68 == 5100 ~ 1411,
isco68 == 5101 ~ 1412,
isco68 == 5102 ~ 1411,
isco68 == 5103 ~ 1411,
isco68 == 5104 ~ 1412,
isco68 == 5109 ~ 1412,
isco68 == 5200 ~ 5151,
isco68 == 5201 ~ 5151,
isco68 == 5209 ~ 5151,
isco68 == 5300 ~ 5120,
isco68 == 5310 ~ 5120,
isco68 == 5311 ~ 3434,
isco68 == 5312 ~ 9412,
isco68 == 5319 ~ 5120,
isco68 == 5320 ~ 5131,
isco68 == 5321 ~ 5132,
isco68 == 5322 ~ 5246,
isco68 == 5329 ~ 5131,
isco68 == 5400 ~ 9100,
isco68 == 5401 ~ 5311,
isco68 == 5402 ~ 9112,
isco68 == 5403 ~ 4224,
isco68 == 5409 ~ 5162,
isco68 == 5500 ~ 5153,
isco68 == 5510 ~ 5153,
isco68 == 5511 ~ 5151,
isco68 == 5512 ~ 5153,
isco68 == 5519 ~ 5153,
isco68 == 5520 ~ 9112,
isco68 == 5521 ~ 9123,
isco68 == 5522 ~ 7133,
isco68 == 5529 ~ 9112,
isco68 == 5600 ~ 8154,
isco68 == 5700 ~ 5141,
isco68 == 5701 ~ 5141,
isco68 == 5702 ~ 5141,
isco68 == 5703 ~ 1439,
isco68 == 5709 ~ 5141,
isco68 == 5800 ~ 5410,
isco68 == 5810 ~ 5411,
isco68 == 5820 ~ 5412,
isco68 == 5821 ~ 5412,
isco68 == 5822 ~ 1349,
isco68 == 5823 ~ 5412,
isco68 == 5829 ~ 5412,
isco68 == 5830 ~ 0000,
isco68 == 5831 ~ 0100,
isco68 == 5832 ~ 0200,
isco68 == 5833 ~ 0300,
isco68 == 5839 ~ 0300,
isco68 == 5890 ~ 5414,
isco68 == 5891 ~ 5413,
isco68 == 5892 ~ 3411,
isco68 == 5899 ~ 5414,
isco68 == 5900 ~ 5100,
isco68 == 5910 ~ 5414,
isco68 == 5920 ~ 5163,
isco68 == 5990 ~ 5329,
isco68 == 5990 ~ 5100,
isco68 == 5991 ~ 5414,
isco68 == 5992 ~ 9629,
isco68 == 5993 ~ 9621,
isco68 == 5994 ~ 5414,
isco68 == 5995 ~ 9510,
isco68 == 5996 ~ 5111,
isco68 == 5997 ~ 4212,
isco68 == 5998 ~ 9621,
isco68 == 5999 ~ 5321,
isco68 == 0539 ~ 2131,
isco68 == 6000 ~ 6100,
isco68 == 6001 ~ 6100,
isco68 == 6009 ~ 1311,
isco68 == 6100 ~ 6100,
isco68 == 6110 ~ 6100,
isco68 == 6111 ~ 1311,
isco68 == 6112 ~ 6100,
isco68 == 6113 ~ 6100,
isco68 == 6114 ~ 6100,
isco68 == 6115 ~ 6100,
isco68 == 6116 ~ 6100,
isco68 == 6117 ~ 9210,
isco68 == 6119 ~ 6100,
isco68 == 6120 ~ 6100,
isco68 == 6200 ~ 9210,
isco68 == 6210 ~ 9210,
isco68 == 6211 ~ 9210,
isco68 == 6219 ~ 9210,
isco68 == 6220 ~ 9211,
isco68 == 6230 ~ 9214,
isco68 == 6239 ~ 9214,
isco68 == 6240 ~ 9212,
isco68 == 6250 ~ 9212,
isco68 == 6260 ~ 9212,
isco68 == 6270 ~ 9214,
isco68 == 6280 ~ 8341,
isco68 == 6290 ~ 9210,
isco68 == 6291 ~ 6340,
isco68 == 6299 ~ 6100,
isco68 == 6300 ~ 6210,
isco68 == 6310 ~ 6210,
isco68 == 6311 ~ 6210,
isco68 == 6319 ~ 6210,
isco68 == 6320 ~ 9215,
isco68 == 6321 ~ 6210,
isco68 == 6322 ~ 6113,
isco68 == 6329 ~ 6210,
isco68 == 6400 ~ 6220,
isco68 == 6410 ~ 6220,
isco68 == 6411 ~ 6220,
isco68 == 6419 ~ 6220,
isco68 == 6490 ~ 6220,
isco68 == 6491 ~ 6224,
isco68 == 6499 ~ 6223,
isco68 == 7000 ~ 3120,
isco68 == 7001 ~ 3120,
isco68 == 7009 ~ 3120,
isco68 == 7100 ~ 8110,
isco68 == 7110 ~ 8111,
isco68 == 7111 ~ 8111,
isco68 == 7112 ~ 8111,
isco68 == 7113 ~ 8111,
isco68 == 7119 ~ 8111,
isco68 == 7120 ~ 8112,
isco68 == 7130 ~ 8113,
isco68 == 7139 ~ 8113,
isco68 == 7200 ~ 8120,
isco68 == 7210 ~ 8121,
isco68 == 7220 ~ 8121,
isco68 == 7230 ~ 8121,
isco68 == 7240 ~ 7211,
isco68 == 7250 ~ 7211,
isco68 == 7260 ~ 8121,
isco68 == 7270 ~ 8121,
isco68 == 7280 ~ 8122,
isco68 == 7290 ~ 8120,
isco68 == 7300 ~ 8172,
isco68 == 7310 ~ 8172,
isco68 == 7320 ~ 8172,
isco68 == 7321 ~ 7543,
isco68 == 7329 ~ 8172,
isco68 == 7330 ~ 8171,
isco68 == 7340 ~ 8171,
isco68 == 7400 ~ 8130,
isco68 == 7410 ~ 8131,
isco68 == 7420 ~ 8131,
isco68 == 7430 ~ 8131,
isco68 == 7440 ~ 3134,
isco68 == 7450 ~ 8131,
isco68 == 7490 ~ 8131,
isco68 == 7491 ~ 6210,
isco68 == 7499 ~ 8131,
isco68 == 7500 ~ 8150,
isco68 == 7510 ~ 8151,
isco68 == 7520 ~ 8151,
isco68 == 7530 ~ 8152,
isco68 == 7540 ~ 8152,
isco68 == 7541 ~ 7543,
isco68 == 7549 ~ 8152,
isco68 == 7550 ~ 8152,
isco68 == 7560 ~ 8154,
isco68 == 7590 ~ 8150,
isco68 == 7600 ~ 7535,
isco68 == 7610 ~ 7535,
isco68 == 7620 ~ 7535,
isco68 == 7700 ~ 7515,
isco68 == 7710 ~ 8160,
isco68 == 7711 ~ 8160,
isco68 == 7719 ~ 8160,
isco68 == 7720 ~ 8160,
isco68 == 7730 ~ 7511,
isco68 == 7731 ~ 7511,
isco68 == 7732 ~ 7511,
isco68 == 7739 ~ 7511,
isco68 == 7740 ~ 8160,
isco68 == 7750 ~ 7513,
isco68 == 7760 ~ 7512,
isco68 == 7761 ~ 7512,
isco68 == 7769 ~ 7512,
isco68 == 7770 ~ 7515,
isco68 == 7780 ~ 7515,
isco68 == 7790 ~ 7515,
isco68 == 7799 ~ 7511,
isco68 == 7800 ~ 7516,
isco68 == 7810 ~ 7516,
isco68 == 7820 ~ 7516,
isco68 == 7830 ~ 7516,
isco68 == 7890 ~ 7516,
isco68 == 7899 ~ 7516,
isco68 == 7900 ~ 7531,
isco68 == 7910 ~ 7531,
isco68 == 7911 ~ 7531,
isco68 == 7919 ~ 7531,
isco68 == 7920 ~ 7531,
isco68 == 7930 ~ 7531,
isco68 == 7940 ~ 7532,
isco68 == 7950 ~ 7533,
isco68 == 7960 ~ 7534,
isco68 == 7990 ~ 7531,
isco68 == 8000 ~ 7536,
isco68 == 8010 ~ 7536,
isco68 == 8020 ~ 7536,
isco68 == 8030 ~ 7536,
isco68 == 8100 ~ 7520,
isco68 == 8110 ~ 7522,
isco68 == 8120 ~ 7523,
isco68 == 8190 ~ 7520,
isco68 == 8191 ~ 7522,
isco68 == 8199 ~ 7522,
isco68 == 8200 ~ 7113,
isco68 == 8300 ~ 7220,
isco68 == 8310 ~ 7221,
isco68 == 8311 ~ 7221,
isco68 == 8319 ~ 7221,
isco68 == 8320 ~ 7222,
isco68 == 8321 ~ 7222,
isco68 == 8329 ~ 7222,
isco68 == 8330 ~ 7223,
isco68 == 8331 ~ 7223,
isco68 == 8339 ~ 7223,
isco68 == 8340 ~ 8100,
isco68 == 8350 ~ 7224,
isco68 == 8351 ~ 7224,
isco68 == 8359 ~ 7224,
isco68 == 8390 ~ 7222,
isco68 == 8400 ~ 7230,
isco68 == 8410 ~ 7230,
isco68 == 8411 ~ 7232,
isco68 == 8412 ~ 7223,
isco68 == 8419 ~ 7230,
isco68 == 8420 ~ 7311,
isco68 == 8421 ~ 7311,
isco68 == 8422 ~ 3214,
isco68 == 8429 ~ 7311,
isco68 == 8430 ~ 7231,
isco68 == 8431 ~ 1439,
isco68 == 8439 ~ 7231,
isco68 == 8440 ~ 7232,
isco68 == 8490 ~ 7230,
isco68 == 8491 ~ 7234,
isco68 == 8492 ~ 7230,
isco68 == 8493 ~ 8210,
isco68 == 8494 ~ 9620,
isco68 == 8499 ~ 7230,
isco68 == 8500 ~ 7420,
isco68 == 8510 ~ 7412,
isco68 == 8520 ~ 7421,
isco68 == 8530 ~ 8212,
isco68 == 8540 ~ 7421,
isco68 == 8550 ~ 7411,
isco68 == 8551 ~ 7411,
isco68 == 8559 ~ 7411,
isco68 == 8560 ~ 7422,
isco68 == 8570 ~ 7413,
isco68 == 8590 ~ 7420,
isco68 == 8600 ~ 3521,
isco68 == 8610 ~ 3521,
isco68 == 8620 ~ 3521,
isco68 == 8700 ~ 7126,
isco68 == 8710 ~ 7126,
isco68 == 8711 ~ 7126,
isco68 == 8719 ~ 7126,
isco68 == 8720 ~ 7212,
isco68 == 8730 ~ 7213,
isco68 == 8731 ~ 7213,
isco68 == 8732 ~ 7213,
isco68 == 8733 ~ 7213,
isco68 == 8739 ~ 7213,
isco68 == 8740 ~ 7214,
isco68 == 8800 ~ 7313,
isco68 == 8801 ~ 7313,
isco68 == 8809 ~ 7313,
isco68 == 8900 ~ 7315,
isco68 == 8910 ~ 7315,
isco68 == 8911 ~ 7315,
isco68 == 8919 ~ 7549,
isco68 == 8920 ~ 7314,
isco68 == 8930 ~ 7315,
isco68 == 8940 ~ 7316,
isco68 == 8950 ~ 7316,
isco68 == 8990 ~ 7315,
isco68 == 9000 ~ 8140,
isco68 == 9010 ~ 8140,
isco68 == 9020 ~ 8141,
isco68 == 9100 ~ 8143,
isco68 == 9200 ~ 7320,
isco68 == 9210 ~ 7321,
isco68 == 9211 ~ 7322,
isco68 == 9219 ~ 7322,
isco68 == 9220 ~ 7322,
isco68 == 9230 ~ 7321,
isco68 == 9240 ~ 7321,
isco68 == 9250 ~ 7321,
isco68 == 9260 ~ 7323,
isco68 == 9270 ~ 8132,
isco68 == 9290 ~ 7320,
isco68 == 9300 ~ 7131,
isco68 == 9310 ~ 7131,
isco68 == 9311 ~ 7131,
isco68 == 9319 ~ 7131,
isco68 == 9390 ~ 7132,
isco68 == 9400 ~ 8000,
isco68 == 9410 ~ 7312,
isco68 == 9420 ~ 7317,
isco68 == 9430 ~ 8114,
isco68 == 9490 ~ 7549,
isco68 == 9491 ~ 7317,
isco68 == 9492 ~ 7319,
isco68 == 9493 ~ 7317,
isco68 == 9499 ~ 7543,
isco68 == 9500 ~ 7100,
isco68 == 9510 ~ 7112,
isco68 == 9520 ~ 7114,
isco68 == 9530 ~ 7121,
isco68 == 9540 ~ 7115,
isco68 == 9541 ~ 7115,
isco68 == 9542 ~ 7115,
isco68 == 9549 ~ 7115,
isco68 == 9550 ~ 7123,
isco68 == 9551 ~ 7123,
isco68 == 9559 ~ 7123,
isco68 == 9560 ~ 7124,
isco68 == 9570 ~ 7125,
isco68 == 9590 ~ 7119,
isco68 == 9591 ~ 7131,
isco68 == 9592 ~ 7119,
isco68 == 9593 ~ 7119,
isco68 == 9594 ~ 7119,
isco68 == 9595 ~ 9313,
isco68 == 9596 ~ 7119,
isco68 == 9599 ~ 7131,
isco68 == 9600 ~ 3131,
isco68 == 9610 ~ 3131,
isco68 == 9690 ~ 3131,
isco68 == 9700 ~ 8340,
isco68 == 9710 ~ 9333,
isco68 == 9711 ~ 9333,
isco68 == 9712 ~ 9621,
isco68 == 9713 ~ 9621,
isco68 == 9714 ~ 9321,
isco68 == 9719 ~ 9333,
isco68 == 9720 ~ 7215,
isco68 == 9730 ~ 8343,
isco68 == 9731 ~ 8343,
isco68 == 9739 ~ 8343,
isco68 == 9740 ~ 8342,
isco68 == 9790 ~ 8344,
isco68 == 9800 ~ 8300,
isco68 == 9810 ~ 8350,
isco68 == 9811 ~ 8350,
isco68 == 9819 ~ 8350,
isco68 == 9820 ~ 8182,
isco68 == 9830 ~ 8311,
isco68 == 9831 ~ 8311,
isco68 == 9832 ~ 8311,
isco68 == 9839 ~ 8311,
isco68 == 9840 ~ 8312,
isco68 == 9850 ~ 8320,
isco68 == 9851 ~ 8331,
isco68 == 9852 ~ 8332,
isco68 == 9853 ~ 8322,
isco68 == 9854 ~ 9333,
isco68 == 9855 ~ 5165,
isco68 == 9859 ~ 8320,
isco68 == 9860 ~ 9332,
isco68 == 9861 ~ 9332,
isco68 == 9869 ~ 9332,
isco68 == 9890 ~ 8320,
isco68 == 9891 ~ 8312,
isco68 == 9899 ~ 9331,
isco68 == 9900 ~ 9300,
isco68 == 9950 ~ 7000,
isco68 == 9951 ~ 7000,
isco68 == 9959 ~ 7000,
isco68 == 9970 ~ 8000,
isco68 == 9971 ~ 7000,
isco68 == 9979 ~ 8000,
isco68 == 9990 ~ 9300,
isco68 == 9991 ~ 9320,
isco68 == 9992 ~ 9300,
isco68 == 9993 ~ 9300,
isco68 == 9994 ~ 9312,
isco68 == 9995 ~ 9613,
isco68 == 9996 ~ 9611,
isco68 == 9997 ~ 9312,
isco68 == 9999 ~ 9300,
isco68 == 10000 ~ 0000,
isco68 == 10001 ~ 0100,
isco68 == 10002 ~ 0200,
isco68 == 10003 ~ 0300,
isco68 == 10009 ~ 0100,
isco68 == 12000 ~ 9999
)
)
if (display.nas) display.nas(isco, conv.from="isco68", conv.to='isco08')
return(isco$isco08)
}
## {{{ docs }}}
#' Recode ISCO-88 into ISCO-08
#'
#' The function recodes ISCO-88 into ISCO-08.
#'
#' @param isco88 a numeric vector with the ISCO-88 codes
#' @param display.nas boolean. If true (defaul is \code{FALSE}), displays table with unmatched ISCO-88 codes.
#'
#' @return
#' It returns a vector with ISCO-08 codes.
#'
#' @export
## }}}
isco88to08 <- function(isco88, display.nas=FALSE)
{
## RECODE OF ISCO-88 INTO ISCO-08
## DECIMAL DENOTES NUMBER OF ALTERNATIVES DEFINED BY ILO
## IF NO FURTHER INFORMATION AVAILABLE, TRUNCATE DECIMAL
## Conversion Table Version 13 Aug 2015
isco = tibble::tibble(isco88=isco88)
isco = isco %>%
dplyr::mutate(
isco08 = dplyr::case_when(isco88 == 0 ~ 0300.3 ,
isco88 == 10 ~ 0300.3 ,
isco88 == 100 ~ 0300.3 ,
isco88 == 110 ~ 0300.3 ,
isco88 == 1250 ~ 0100.1 ,
isco88 == 3452 ~ 0200.2 ,
isco88 == 1000 ~ 1000.1 ,
isco88 == 1100 ~ 1110.1 ,
isco88 == 1110 ~ 1111.1 ,
isco88 == 1120 ~ 1112.1 ,
isco88 == 1130 ~ 1113.1 ,
isco88 == 1140 ~ 1114.1 ,
isco88 == 1141 ~ 1114.1 ,
isco88 == 1142 ~ 1114.1 ,
isco88 == 1143 ~ 1114.1 ,
isco88 == 1200 ~ 1200.1 ,
isco88 == 1210 ~ 1120.1 ,
isco88 == 1220 ~ 1300.2 ,
isco88 == 1221 ~ 1311.2 ,
isco88 == 1222 ~ 1321.2 ,
isco88 == 1223 ~ 1323.2 ,
isco88 == 1224 ~ 1420.1 ,
isco88 == 1225 ~ 1410.2 ,
isco88 == 1226 ~ 1324.2 ,
isco88 == 1227 ~ 1219.2 ,
isco88 == 1228 ~ 1219.1 ,
isco88 == 1229 ~ 1300.9 ,
isco88 == 1230 ~ 1200.1 ,
isco88 == 1231 ~ 1211.2 ,
isco88 == 1232 ~ 1212.1 ,
isco88 == 1233 ~ 1221.1 ,
isco88 == 1234 ~ 1222.1 ,
isco88 == 1235 ~ 1324.1 ,
isco88 == 1236 ~ 1330.1 ,
isco88 == 1237 ~ 1223.1 ,
isco88 == 1239 ~ 1213.1 ,
isco88 == 1240 ~ 3341.1 ,
isco88 == 1300 ~ 1400.1 ,
isco88 == 1310 ~ 1400.1 ,
isco88 == 1311 ~ 6130.9 ,
isco88 == 1312 ~ 1321.2 ,
isco88 == 1313 ~ 1323.1 ,
isco88 == 1314 ~ 1420.2 ,
isco88 == 1315 ~ 1410.2 ,
isco88 == 1316 ~ 1324.2 ,
isco88 == 1317 ~ 1210.7 ,
isco88 == 1318 ~ 1219.1 ,
isco88 == 1319 ~ 1340.9 ,
isco88 == 2000 ~ 2000.1 ,
isco88 == 2100 ~ 2100.1 ,
isco88 == 2110 ~ 2110.1 ,
isco88 == 2111 ~ 2111.1 ,
isco88 == 2112 ~ 2112.1 ,
isco88 == 2113 ~ 2113.2 ,
isco88 == 2114 ~ 2114.1 ,
isco88 == 2120 ~ 2120.1 ,
isco88 == 2121 ~ 2120.1 ,
isco88 == 2122 ~ 2120.1 ,
isco88 == 2130 ~ 2500.3 ,
isco88 == 2131 ~ 2500.7 ,
isco88 == 2132 ~ 2510.3 ,
isco88 == 2139 ~ 2519.3 ,
isco88 == 2140 ~ 2140.2 ,
isco88 == 2141 ~ 2160.3 ,
isco88 == 2142 ~ 2142.1 ,
isco88 == 2143 ~ 2151.1 ,
isco88 == 2144 ~ 2150.2 ,
isco88 == 2145 ~ 2144.1 ,
isco88 == 2146 ~ 2145.1 ,
isco88 == 2147 ~ 2146.1 ,
isco88 == 2148 ~ 2165.1 ,
isco88 == 2149 ~ 2149.3 ,
isco88 == 2200 ~ 2200.2 ,
isco88 == 2210 ~ 2130.1 ,
isco88 == 2211 ~ 2130.2 ,
isco88 == 2212 ~ 2212.3 ,
isco88 == 2213 ~ 2132.1 ,
isco88 == 2220 ~ 2200.2 ,
isco88 == 2221 ~ 2210.2 ,
isco88 == 2222 ~ 2261.1 ,
isco88 == 2223 ~ 2250.1 ,
isco88 == 2224 ~ 2262.1 ,
isco88 == 2229 ~ 2260.2 ,
isco88 == 2230 ~ 2220.6 ,
isco88 == 2300 ~ 2300.1 ,
isco88 == 2310 ~ 2310.2 ,
isco88 == 2320 ~ 2330.2 ,
isco88 == 2321 ~ 2330.1 ,
isco88 == 2322 ~ 2320.1 ,
isco88 == 2323 ~ 2330.1 ,
isco88 == 2330 ~ 2340.1 ,
isco88 == 2331 ~ 2341.1 ,
isco88 == 2332 ~ 2342.1 ,
isco88 == 2340 ~ 2352.1 ,
isco88 == 2350 ~ 2350.1 ,
isco88 == 2351 ~ 2351.1 ,
isco88 == 2352 ~ 2351.1 ,
isco88 == 2359 ~ 2359.5 ,
isco88 == 2400 ~ 2400.1 ,
isco88 == 2410 ~ 2410.1 ,
isco88 == 2411 ~ 2411.2 ,
isco88 == 2412 ~ 2423.3 ,
isco88 == 2419 ~ 2400.7 ,
isco88 == 2420 ~ 2610.2 ,
isco88 == 2421 ~ 2611.1 ,
isco88 == 2422 ~ 2612.1 ,
isco88 == 2429 ~ 2619.1 ,
isco88 == 2430 ~ 2620.1 ,
isco88 == 2431 ~ 2621.1 ,
isco88 == 2432 ~ 2622.1 ,
isco88 == 2440 ~ 2630.1 ,
isco88 == 2441 ~ 2631.1 ,
isco88 == 2442 ~ 2632.1 ,
isco88 == 2443 ~ 2633.1 ,
isco88 == 2444 ~ 2643.1 ,
isco88 == 2445 ~ 2634.1 ,
isco88 == 2446 ~ 2635.1 ,
isco88 == 2450 ~ 2640.1 ,
isco88 == 2451 ~ 2640.4 ,
isco88 == 2452 ~ 2651.1 ,
isco88 == 2453 ~ 2652.1 ,
isco88 == 2454 ~ 2653.1 ,
isco88 == 2455 ~ 2655.2 ,
isco88 == 2460 ~ 2636.1 ,
isco88 == 2470 ~ 2422.1 ,
isco88 == 3000 ~ 3000.1 ,
isco88 == 3100 ~ 3100.2 ,
isco88 == 3110 ~ 3110.1 ,
isco88 == 3111 ~ 3111.1 ,
isco88 == 3112 ~ 3112.1 ,
isco88 == 3113 ~ 3113.1 ,
isco88 == 3114 ~ 3114.2 ,
isco88 == 3115 ~ 3115.1 ,
isco88 == 3116 ~ 3116.1 ,
isco88 == 3117 ~ 3117.1 ,
isco88 == 3118 ~ 3118.1 ,
isco88 == 3119 ~ 3119.1 ,
isco88 == 3120 ~ 3510.1 ,
isco88 == 3121 ~ 3510.3 ,
isco88 == 3122 ~ 3511.2 ,
isco88 == 3123 ~ 3139.1 ,
isco88 == 3130 ~ 3520.1 ,
isco88 == 3131 ~ 3521.2 ,
isco88 == 3132 ~ 3521.2 ,
isco88 == 3133 ~ 3211.1 ,
isco88 == 3139 ~ 3211.1 ,
isco88 == 3140 ~ 3150.1 ,
isco88 == 3141 ~ 3151.1 ,
isco88 == 3142 ~ 3152.1 ,
isco88 == 3143 ~ 3153.1 ,
isco88 == 3144 ~ 3154.1 ,
isco88 == 3145 ~ 3155.1 ,
isco88 == 3150 ~ 7544.1 ,
isco88 == 3151 ~ 3359.2 ,
isco88 == 3152 ~ 3110.7 ,
isco88 == 3200 ~ 3200.1 ,
isco88 == 3210 ~ 3140.1 ,
isco88 == 3211 ~ 3212.2 ,
isco88 == 3212 ~ 3142.2 ,
isco88 == 3213 ~ 2132.1 ,
isco88 == 3220 ~ 3250.3 ,
isco88 == 3221 ~ 3256.3 ,
isco88 == 3222 ~ 3257.2 ,
isco88 == 3223 ~ 2265.1 ,
isco88 == 3224 ~ 3254.2 ,
isco88 == 3225 ~ 3251.1 ,
isco88 == 3226 ~ 2264.4 ,
isco88 == 3227 ~ 3240.1 ,
isco88 == 3228 ~ 3213.1 ,
isco88 == 3229 ~ 3259.5 ,
isco88 == 3230 ~ 3220.1 ,
isco88 == 3231 ~ 3221.1 ,
isco88 == 3232 ~ 3222.1 ,
isco88 == 3240 ~ 3230.1 ,
isco88 == 3241 ~ 3230.2 ,
isco88 == 3242 ~ 5161.1 ,
isco88 == 3300 ~ 2359.1 ,
isco88 == 3310 ~ 2341.1 ,
isco88 == 3320 ~ 2342.1 ,
isco88 == 3330 ~ 2352.1 ,
isco88 == 3340 ~ 2359.8 ,
isco88 == 3400 ~ 3300.3 ,
isco88 == 3410 ~ 3310.1 ,
isco88 == 3411 ~ 3311.2 ,
isco88 == 3412 ~ 3321.1 ,
isco88 == 3413 ~ 3334.1 ,
isco88 == 3414 ~ 4221.1 ,
isco88 == 3415 ~ 3322.3 ,
isco88 == 3416 ~ 3323.1 ,
isco88 == 3417 ~ 3315.2 ,
isco88 == 3419 ~ 3312.1 ,
isco88 == 3420 ~ 3320.1 ,
isco88 == 3421 ~ 3324.1 ,
isco88 == 3422 ~ 3331.1 ,
isco88 == 3423 ~ 3333.1 ,
isco88 == 3429 ~ 3339.1 ,
isco88 == 3430 ~ 3330.1 ,
isco88 == 3431 ~ 3343.4 ,
isco88 == 3432 ~ 3411.1 ,
isco88 == 3433 ~ 3313.1 ,
isco88 == 3434 ~ 3314.2 ,
isco88 == 3439 ~ 3340.4 ,
isco88 == 3440 ~ 3350.1 ,
isco88 == 3441 ~ 3351.1 ,
isco88 == 3442 ~ 3352.1 ,
isco88 == 3443 ~ 3353.1 ,
isco88 == 3444 ~ 3354.1 ,
isco88 == 3449 ~ 3359.1 ,
isco88 == 3450 ~ 3355.2 ,
isco88 == 3451 ~ 3355.2 ,
isco88 == 3460 ~ 3412.1 ,
isco88 == 3470 ~ 3430.3 ,
isco88 == 3471 ~ 3432.5 ,
isco88 == 3472 ~ 2656.2 ,
isco88 == 3473 ~ 2652.2 ,
isco88 == 3474 ~ 2659.1 ,
isco88 == 3475 ~ 3420.3 ,
isco88 == 3480 ~ 3413.1 ,
isco88 == 4000 ~ 4000.1 ,
isco88 == 4100 ~ 4100.1 ,
isco88 == 4110 ~ 4120.2 ,
isco88 == 4111 ~ 4131.2 ,
isco88 == 4112 ~ 4131.2 ,
isco88 == 4113 ~ 4132.1 ,
isco88 == 4114 ~ 4132.2 ,
isco88 == 4115 ~ 4120.4 ,
isco88 == 4120 ~ 4310.1 ,
isco88 == 4121 ~ 4311.3 ,
isco88 == 4122 ~ 4312.2 ,
isco88 == 4130 ~ 4320.1 ,
isco88 == 4131 ~ 4321.2 ,
isco88 == 4132 ~ 4322.2 ,
isco88 == 4133 ~ 4323.2 ,
isco88 == 4140 ~ 4410.1 ,
isco88 == 4141 ~ 4410.3 ,
isco88 == 4142 ~ 4412.2 ,
isco88 == 4143 ~ 4413.3 ,
isco88 == 4144 ~ 4414.2 ,
isco88 == 4190 ~ 4419.5 ,
isco88 == 4200 ~ 4200.1 ,
isco88 == 4210 ~ 4210.1 ,
isco88 == 4211 ~ 5230.3 ,
isco88 == 4212 ~ 4211.1 ,
isco88 == 4213 ~ 4212.1 ,
isco88 == 4214 ~ 4213.1 ,
isco88 == 4215 ~ 4214.1 ,
isco88 == 4220 ~ 4220.1 ,
isco88 == 4221 ~ 4221.1 ,
isco88 == 4222 ~ 4220.6 ,
isco88 == 4223 ~ 4223.2 ,
isco88 == 5000 ~ 5000.1 ,
isco88 == 5100 ~ 5100.1 ,
isco88 == 5110 ~ 5110.1 ,
isco88 == 5111 ~ 5111.1 ,
isco88 == 5112 ~ 5112.1 ,
isco88 == 5113 ~ 5113.1 ,
isco88 == 5120 ~ 5150.1 ,
isco88 == 5121 ~ 5152.2 ,
isco88 == 5122 ~ 5120.3 ,
isco88 == 5123 ~ 5130.2 ,
isco88 == 5130 ~ 5300.1 ,
isco88 == 5131 ~ 5311.2 ,
isco88 == 5132 ~ 5320.3 ,
isco88 == 5133 ~ 5322.1 ,
isco88 == 5139 ~ 5320.2 ,
isco88 == 5140 ~ 5160.1 ,
isco88 == 5141 ~ 5140.2 ,
isco88 == 5142 ~ 5162.1 ,
isco88 == 5143 ~ 5163.1 ,
isco88 == 5149 ~ 5169.1 ,
isco88 == 5150 ~ 5161.1 ,
isco88 == 5151 ~ 5161.1 ,
isco88 == 5152 ~ 5161.1 ,
isco88 == 5160 ~ 5410.1 ,
isco88 == 5161 ~ 5411.1 ,
isco88 == 5162 ~ 5412.1 ,
isco88 == 5163 ~ 5413.1 ,
isco88 == 5164 ~ 0000.1 ,
isco88 == 5169 ~ 5419.2 ,
isco88 == 5200 ~ 5200.1 ,
isco88 == 5210 ~ 5241.1 ,
isco88 == 5220 ~ 5223.6 ,
isco88 == 5230 ~ 5211.2 ,
isco88 == 6000 ~ 6000.1 ,
isco88 == 6100 ~ 6100.1 ,
isco88 == 6110 ~ 6110.1 ,
isco88 == 6111 ~ 6111.1 ,
isco88 == 6112 ~ 6112.1 ,
isco88 == 6113 ~ 6113.2 ,
isco88 == 6114 ~ 6114.1 ,
isco88 == 6120 ~ 6120.1 ,
isco88 == 6121 ~ 6121.1 ,
isco88 == 6122 ~ 6122.1 ,
isco88 == 6123 ~ 6123.1 ,
isco88 == 6124 ~ 6120.3 ,
isco88 == 6129 ~ 6129.2 ,
isco88 == 6130 ~ 6130.1 ,
isco88 == 6133 ~ 6130.1 ,
isco88 == 6140 ~ 6210.1 ,
isco88 == 6141 ~ 6210.1 ,
isco88 == 6142 ~ 6210.1 ,
isco88 == 6150 ~ 6220.1 ,
isco88 == 6151 ~ 6221.1 ,
isco88 == 6152 ~ 6222.2 ,
isco88 == 6153 ~ 6223.1 ,
isco88 == 6154 ~ 6224.1 ,
isco88 == 6200 ~ 6300.1 ,
isco88 == 6210 ~ 6300.4 ,
isco88 == 7000 ~ 7000.1 ,
isco88 == 7100 ~ 7100.1 ,
isco88 == 7110 ~ 8110.1 ,
isco88 == 7111 ~ 8111.2 ,
isco88 == 7112 ~ 7542.1 ,
isco88 == 7113 ~ 7113.1 ,
isco88 == 7120 ~ 7110.1 ,
isco88 == 7121 ~ 7111.1 ,
isco88 == 7122 ~ 7112.2 ,
isco88 == 7123 ~ 7114.1 ,
isco88 == 7124 ~ 7115.1 ,
isco88 == 7129 ~ 7119.3 ,
isco88 == 7130 ~ 7120.1 ,
isco88 == 7131 ~ 7121.1 ,
isco88 == 7132 ~ 7122.1 ,
isco88 == 7133 ~ 7123.1 ,
isco88 == 7134 ~ 7124.1 ,
isco88 == 7135 ~ 7125.1 ,
isco88 == 7136 ~ 7126.1 ,
isco88 == 7137 ~ 7411.1 ,
isco88 == 7139 ~ 7119.1 ,
isco88 == 7140 ~ 7130.1 ,
isco88 == 7141 ~ 7131.1 ,
isco88 == 7142 ~ 7132.1 ,
isco88 == 7143 ~ 7133.2 ,
isco88 == 7200 ~ 7200.1 ,
isco88 == 7210 ~ 7210.1 ,
isco88 == 7211 ~ 7211.1 ,
isco88 == 7212 ~ 7212.1 ,
isco88 == 7213 ~ 7213.1 ,
isco88 == 7214 ~ 7214.1 ,
isco88 == 7215 ~ 7215.1 ,
isco88 == 7216 ~ 7541.1 ,
isco88 == 7220 ~ 7220.1 ,
isco88 == 7221 ~ 7221.1 ,
isco88 == 7222 ~ 7222.1 ,
isco88 == 7223 ~ 7223.1 ,
isco88 == 7224 ~ 7224.1 ,
isco88 == 7230 ~ 7230.1 ,
isco88 == 7231 ~ 7231.2 ,
isco88 == 7232 ~ 7232.1 ,
isco88 == 7233 ~ 7233.2 ,
isco88 == 7234 ~ 9620.1 ,
isco88 == 7240 ~ 7400.2 ,
isco88 == 7241 ~ 7412.1 ,
isco88 == 7242 ~ 7421.2 ,
isco88 == 7243 ~ 7421.2 ,
isco88 == 7244 ~ 7422.1 ,
isco88 == 7245 ~ 7413.2 ,
isco88 == 7300 ~ 7300.1 ,
isco88 == 7310 ~ 7311.1 ,
isco88 == 7311 ~ 7311.2 ,
isco88 == 7312 ~ 7312.1 ,
isco88 == 7313 ~ 7313.1 ,
isco88 == 7320 ~ 7314.1 ,
isco88 == 7321 ~ 7314.1 ,
isco88 == 7322 ~ 7315.2 ,
isco88 == 7323 ~ 7316.1 ,
isco88 == 7324 ~ 7316.1 ,
isco88 == 7330 ~ 7310.1 ,
isco88 == 7331 ~ 7317.2 ,
isco88 == 7332 ~ 7318.1 ,
isco88 == 7340 ~ 7320.1 ,
isco88 == 7341 ~ 7320.2 ,
isco88 == 7342 ~ 7321.1 ,
isco88 == 7343 ~ 7321.1 ,
isco88 == 7344 ~ 8132.1 ,
isco88 == 7345 ~ 7323.1 ,
isco88 == 7346 ~ 7322.1 ,
isco88 == 7400 ~ 7540.1 ,
isco88 == 7410 ~ 7510.1 ,
isco88 == 7411 ~ 7511.1 ,
isco88 == 7412 ~ 7512.1 ,
isco88 == 7413 ~ 7513.1 ,
isco88 == 7414 ~ 7514.1 ,
isco88 == 7415 ~ 7515.1 ,
isco88 == 7416 ~ 7516.1 ,
isco88 == 7420 ~ 7520.1 ,
isco88 == 7421 ~ 7521.1 ,
isco88 == 7422 ~ 7522.1 ,
isco88 == 7423 ~ 7523.1 ,
isco88 == 7424 ~ 7317.1 ,
isco88 == 7430 ~ 7530.1 ,
isco88 == 7431 ~ 7318.1 ,
isco88 == 7432 ~ 8152.2 ,
isco88 == 7433 ~ 7531.1 ,
isco88 == 7434 ~ 7531.1 ,
isco88 == 7435 ~ 7532.1 ,
isco88 == 7436 ~ 7533.1 ,
isco88 == 7437 ~ 7534.1 ,
isco88 == 7440 ~ 7536.1 ,
isco88 == 7441 ~ 7535.1 ,
isco88 == 7442 ~ 7536.1 ,
isco88 == 7500 ~ 7210.1 ,
isco88 == 7510 ~ 3120.1 ,
isco88 == 7520 ~ 7000.1 ,
isco88 == 7530 ~ 7000.1 ,
isco88 == 7900 ~ 7549.1 ,
isco88 == 8000 ~ 8000.1 ,
isco88 == 8100 ~ 8100.1 ,
isco88 == 8110 ~ 8110.1 ,
isco88 == 8111 ~ 8111.2 ,
isco88 == 8112 ~ 8112.1 ,
isco88 == 8113 ~ 8113.1 ,
isco88 == 8120 ~ 8120.1 ,
isco88 == 8121 ~ 8121.2 ,
isco88 == 8122 ~ 8121.2 ,
isco88 == 8123 ~ 8121.2 ,
isco88 == 8124 ~ 8121.2 ,
isco88 == 8130 ~ 8181.1 ,
isco88 == 8131 ~ 8181.1 ,
isco88 == 8139 ~ 8181.1 ,
isco88 == 8140 ~ 8170.1 ,
isco88 == 8141 ~ 8172.1 ,
isco88 == 8142 ~ 8171.2 ,
isco88 == 8143 ~ 8171.2 ,
isco88 == 8150 ~ 8131.1 ,
isco88 == 8151 ~ 8131.1 ,
isco88 == 8152 ~ 8131.2 ,
isco88 == 8153 ~ 8131.2 ,
isco88 == 8154 ~ 8131.2 ,
isco88 == 8155 ~ 8131.2 ,
isco88 == 8159 ~ 8131.2 ,
isco88 == 8160 ~ 8180.2 ,
isco88 == 8161 ~ 3131.1 ,
isco88 == 8162 ~ 8182.1 ,
isco88 == 8163 ~ 3132.1 ,
isco88 == 8170 ~ 3130.1 ,
isco88 == 8171 ~ 3139.2 ,
isco88 == 8172 ~ 3139.2 ,
isco88 == 8200 ~ 8100.1 ,
isco88 == 8210 ~ 8120.1 ,
isco88 == 8211 ~ 7223.2 ,
isco88 == 8212 ~ 8114.1 ,
isco88 == 8220 ~ 8130.1 ,
isco88 == 8221 ~ 8131.2 ,
isco88 == 8222 ~ 8131.2 ,
isco88 == 8223 ~ 8122.2 ,
isco88 == 8224 ~ 8132.2 ,
isco88 == 8229 ~ 8131.2 ,
isco88 == 8230 ~ 8140.1 ,
isco88 == 8231 ~ 8141.2 ,
isco88 == 8232 ~ 8142.2 ,
isco88 == 8240 ~ 7523.2 ,
isco88 == 8250 ~ 7323.1 ,
isco88 == 8251 ~ 7322.2 ,
isco88 == 8252 ~ 7323.2 ,
isco88 == 8253 ~ 8143.2 ,
isco88 == 8260 ~ 8150.1 ,
isco88 == 8261 ~ 8151.2 ,
isco88 == 8262 ~ 8152.2 ,
isco88 == 8263 ~ 8153.2 ,
isco88 == 8264 ~ 8154.3 ,
isco88 == 8265 ~ 8155.2 ,
isco88 == 8266 ~ 8156.2 ,
isco88 == 8269 ~ 8159.2 ,
isco88 == 8270 ~ 8160.1 ,
isco88 == 8271 ~ 8160.2 ,
isco88 == 8272 ~ 8160.2 ,
isco88 == 8273 ~ 8160.2 ,
isco88 == 8274 ~ 8160.2 ,
isco88 == 8275 ~ 8160.2 ,
isco88 == 8276 ~ 8160.2 ,
isco88 == 8277 ~ 8160.2 ,
isco88 == 8278 ~ 8160.2 ,
isco88 == 8279 ~ 8160.2 ,
isco88 == 8280 ~ 8210.1 ,
isco88 == 8281 ~ 8211.2 ,
isco88 == 8282 ~ 8212.2 ,
isco88 == 8283 ~ 8212.2 ,
isco88 == 8284 ~ 8219.2 ,
isco88 == 8285 ~ 8219.2 ,
isco88 == 8286 ~ 8219.2 ,
isco88 == 8287 ~ 8219.1 ,
isco88 == 8290 ~ 8189.4 ,
isco88 == 8300 ~ 8300.1 ,
isco88 == 8310 ~ 8310.1 ,
isco88 == 8311 ~ 8311.1 ,
isco88 == 8312 ~ 8312.1 ,
isco88 == 8320 ~ 8330.2 ,
isco88 == 8321 ~ 8321.1 ,
isco88 == 8322 ~ 8322.1 ,
isco88 == 8323 ~ 8331.1 ,
isco88 == 8324 ~ 8332.1 ,
isco88 == 8330 ~ 8340.1 ,
isco88 == 8331 ~ 8341.1 ,
isco88 == 8332 ~ 8342.1 ,
isco88 == 8333 ~ 8343.1 ,
isco88 == 8334 ~ 8344.1 ,
isco88 == 8340 ~ 8350.1 ,
isco88 == 9000 ~ 9000.1 ,
isco88 == 9100 ~ 9620.1 ,
isco88 == 9110 ~ 9520.2 ,
isco88 == 9111 ~ 5212.1 ,
isco88 == 9112 ~ 9520.1 ,
isco88 == 9113 ~ 5244.2 ,
isco88 == 9120 ~ 9510.1 ,
isco88 == 9130 ~ 9110.2 ,
isco88 == 9131 ~ 9111.1 ,
isco88 == 9132 ~ 9112.2 ,
isco88 == 9133 ~ 9121.1 ,
isco88 == 9140 ~ 9120.1 ,
isco88 == 9141 ~ 5153.1 ,
isco88 == 9142 ~ 9120.3 ,
isco88 == 9150 ~ 9621.1 ,
isco88 == 9151 ~ 9621.1 ,
isco88 == 9152 ~ 5414.3 ,
isco88 == 9153 ~ 9623.1 ,
isco88 == 9160 ~ 9610.1 ,
isco88 == 9161 ~ 9610.2 ,
isco88 == 9162 ~ 9613.1 ,
isco88 == 9200 ~ 9200.1 ,
isco88 == 9210 ~ 9210.1 ,
isco88 == 9211 ~ 9210.4 ,
isco88 == 9212 ~ 9215.1 ,
isco88 == 9213 ~ 9216.1 ,
isco88 == 9300 ~ 9300.1 ,
isco88 == 9310 ~ 9310.1 ,
isco88 == 9311 ~ 9311.1 ,
isco88 == 9312 ~ 9312.1 ,
isco88 == 9313 ~ 9313.1 ,
isco88 == 9320 ~ 9320.1 ,
isco88 == 9321 ~ 9329.2 ,
isco88 == 9322 ~ 9329.2 ,
isco88 == 9330 ~ 9330.1 ,
isco88 == 9331 ~ 9331.1 ,
isco88 == 9332 ~ 9332.1 ,
isco88 == 9333 ~ 9333.2
)
) %>% dplyr::mutate(isco08 = as.integer(isco08))
if (display.nas) display.nas(isco, conv.from="isco88", conv.to='isco08')
return(isco$isco08)
}
## =====================================================
## ISCO labels
## =====================================================
## {{{ docs }}}
#' Get labels for ISCO-08
#'
#' The function gets labels for ISCO-08.
#'
#' @param isco08 a numeric vector with the ISCO-08 codes
#' @param display.nas boolean. If true (defaul is \code{FALSE}), displays table with unmatched ISCO-08 codes.
#'
#' @return
#' It returns a vector with ISCO-08 labels.
#'
#' @export
## }}}
isco08labels <- function(isco08, display.nas=FALSE)
{
## RECODE OF ISCO-88 INTO ISCO-08
## DECIMAL DENOTES NUMBER OF ALTERNATIVES DEFINED BY ILO
## IF NO FURTHER INFORMATION AVAILABLE, TRUNCATE DECIMAL
## Conversion Table Version 13 Aug 2015
isco = tibble::tibble(isco08=isco08)
isco = isco %>%
dplyr::mutate(
isco08.label = dplyr::case_when(
isco08 == 0000 ~ "Armed forces occupations",
isco08 == 0010 ~ "Armed forces occupations",
isco08 == 0100 ~ "Commissioned armed forces officers",
isco08 == 0110 ~ "Commissioned armed forces officers",
isco08 == 0200 ~ "Non-commissioned armed forces officers",
isco08 == 0210 ~ "Non-commissioned armed forces officers",
isco08 == 0300 ~ "Armed forces occupations, other ranks",
isco08 == 0310 ~ "Armed forces occupations, other ranks",
isco08 == 1000 ~ "Managers",
isco08 == 1100 ~ "Chief executives, senior officials and legislators",
isco08 == 1110 ~ "Legislators and senior officials",
isco08 == 1111 ~ "Legislators",
isco08 == 1112 ~ "Senior government officials",
isco08 == 1113 ~ "Traditional chiefs and heads of village",
isco08 == 1114 ~ "Senior officials of special-interest organizations",
isco08 == 1120 ~ "Managing directors and chief executives",
isco08 == 1200 ~ "Administrative and commercial managers",
isco08 == 1210 ~ "Business services and administration managers",
isco08 == 1211 ~ "Finance managers",
isco08 == 1212 ~ "Human resource managers",
isco08 == 1213 ~ "Policy and planning managers",
isco08 == 1219 ~ "Business services and administration managers nec",
isco08 == 1220 ~ "Sales, marketing and development managers",
isco08 == 1221 ~ "Sales and marketing managers",
isco08 == 1222 ~ "Advertising and public relations managers",
isco08 == 1223 ~ "Research and development managers",
isco08 == 1300 ~ "Production and specialized services managers",
isco08 == 1310 ~ "Production managers in agriculture, forestry and fisheries",
isco08 == 1311 ~ "Agricultural and forestry production managers",
isco08 == 1312 ~ "Aquaculture and fisheries production managers",
isco08 == 1320 ~ "Manufacture, mining, construction, distribution managers",
isco08 == 1321 ~ "Manufacturing managers",
isco08 == 1322 ~ "Mining managers",
isco08 == 1323 ~ "Construction managers",
isco08 == 1324 ~ "Supply, distribution and related managers",
isco08 == 1330 ~ "ICT service managers",
isco08 == 1340 ~ "Professional services managers",
isco08 == 1341 ~ "Child care services managers",
isco08 == 1342 ~ "Health services managers",
isco08 == 1343 ~ "Aged care services managers",
isco08 == 1344 ~ "Social welfare managers",
isco08 == 1345 ~ "Education managers",
isco08 == 1346 ~ "Financial and insurance services branch managers",
isco08 == 1349 ~ "Professional services managers nec",
isco08 == 1400 ~ "Hospitality, retail and other services managers",
isco08 == 1410 ~ "Hotel and restaurant managers",
isco08 == 1411 ~ "Hotel managers",
isco08 == 1412 ~ "Restaurant managers",
isco08 == 1420 ~ "Retail and wholesale trade managers",
isco08 == 1430 ~ "Other services managers",
isco08 == 1431 ~ "Sports, recreation and cultural centre managers",
isco08 == 1439 ~ "Services managers nec",
isco08 == 2000 ~ "Professionals",
isco08 == 2100 ~ "Science and engineering professionals",
isco08 == 2110 ~ "Physical and earth science professionals",
isco08 == 2111 ~ "Physicists and astronomers",
isco08 == 2112 ~ "Meteorologists",
isco08 == 2113 ~ "Chemists",
isco08 == 2114 ~ "Geologists and geophysicists",
isco08 == 2120 ~ "Mathematicians, actuaries and statisticians",
isco08 == 2130 ~ "Life science professionals",
isco08 == 2131 ~ "Biologists, botanists, zoologists and related professionals",
isco08 == 2132 ~ "Farming, forestry and fisheries advisers",
isco08 == 2133 ~ "Environmental protection professionals",
isco08 == 2140 ~ "Engineering professionals [excluding electrotechnology]",
isco08 == 2141 ~ "Industrial and production engineers",
isco08 == 2142 ~ "Civil engineers",
isco08 == 2143 ~ "Environmental engineers",
isco08 == 2144 ~ "Mechanical engineers",
isco08 == 2145 ~ "Chemical engineers",
isco08 == 2146 ~ "Mining engineers, metallurgists and related professionals",
isco08 == 2149 ~ "Engineering professionals nec",
isco08 == 2150 ~ "Electrotechnology engineers",
isco08 == 2151 ~ "Electrical engineers",
isco08 == 2152 ~ "Electronics engineers",
isco08 == 2153 ~ "Telecommunications engineers",
isco08 == 2160 ~ "Architects, planners, surveyors and designers",
isco08 == 2161 ~ "Building architects",
isco08 == 2162 ~ "Landscape architects",
isco08 == 2163 ~ "Product and garment designers",
isco08 == 2164 ~ "Town and traffic planners",
isco08 == 2165 ~ "Cartographers and surveyors",
isco08 == 2166 ~ "Graphic and multimedia designers",
isco08 == 2200 ~ "Health professionals",
isco08 == 2210 ~ "Medical doctors",
isco08 == 2211 ~ "Generalist medical practitioners",
isco08 == 2212 ~ "Specialist medical practitioners",
isco08 == 2220 ~ "Nursing and midwifery professionals",
isco08 == 2221 ~ "Nursing professionals",
isco08 == 2222 ~ "Midwifery professionals",
isco08 == 2230 ~ "Traditional and complementary medicine professionals",
isco08 == 2240 ~ "Paramedical practitioners",
isco08 == 2250 ~ "Veterinarians",
isco08 == 2260 ~ "Other health professionals",
isco08 == 2261 ~ "Dentists",
isco08 == 2262 ~ "Pharmacists",
isco08 == 2263 ~ "Environmental & occupational health-hygiene professionals",
isco08 == 2264 ~ "Physiotherapists",
isco08 == 2265 ~ "Dieticians and nutritionists",
isco08 == 2266 ~ "Audiologists and speech therapists",
isco08 == 2267 ~ "Optometrists and ophthalmic opticians",
isco08 == 2269 ~ "Health professionals nec",
isco08 == 2300 ~ "Teaching professionals",
isco08 == 2310 ~ "University and higher education teachers",
isco08 == 2320 ~ "Vocational education teachers",
isco08 == 2330 ~ "Secondary education teachers",
isco08 == 2340 ~ "Primary school and early childhood teachers",
isco08 == 2341 ~ "Primary school teachers",
isco08 == 2342 ~ "Early childhood educators",
isco08 == 2350 ~ "Other teaching professionals",
isco08 == 2351 ~ "Education methods specialists",
isco08 == 2352 ~ "Special needs teachers",
isco08 == 2353 ~ "Other language teachers",
isco08 == 2354 ~ "Other music teachers",
isco08 == 2355 ~ "Other arts teachers",
isco08 == 2356 ~ "Information technology trainers",
isco08 == 2359 ~ "Teaching professionals nec",
isco08 == 2400 ~ "Business and administration professionals",
isco08 == 2410 ~ "Finance professionals",
isco08 == 2411 ~ "Accountants",
isco08 == 2412 ~ "Financial and investment advisers",
isco08 == 2413 ~ "Financial analysts",
isco08 == 2420 ~ "Administration professionals",
isco08 == 2421 ~ "Management and organization analysts",
isco08 == 2422 ~ "Policy administration professionals",
isco08 == 2423 ~ "Personnel and careers professionals",
isco08 == 2424 ~ "Training and staff development professionals",
isco08 == 2430 ~ "Sales, marketing and public relations professionals",
isco08 == 2431 ~ "Advertising and marketing professionals",
isco08 == 2432 ~ "Public relations professionals",
isco08 == 2433 ~ "Technical and medical sales professionals [excluding ICT]",
isco08 == 2434 ~ "ICT sales professionals",
isco08 == 2500 ~ "ICT professionals",
isco08 == 2510 ~ "Software and applications developers and analysts",
isco08 == 2511 ~ "Systems analysts",
isco08 == 2512 ~ "Software developers",
isco08 == 2513 ~ "Web and multimedia developers",
isco08 == 2514 ~ "Applications programmers",
isco08 == 2519 ~ "Software and applications developers and analysts nec",
isco08 == 2520 ~ "Database and network professionals",
isco08 == 2521 ~ "Database designers and administrators",
isco08 == 2522 ~ "Systems administrators",
isco08 == 2523 ~ "Computer network professionals",
isco08 == 2529 ~ "Database and network professionals nec",
isco08 == 2600 ~ "Legal, social and cultural professionals",
isco08 == 2610 ~ "Legal professionals",
isco08 == 2611 ~ "Lawyers",
isco08 == 2612 ~ "Judges",
isco08 == 2619 ~ "Legal professionals nec",
isco08 == 2620 ~ "Librarians, archivists and curators",
isco08 == 2621 ~ "Archivists and curators",
isco08 == 2622 ~ "Librarians and related information professionals",
isco08 == 2630 ~ "Social and religious professionals",
isco08 == 2631 ~ "Economists",
isco08 == 2632 ~ "Sociologists, anthropologists and related professionals",
isco08 == 2633 ~ "Philosophers, historians and political scientists",
isco08 == 2634 ~ "Psychologists",
isco08 == 2635 ~ "Social work and counselling professionals",
isco08 == 2636 ~ "Religious professionals",
isco08 == 2640 ~ "Authors, journalists and linguists",
isco08 == 2641 ~ "Authors and related writers",
isco08 == 2642 ~ "Journalists",
isco08 == 2643 ~ "Translators, interpreters and other linguists",
isco08 == 2650 ~ "Creative and performing artists",
isco08 == 2651 ~ "Visual artists",
isco08 == 2652 ~ "Musicians, singers and composers",
isco08 == 2653 ~ "Dancers and choreographers",
isco08 == 2654 ~ "Film, stage and related directors and producers",
isco08 == 2655 ~ "Actors",
isco08 == 2656 ~ "Announcers on radio, television and other media",
isco08 == 2659 ~ "Creative and performing artists nec",
isco08 == 3000 ~ "Technicians and associate professionals",
isco08 == 3100 ~ "Science and engineering associate professionals",
isco08 == 3110 ~ "Physical and engineering science technicians",
isco08 == 3111 ~ "Chemical and physical science technicians",
isco08 == 3112 ~ "Civil engineering technicians",
isco08 == 3113 ~ "Electrical engineering technicians",
isco08 == 3114 ~ "Electronics engineering technicians",
isco08 == 3115 ~ "Mechanical engineering technicians",
isco08 == 3116 ~ "Chemical engineering technicians",
isco08 == 3117 ~ "Mining and metallurgical technicians",
isco08 == 3118 ~ "Draughtspersons",
isco08 == 3119 ~ "Physical and engineering science technicians nec",
isco08 == 3120 ~ "Mining, manufacturing and construction supervisors",
isco08 == 3121 ~ "Mining supervisors",
isco08 == 3122 ~ "Manufacturing supervisors",
isco08 == 3123 ~ "Construction supervisors",
isco08 == 3130 ~ "Process control technicians",
isco08 == 3131 ~ "Power production plant operators",
isco08 == 3132 ~ "Incinerator and water treatment plant operators",
isco08 == 3133 ~ "Chemical processing plant controllers",
isco08 == 3134 ~ "Petroleum and natural gas refining plant operators",
isco08 == 3135 ~ "Metal production process controllers",
isco08 == 3139 ~ "Process control technicians nec",
isco08 == 3140 ~ "Life science technicians and related associate professionals",
isco08 == 3141 ~ "Life science technicians [excluding medical]",
isco08 == 3142 ~ "Agricultural technicians",
isco08 == 3143 ~ "Forestry technicians",
isco08 == 3150 ~ "Ship and aircraft controllers and technicians",
isco08 == 3151 ~ "Ships engineers",
isco08 == 3152 ~ "Ships deck officers and pilots",
isco08 == 3153 ~ "Aircraft pilots and related associate professionals",
isco08 == 3154 ~ "Air traffic controllers",
isco08 == 3155 ~ "Air traffic safety electronics technicians",
isco08 == 3200 ~ "Health associate professionals",
isco08 == 3210 ~ "Medical and pharmaceutical technicians",
isco08 == 3211 ~ "Medical imaging and therapeutic equipment technicians",
isco08 == 3212 ~ "Medical and pathology laboratory technicians",
isco08 == 3213 ~ "Pharmaceutical technicians and assistants",
isco08 == 3214 ~ "Medical and dental prosthetic technicians",
isco08 == 3220 ~ "Nursing and midwifery associate professionals",
isco08 == 3221 ~ "Nursing associate professionals",
isco08 == 3222 ~ "Midwifery associate professionals",
isco08 == 3230 ~ "Traditional-complementary medicine assoc professionals",
isco08 == 3240 ~ "Veterinary technicians and assistants",
isco08 == 3250 ~ "Other health associate professionals",
isco08 == 3251 ~ "Dental assistants and therapists",
isco08 == 3252 ~ "Medical records and health information technicians",
isco08 == 3253 ~ "Community health workers",
isco08 == 3254 ~ "Dispensing opticians",
isco08 == 3255 ~ "Physiotherapy technicians and assistants",
isco08 == 3256 ~ "Medical assistants",
isco08 == 3257 ~ "Environmental-occupational health inspectors etc",
isco08 == 3258 ~ "Ambulance workers",
isco08 == 3259 ~ "Health associate professionals nec",
isco08 == 3300 ~ "Business and administration associate professionals",
isco08 == 3310 ~ "Financial and mathematical associate professionals",
isco08 == 3311 ~ "Securities and finance dealers and brokers",
isco08 == 3312 ~ "Credit and loans officers",
isco08 == 3313 ~ "Accounting associate professionals",
isco08 == 3314 ~ "Statistical, mathematical ar associate professionals",
isco08 == 3315 ~ "Valuers and loss assessors",
isco08 == 3320 ~ "Sales and purchasing agents and brokers",
isco08 == 3321 ~ "Insurance representatives",
isco08 == 3322 ~ "Commercial sales representatives",
isco08 == 3323 ~ "Buyers",
isco08 == 3324 ~ "Trade brokers",
isco08 == 3330 ~ "Business services agents",
isco08 == 3331 ~ "Clearing and forwarding agents",
isco08 == 3332 ~ "Conference and event planners",
isco08 == 3333 ~ "Employment agents and contractors",
isco08 == 3334 ~ "Real estate agents and property managers",
isco08 == 3339 ~ "Business services agents nec",
isco08 == 3340 ~ "Administrative and specialized secretaries",
isco08 == 3341 ~ "Office supervisors",
isco08 == 3342 ~ "Legal secretaries",
isco08 == 3343 ~ "Administrative and executive secretaries",
isco08 == 3344 ~ "Medical secretaries",
isco08 == 3350 ~ "Regulatory government associate professionals",
isco08 == 3351 ~ "Customs and border inspectors",
isco08 == 3352 ~ "Government tax and excise officials",
isco08 == 3353 ~ "Government social benefits officials",
isco08 == 3354 ~ "Government licensing officials",
isco08 == 3355 ~ "Police inspectors and detectives",
isco08 == 3359 ~ "Regulatory government associate professionals nec",
isco08 == 3400 ~ "Legal, social, cultural and related associate professionals",
isco08 == 3410 ~ "Legal, social and religious associate professionals",
isco08 == 3411 ~ "Legal and related associate professionals",
isco08 == 3412 ~ "Social work associate professionals",
isco08 == 3413 ~ "Religious associate professionals",
isco08 == 3420 ~ "Sports and fitness workers",
isco08 == 3421 ~ "Athletes and sports players",
isco08 == 3422 ~ "Sports coaches, instructors and officials",
isco08 == 3423 ~ "Fitness and recreation instructors and program leaders",
isco08 == 3430 ~ "Artistic, cultural and culinary associate professionals",
isco08 == 3431 ~ "Photographers",
isco08 == 3432 ~ "Interior designers and decorators",
isco08 == 3433 ~ "Gallery, museum and library technicians",
isco08 == 3434 ~ "Chefs",
isco08 == 3435 ~ "Other artistic and cultural associate professionals",
isco08 == 3500 ~ "Information and communications technicians",
isco08 == 3510 ~ "ICT operations and user support technicians",
isco08 == 3511 ~ "ICT operations technicians",
isco08 == 3512 ~ "ICT user support technicians",
isco08 == 3513 ~ "Computer network and systems technicians",
isco08 == 3514 ~ "Web technicians",
isco08 == 3520 ~ "Telecommunications and broadcasting technicians",
isco08 == 3521 ~ "Broadcasting and audio-visual technicians",
isco08 == 3522 ~ "Telecommunications engineering technicians",
isco08 == 4000 ~ "Clerical support workers",
isco08 == 4100 ~ "General and keyboard clerks",
isco08 == 4110 ~ "General office clerks",
isco08 == 4120 ~ "Secretaries [general]",
isco08 == 4130 ~ "Keyboard operators",
isco08 == 4131 ~ "Typists and word processing operators",
isco08 == 4132 ~ "Data entry clerks",
isco08 == 4200 ~ "Customer services clerks",
isco08 == 4210 ~ "Tellers, money collectors and related clerks",
isco08 == 4211 ~ "Bank tellers and related clerks",
isco08 == 4212 ~ "Bookmakers, croupiers and related gaming workers",
isco08 == 4213 ~ "Pawnbrokers and money-lenders",
isco08 == 4214 ~ "Debt-collectors arw",
isco08 == 4220 ~ "Client information workers",
isco08 == 4221 ~ "Travel consultants and clerks",
isco08 == 4222 ~ "Contact centre information clerks",
isco08 == 4223 ~ "Telephone switchboard operators",
isco08 == 4224 ~ "Hotel receptionists",
isco08 == 4225 ~ "Enquiry clerks",
isco08 == 4226 ~ "Receptionists [general]",
isco08 == 4227 ~ "Survey and market research interviewers",
isco08 == 4229 ~ "Client information workers nec",
isco08 == 4300 ~ "Numerical and material recording clerks",
isco08 == 4310 ~ "Numerical clerks",
isco08 == 4311 ~ "Accounting and bookkeeping clerks",
isco08 == 4312 ~ "Statistical, finance and insurance clerks",
isco08 == 4313 ~ "Payroll clerks",
isco08 == 4320 ~ "Material-recording and transport clerks",
isco08 == 4321 ~ "Stock clerks",
isco08 == 4322 ~ "Production clerks",
isco08 == 4323 ~ "Transport clerks",
isco08 == 4400 ~ "Other clerical support workers",
isco08 == 4410 ~ "Other clerical support workers",
isco08 == 4411 ~ "Library clerks",
isco08 == 4412 ~ "Mail carriers and sorting clerks",
isco08 == 4413 ~ "Coding, proof-reading and related clerks",
isco08 == 4414 ~ "Scribes arw",
isco08 == 4415 ~ "Filing and copying clerks",
isco08 == 4416 ~ "Personnel clerks",
isco08 == 4419 ~ "Clerical support workers nec",
isco08 == 5000 ~ "Service and sales workers",
isco08 == 5100 ~ "Personal service workers",
isco08 == 5110 ~ "Travel attendants, conductors and guides",
isco08 == 5111 ~ "Travel attendants and travel stewards",
isco08 == 5112 ~ "Transport conductors",
isco08 == 5113 ~ "Travel guides",
isco08 == 5120 ~ "Cooks",
isco08 == 5130 ~ "Waiters and bartenders",
isco08 == 5131 ~ "Waiters",
isco08 == 5132 ~ "Bartenders",
isco08 == 5140 ~ "Hairdressers, beauticians arw",
isco08 == 5141 ~ "Hairdressers",
isco08 == 5142 ~ "Beauticians arw",
isco08 == 5150 ~ "Building and housekeeping supervisors",
isco08 == 5151 ~ "Cleaning and housekeeping supervisors in offices, hotels etc",
isco08 == 5152 ~ "Domestic housekeepers",
isco08 == 5153 ~ "Building caretakers",
isco08 == 5160 ~ "Other personal services workers",
isco08 == 5161 ~ "Astrologers, fortune-tellers arw",
isco08 == 5162 ~ "Companions and valets",
isco08 == 5163 ~ "Undertakers and embalmers",
isco08 == 5164 ~ "Pet groomers and animal care workers",
isco08 == 5165 ~ "Driving instructors",
isco08 == 5169 ~ "Personal services workers nec",
isco08 == 5200 ~ "Sales workers",
isco08 == 5210 ~ "Street and market salespersons",
isco08 == 5211 ~ "Stall and market salespersons",
isco08 == 5212 ~ "Street food salespersons",
isco08 == 5220 ~ "Shop salespersons",
isco08 == 5221 ~ "Shop keepers",
isco08 == 5222 ~ "Shop supervisors",
isco08 == 5223 ~ "Shop sales assistants",
isco08 == 5230 ~ "Cashiers and ticket clerks",
isco08 == 5240 ~ "Other sales workers",
isco08 == 5241 ~ "Fashion and other models",
isco08 == 5242 ~ "Sales demonstrators",
isco08 == 5243 ~ "Door to door salespersons",
isco08 == 5244 ~ "Contact centre salespersons",
isco08 == 5245 ~ "Service station attendants",
isco08 == 5246 ~ "Food service counter attendants",
isco08 == 5249 ~ "Sales workers nec",
isco08 == 5300 ~ "Personal care workers",
isco08 == 5310 ~ "Child care workers and teachers aides",
isco08 == 5311 ~ "Child care workers",
isco08 == 5312 ~ "Teachers aides",
isco08 == 5320 ~ "Personal care workers in health services",
isco08 == 5321 ~ "Health care assistants",
isco08 == 5322 ~ "Home-based personal care workers",
isco08 == 5329 ~ "Personal care workers in health services nec",
isco08 == 5400 ~ "Protective services workers",
isco08 == 5410 ~ "Protective services workers",
isco08 == 5411 ~ "Fire-fighters",
isco08 == 5412 ~ "Police officers",
isco08 == 5413 ~ "Prison guards",
isco08 == 5414 ~ "Security guards",
isco08 == 5419 ~ "Protective services workers nec",
isco08 == 6000 ~ "Skilled agricultural, forestry and fishery workers",
isco08 == 6100 ~ "Market-oriented skilled agricultural workers",
isco08 == 6110 ~ "Market gardeners and crop growers",
isco08 == 6111 ~ "Field crop and vegetable growers",
isco08 == 6112 ~ "Tree and shrub crop growers",
isco08 == 6113 ~ "Gardeners, horticultural and nursery growers",
isco08 == 6114 ~ "Mixed crop growers",
isco08 == 6120 ~ "Animal producers",
isco08 == 6121 ~ "Livestock and dairy producers",
isco08 == 6122 ~ "Poultry producers",
isco08 == 6123 ~ "Apiarists and sericulturists",
isco08 == 6129 ~ "Animal producers nec",
isco08 == 6130 ~ "Mixed crop and animal producers",
isco08 == 6200 ~ "Market-oriented skilled forestry, fishery, hunting wrkrs",
isco08 == 6210 ~ "Forestry arw",
isco08 == 6220 ~ "Fishery workers, hunters and trappers",
isco08 == 6221 ~ "Aquaculture workers",
isco08 == 6222 ~ "Inland and coastal waters fishery workers",
isco08 == 6223 ~ "Deep-sea fishery workers",
isco08 == 6224 ~ "Hunters and trappers",
isco08 == 6300 ~ "Subsistence farmers, fishers, hunters and gatherers",
isco08 == 6310 ~ "Subsistence crop farmers",
isco08 == 6320 ~ "Subsistence livestock farmers",
isco08 == 6330 ~ "Subsistence mixed crop and livestock farmers",
isco08 == 6340 ~ "Subsistence fishers, hunters, trappers and gatherers",
isco08 == 7000 ~ "Craft ar trades wrkrs",
isco08 == 7100 ~ "Building ar trades wrkrs, excluding electricians",
isco08 == 7110 ~ "Building frame ar trades wrkrs",
isco08 == 7111 ~ "House builders",
isco08 == 7112 ~ "Bricklayers arw",
isco08 == 7113 ~ "Stonemasons, stone cutters, splitters and carvers",
isco08 == 7114 ~ "Concrete placers, concrete finishers arw",
isco08 == 7115 ~ "Carpenters and joiners",
isco08 == 7119 ~ "Building frame ar trades wrkrs nec",
isco08 == 7120 ~ "Building finishers ar trades wrkrs",
isco08 == 7121 ~ "Roofers",
isco08 == 7122 ~ "Floor layers and tile setters",
isco08 == 7123 ~ "Plasterers",
isco08 == 7124 ~ "Insulation workers",
isco08 == 7125 ~ "Glaziers",
isco08 == 7126 ~ "Plumbers and pipe fitters",
isco08 == 7127 ~ "Air conditioning and refrigeration mechanics",
isco08 == 7130 ~ "Painters, building structure cleaners ar trades wrkrs",
isco08 == 7131 ~ "Painters arw",
isco08 == 7132 ~ "Spray painters and varnishers",
isco08 == 7133 ~ "Building structure cleaners",
isco08 == 7200 ~ "Metal, machinery ar trades wrkrs",
isco08 == 7210 ~ "Sheet-structural metal wekrs, moulders and welders, arw",
isco08 == 7211 ~ "Metal moulders and coremakers",
isco08 == 7212 ~ "Welders and flamecutters",
isco08 == 7213 ~ "Sheet-metal workers",
isco08 == 7214 ~ "Structural-metal preparers and erectors",
isco08 == 7215 ~ "Riggers and cable splicers",
isco08 == 7220 ~ "Blacksmiths, toolmakers ar trades wrkrs",
isco08 == 7221 ~ "Blacksmiths, hammersmiths and forging press workers",
isco08 == 7222 ~ "Toolmakers arw",
isco08 == 7223 ~ "Metal working machine tool setters and operators",
isco08 == 7224 ~ "Metal polishers, wheel grinders and tool sharpeners",
isco08 == 7230 ~ "Machinery mechanics and repairers",
isco08 == 7231 ~ "Motor vehicle mechanics and repairers",
isco08 == 7232 ~ "Aircraft engine mechanics and repairers",
isco08 == 7233 ~ "Agricultural-industrial machinery mechanics & repairers",
isco08 == 7234 ~ "Bicycle and related repairers",
isco08 == 7300 ~ "Handicraft and printing workers",
isco08 == 7310 ~ "Handicraft workers",
isco08 == 7311 ~ "Precision-instrument makers and repairers",
isco08 == 7312 ~ "Musical instrument makers and tuners",
isco08 == 7313 ~ "Jewellery and precious-metal workers",
isco08 == 7314 ~ "Potters arw",
isco08 == 7315 ~ "Glass makers, cutters, grinders and finishers",
isco08 == 7316 ~ "Sign writers, decorative painters, engravers and etchers",
isco08 == 7317 ~ "Handicraft workers in wood, basketry and related materials",
isco08 == 7318 ~ "Handicraft workers in textile, leather and related materials",
isco08 == 7319 ~ "Handicraft workers nec",
isco08 == 7320 ~ "Printing trades workers",
isco08 == 7321 ~ "Pre-press technicians",
isco08 == 7322 ~ "Printers",
isco08 == 7323 ~ "Print finishing and binding workers",
isco08 == 7400 ~ "Electrical and electronic trades workers",
isco08 == 7410 ~ "Electrical equipment installers and repairers",
isco08 == 7411 ~ "Building and related electricians",
isco08 == 7412 ~ "Electrical mechanics and fitters",
isco08 == 7413 ~ "Electrical line installers and repairers",
isco08 == 7420 ~ "Electronics and telecommunications installers and repairers",
isco08 == 7421 ~ "Electronics mechanics and servicers",
isco08 == 7422 ~ "ICT installers and servicers",
isco08 == 7500 ~ "Food processing, wood working, garment ar craft-trades wrks",
isco08 == 7510 ~ "Food processing ar trades wrkrs",
isco08 == 7511 ~ "Butchers, fishmongers and related food preparers",
isco08 == 7512 ~ "Bakers, pastry-cooks and confectionery makers",
isco08 == 7513 ~ "Dairy-products makers",
isco08 == 7514 ~ "Fruit, vegetable and related preservers",
isco08 == 7515 ~ "Food and beverage tasters and graders",
isco08 == 7516 ~ "Tobacco preparers and tobacco products makers",
isco08 == 7520 ~ "Wood treaters, cabinet-makers ar trades wrkrs",
isco08 == 7521 ~ "Wood treaters",
isco08 == 7522 ~ "Cabinet-makers arw",
isco08 == 7523 ~ "Woodworking-machine tool setters and operators",
isco08 == 7530 ~ "Garment ar trades wrkrs",
isco08 == 7531 ~ "Tailors, dressmakers, furriers and hatters",
isco08 == 7532 ~ "Garment and related pattern-makers and cutters",
isco08 == 7533 ~ "Sewing, embroidery arw",
isco08 == 7534 ~ "Upholsterers arw",
isco08 == 7535 ~ "Pelt dressers, tanners and fellmongers",
isco08 == 7536 ~ "Shoemakers arw",
isco08 == 7540 ~ "Other craft arw",
isco08 == 7541 ~ "Underwater divers",
isco08 == 7542 ~ "Shotfirers and blasters",
isco08 == 7543 ~ "Product graders and testers [excluding foods and beverages]",
isco08 == 7544 ~ "Fumigators and other pest and weed controllers",
isco08 == 7549 ~ "Craft arw nec",
isco08 == 8000 ~ "Plant and machine operators, and assemblers",
isco08 == 8100 ~ "Stationary plant and machine operators",
isco08 == 8110 ~ "Mining and mineral processing plant operators",
isco08 == 8111 ~ "Miners and quarriers",
isco08 == 8112 ~ "Mineral and stone processing plant operators",
isco08 == 8113 ~ "Well drillers and borers arw",
isco08 == 8114 ~ "Cement, stone and other mineral products machine operators",
isco08 == 8120 ~ "Metal processing and finishing plant operators",
isco08 == 8121 ~ "Metal processing plant operators",
isco08 == 8122 ~ "Metal finishing, plating and coating machine operators",
isco08 == 8130 ~ "Chemical-photograph products plant and machine operators",
isco08 == 8131 ~ "Chemical products plant and machine operators",
isco08 == 8132 ~ "Photographic products machine operators",
isco08 == 8140 ~ "Rubber, plastic and paper products machine operators",
isco08 == 8141 ~ "Rubber products machine operators",
isco08 == 8142 ~ "Plastic products machine operators",
isco08 == 8143 ~ "Paper products machine operators",
isco08 == 8150 ~ "Textile, fur and leather products machine operators",
isco08 == 8151 ~ "Fibre preparing, spinning and winding machine operators",
isco08 == 8152 ~ "Weaving and knitting machine operators",
isco08 == 8153 ~ "Sewing machine operators",
isco08 == 8154 ~ "Bleaching, dyeing and fabric cleaning machine operators",
isco08 == 8155 ~ "Fur and leather preparing machine operators",
isco08 == 8156 ~ "Shoemaking and related machine operators",
isco08 == 8157 ~ "Laundry machine operators",
isco08 == 8159 ~ "Textile, fur and leather products machine operators nec",
isco08 == 8160 ~ "Food and related products machine operators",
isco08 == 8170 ~ "Wood processing and papermaking plant operators",
isco08 == 8171 ~ "Pulp and papermaking plant operators",
isco08 == 8172 ~ "Wood processing plant operators",
isco08 == 8180 ~ "Other stationary plant and machine operators",
isco08 == 8181 ~ "Glass and ceramics plant operators",
isco08 == 8182 ~ "Steam engine and boiler operators",
isco08 == 8183 ~ "Packing, bottling and labelling machine operators",
isco08 == 8189 ~ "Stationary plant and machine operators nec",
isco08 == 8200 ~ "Assemblers",
isco08 == 8210 ~ "Assemblers",
isco08 == 8211 ~ "Mechanical machinery assemblers",
isco08 == 8212 ~ "Electrical and electronic equipment assemblers",
isco08 == 8219 ~ "Assemblers nec",
isco08 == 8300 ~ "Drivers and mobile plant operators",
isco08 == 8310 ~ "Locomotive engine drivers arw",
isco08 == 8311 ~ "Locomotive engine drivers",
isco08 == 8312 ~ "Railway brake, signal and switch operators",
isco08 == 8320 ~ "Car, van and motorcycle drivers",
isco08 == 8321 ~ "Motorcycle drivers",
isco08 == 8322 ~ "Car, taxi and van drivers",
isco08 == 8330 ~ "Heavy truck and bus drivers",
isco08 == 8331 ~ "Bus and tram drivers",
isco08 == 8332 ~ "Heavy truck and lorry drivers",
isco08 == 8340 ~ "Mobile plant operators",
isco08 == 8341 ~ "Mobile farm and forestry plant operators",
isco08 == 8342 ~ "Earthmoving and related plant operators",
isco08 == 8343 ~ "Crane, hoist and related plant operators",
isco08 == 8344 ~ "Lifting truck operators",
isco08 == 8350 ~ "Ships deck crews arw",
isco08 == 9000 ~ "Elementary occupations",
isco08 == 9100 ~ "Cleaners and helpers",
isco08 == 9110 ~ "Domestic, hotel and office cleaners and helpers",
isco08 == 9111 ~ "Domestic cleaners and helpers",
isco08 == 9112 ~ "Cleaners and helpers in offices, hotels etc",
isco08 == 9120 ~ "Vehicle, window, laundry and other hand cleaning workers",
isco08 == 9121 ~ "Hand launderers and pressers",
isco08 == 9122 ~ "Vehicle cleaners",
isco08 == 9123 ~ "Window cleaners",
isco08 == 9129 ~ "Other cleaning workers",
isco08 == 9200 ~ "Agricultural, forestry and fishery labourers",
isco08 == 9210 ~ "Agricultural, forestry and fishery labourers",
isco08 == 9211 ~ "Crop farm labourers",
isco08 == 9212 ~ "Livestock farm labourers",
isco08 == 9213 ~ "Mixed crop and livestock farm labourers",
isco08 == 9214 ~ "Garden and horticultural labourers",
isco08 == 9215 ~ "Forestry labourers",
isco08 == 9216 ~ "Fishery and aquaculture labourers",
isco08 == 9300 ~ "Labourers mining, construction, manufactur & transport",
isco08 == 9310 ~ "Mining and construction labourers",
isco08 == 9311 ~ "Mining and quarrying labourers",
isco08 == 9312 ~ "Civil engineering labourers",
isco08 == 9313 ~ "Building construction labourers",
isco08 == 9320 ~ "Manufacturing labourers",
isco08 == 9321 ~ "Hand packers",
isco08 == 9329 ~ "Manufacturing labourers nec",
isco08 == 9330 ~ "Transport and storage labourers",
isco08 == 9331 ~ "Hand and pedal vehicle drivers",
isco08 == 9332 ~ "Drivers of animal-drawn vehicles and machinery",
isco08 == 9333 ~ "Freight handlers",
isco08 == 9334 ~ "Shelf fillers",
isco08 == 9400 ~ "Food preparation assistants",
isco08 == 9410 ~ "Food preparation assistants",
isco08 == 9411 ~ "Fast food preparers",
isco08 == 9412 ~ "Kitchen helpers",
isco08 == 9500 ~ "Street and related sales and service workers",
isco08 == 9510 ~ "Street and related service workers",
isco08 == 9520 ~ "Street vendors [excluding food]",
isco08 == 9600 ~ "Refuse workers and other elementary workers",
isco08 == 9610 ~ "Refuse workers",
isco08 == 9611 ~ "Garbage and recycling collectors",
isco08 == 9612 ~ "Refuse sorters",
isco08 == 9613 ~ "Sweepers and related labourers",
isco08 == 9620 ~ "Other elementary workers",
isco08 == 9621 ~ "Messengers, package deliverers and luggage porters",
isco08 == 9622 ~ "Odd job persons",
isco08 == 9623 ~ "Meter readers and vending-machine collectors",
isco08 == 9624 ~ "Water and firewood collectors",
isco08 == 9629 ~ "Elementary workers not elsewhere classified~ ",
))
if (display.nas) display.nas(isco, conv.from="isco08", conv.to='isco08.label')
return(isco$isco08.label)
}
## =====================================================
## Occupation schemes: ISCO, EGP, ESEC, ISEC
## =====================================================
## {{{ Info: general }}}
## Info:
## - http://www.harryganzeboom.nl/ISCO08/qa-isei-08.htm
## - connelly2016review
## - Ganzeboom, Harry B.G.; Treiman, Donald J. (2003). "Three Internationally Standardised Measures for Comparative Research on Occupational Status." Pp. 159-193 in Jürgen H.P. Hoffmeyer-Zlotnik & Christof Wolf (Eds.), Advances in Cross-National Comparison. A European Working Book for Demographic and Socio-Economic Variables. New York: Kluwer Academic Press. Pp. 159-193. (6.1Mb)
## - Ganzeboom, Harry B.G.; Treiman, Donald J. (1996). “Internationally Comparable Measures of Occupational Status for the 1988 International Standard Classification of Occupations”. Social Science Research (25), pp. 201-239. (3.9 Mb)
## - Ganzeboom, Harry B.G.; De Graaf, Paul; Treiman, Donald J.; (with De Leeuw, Jan) (1992). "A Standard International Socio-Economic Index of Occupational Status", Social Science Research (21-1), pp. 1-56. (3.5Mb)
## - Ganzeboom, Harry B.G., Luijkx, Ruud; Treiman, Donald J. (1989). "Intergenerational Class Mobility in Comparative Perspective", Research in Social Stratification and Mobility (8), pp. 3-79.
##
## Schemes are:
## EGP (Erikson, Goldthorpe and Portocarero, 1979)
## ESeC (European Socio-Economic Classification as proposed by Rose and Harrison, 2009)
## ISEC-08 (International Socio-Economic Classes 2008),
## it is a categorization of occupational information coded in the ISCO-08. It gives information on
## status-in-employment into a 13 category social class scheme than contains well-known social class
## schemes as EGP and ESEC as special cases. The ISEC categories are:
## SIOPS (Standard International Occupation Prestige Score)
## - a.k.a Treiman-scale
## ISEI-08 (International Socio-Economic Index of occupational status)
## - continuous hierarchical scale
## - constructed on a database of 198500 men and women with valid education,
## occupation and (personal) incomes derived from the combined 2002-2007 issues of the
## International Social Survey Programme [ISSP].
## - while the aim of the new ISEI was to produce socio-economic status scores for ISCO-08,
## it was in fact calculated on occupations classified in ISCO-88 and then converted to
## ISCO-08 occupations.
##
## Differences:
## - ISEI is empirically constructed, while EGP and ESEC are a-priori constructions
## that are at best validated on empirical data.
## It only uses occupational data (i.e. occupation as classified by ISCO), whereas EGP and ESEC
## heavily use status-in-employment (self-employment and supervision)
## indicators to construct socio-economic classes.
## - Despite the differences ISEI and EGP (and presumably ESEC) are empirically strongly correlated (0.90),
## much more strongly than ISEI and SIOPS. If optimally scaled using a single dimension,
## EGP scores are virtually identical to their ISEI means.
##
## }}}
## {{{ Info EGP 7 }}}
## EGP (Erikson, Goldthorpe and Portocarero, 1979)
## Goldthorpe (1987) created a scheme for British data, which was restricted to the roman numerals and
## contained SEVEN classes:
## 1 I Service class I
## 2 II Service class II
## 3 III Routine non-manual
## 4 IV Self-employed
## 5 V Manual supervisors/Lower grade technicians
## 6 VI Skilled workers
## 7 VII Unskilled workers/Farm labours
## }}}
## {{{ Info EGP 11 }}}
## The scheme was extended into ELEVEN classes (Erikson and Goldthorpe, 1992)
## 1 I Service class I
## 2 II Service class II
## 3 III.a Routine non-manual higher grade
## 4 III.b Routine non-manual lower grade
## 5 IV.a Self-employed with employees
## 6 IV.b Self-employed with no empoyees
## 7 IV.c Self-employed Farmers etc
## 8 V Manual supervisors/Lower grade technicians
## 9 VI Skilled workers
## 10 VII.a Unskilled workers
## 11 VII.b Farm labours
## }}}
## {{{ Info EGP 5 }}}
## Other versions are FIVE classes scheme
## 1 I-III White-collar workers
## 2 IV.a+IV.b Petty bourgeoisie
## 3 IV.c+VII.b Farm workers
## 4 V+VI Skilled workers
## 5 VII.a Non-skilled workers
## }}}
## {{{ Info EGP 3 }}}
## and THREE class scheme
## 1 I-II+IV.a-b Non-manual workers
## 2 IV.c+VII.b Farm workers
## 3 V+VI+VI.a Manual workers
## }}}
## {{{ Info ISEC-08 }}}
## I-a Higher level professionals 1
## I-b Higher level managers and entrepreneurs 2
## II-a Lower level professionals 3
## II-b Lower level managers 4
## III-a Clerical Routine Non-manual Workers 5
## III-b Sales and Service Routine Non-manual Workers 6
## IV-a Small Self-employed with employees 7
## IV-b Small Self-employed without employers 8
## IV-c Small Self-employed in agriculture 9
## V Manual Supervisors 10
## VI Skilled Manual Workers 11
## VII-a Semi- and Unskilled Manual Workers 12
## VII-b Agricultural Labourers 13
## }}}
## ---------------------------------------
## Converting ISCO into Occupation Schemes
## ---------------------------------------
## {{{ docs }}}
#' Recode occupation to EGP class scheme
#'
#' The function creates a factor with the EGP class scheme
#'
#'
#' @param isco88 numeric vector with the isco88 4 digit code.
#' @param n.classes either 11, 7, 5, or 3, indicating the number of EGP classes to use ()
#' @inheritParams isco88toESeC
#' @param collapse deprecated
#'
#' @details
#' The number of classes to use in the EGP scheme is based on
#' - Connelly, R., Gayle, V., & Lambert, P. S., (2016) A review of occupation-based social classifications for social survey research, Methodological Innovations, v.9, p.1-14.
#'
#' @export
## }}}
isco88toEGP <- function(isco88, n.employees=NULL, self.employed=NULL, collapse=FALSE, n.classes=11)
{
## Recode ISCO88 to EGP using Ganzebooms' code
egp = rep(NA, length(isco88))
## Code the simple version, based on 4 digit ISCO88 values
## CLASS 1
egp[isco88 %in% c(1000, 2000, 1100, 2100, 1110, 2110, 1120, 2111, 2112,
2113, 2114, 2120, 2121, 1200, 2122, 1210, 2130, 1220, 2131, 1222, 1223,
2140, 1224, 2141, 1225, 2142, 1226, 2143, 1227, 2144, 1228, 2145, 1229,
2146, 1230, 2147, 1231, 1232, 2149, 1233, 2200, 3143, 1234, 2210, 3144,
1235, 2211, 1236, 2212, 1237, 2213, 1239, 2220, 2221, 1250, 2222, 1251,
2223, 2224, 2229, 2310, 2350, 2351, 2352, 2400, 2411, 2420, 2421, 2422,
2429, 2440, 2441, 2442, 2443, 2445)] <- 1 ## CLASS 1
## CLASS 2
egp[isco88 %in% c(3000, 3100, 3110, 3111, 1130, 3112, 1140, 3113, 1141,
3114, 1142, 3115, 5121, 1143, 3116, 3117, 3118, 3119, 2132, 3120, 2139,
3121, 3122, 3123, 3130, 3131, 3132, 3133, 3139, 5150, 3140, 5151, 2148,
3141, 5152, 3142, 3145, 3150, 3151, 3152, 1240, 3200, 3210, 3211, 1252,
3212, 1300, 3213, 1310, 2230, 3220, 2300, 3221, 1312, 3222, 1313, 2320,
3223, 1314, 2321, 3224, 1315, 2322, 3225, 1316, 2323, 3226, 1317, 2330,
3227, 1318, 2331, 3228, 1319, 2332, 3229, 2340, 3240, 2359, 3241, 3242,
2410, 2412, 2419, 3400, 3410, 3411, 2430, 3412, 2431, 3413, 2432, 3414,
3415, 3416, 3417, 3419, 2444, 3420, 3421, 2446, 3422, 2450, 3423, 2451,
3429, 2452, 2453, 3431, 2454, 3432, 2455, 2460, 3434, 3440, 3441, 3442,
3443, 3444, 3449, 3450, 3451, 3470, 3471, 3472, 3473, 3474,
3475)] <- 2 ## CLASS 2
## EGP CLASS 3
egp[isco88 %in% c(4000, 4100, 4122, 9100, 4110, 9110, 4111, 9111, 4112, 9112,
4113, 9113, 4114, 4115, 4120, 4121, 3230, 3231, 3232, 3300, 3310, 3320, 3330,
3340, 3430, 3433, 3439, 3460, 3480)] <- 3
## EGP CLASS 4
egp[isco88 %in% c(5000, 5100, 5110, 5111, 5112, 5113, 5120, 4130, 5131,
4131, 4132, 5133, 4133, 4140, 4141, 4143, 4144, 4190, 4200, 4210, 4211,
4212, 4213, 4214, 4215, 4220, 4221, 5200, 4222, 5210, 4223, 5220, 5230)] <- 4
## CLASSES 5 and 5, see below
## CLASS 7
egp[isco88 %in% c(3452, 7510)] <- 7 ## CLASS 7
## CLASS 8
egp[isco88 %in% c(7000, 7120, 5122, 7124, 7129, 7130, 7132, 5140, 7133, 5141, 7134, 5143, 7136, 8150, 7137,
8151, 7140, 8152, 7141, 8153, 8154, 8155, 5161, 7200, 8159,
5162, 7210, 8160, 7211, 8161, 5164, 7212, 8162, 7213, 8163, 7214, 8170, 7215, 8171, 7216,
8172, 7220, 7221, 7222, 7223, 7224, 7230, 7231, 7232, 7233, 7240, 7241, 7242,
7243, 7244, 7245, 7300, 7310, 7311, 7312, 7313, 7323, 7324, 7340, 7341, 7342, 7343, 7344,
7345, 7346, 7400, 7410, 7411, 7412, 7413, 7414, 7415, 7416, 7420, 7422, 8311,
7423, 7430, 7433, 7434, 7435, 7436, 8332, 7437, 8333, 7440, 7441, 7442, 7500, 7520)] <- 8
## CLASS 9
egp[isco88 %in% c(8000, 9000, 7100, 8100, 7110, 8110, 7111, 8111, 7112, 8112, 7113, 8113, 8120, 9120, 7121,
8121, 9130, 7122, 8122, 9131, 5123, 7123, 8123, 9132, 5130,
8124, 9133, 8130, 9140, 5132, 8131, 9141, 7131, 8139, 9142, 5139, 8140, 9150, 8141, 9151,
8142, 9152, 4142, 5142, 7135, 8143, 9153, 9160, 5149, 9161, 9162, 9200, 7142,
5160, 7143, 5163, 9300, 9310, 5169, 9311, 9312, 9313, 9320, 8200, 9321, 8210, 9322, 8211,
9330, 8212, 9331, 8220, 9332, 8221, 9333, 8222, 8223, 8224, 7234, 8229, 8230,
8231, 8232, 8240, 8250, 8251, 8252, 8253, 8260, 8261, 8262, 7320, 8263, 7321, 8264, 7322,
8265, 8266, 8269, 7330, 8270, 7331, 8271, 7332, 8272, 8273, 8274, 8275, 8276,
8277, 8278, 8279, 8280, 8281, 8282, 8283, 8284, 8285, 8286, 8290, 8300, 7421, 8310, 8312,
7424, 8320, 8321, 7431, 8322, 7432, 8323, 8324, 8330, 8334, 8340, 8400,
7530)] <- 9
## CLASS 10
egp[isco88 %in% c(6000, 6100, 6110, 6111, 6112, 6113, 6114, 6120, 6121, 6122, 6123, 6124, 6129, 6130, 6134,
6140, 6141, 6142, 6150, 6151, 9210, 6152, 9211, 6153, 9212,
6154, 9213, 8331)] <- 10
## CLASS 11
egp[isco88 %in% c(1221, 6131, 6132, 6133, 6200, 6210, 1311)] <- 11
## CLASSES 5 and 6
if (!is.null(self.employed) & !is.null(n.employees)) {
n.employees[is.na(n.employees)] = 0
self.employed[is.na(self.employed)] = 0
## CLASS 5
egp[self.employed == 1 & n.employees > 0 ] = 5
## CLASS 6
egp[self.employed == 1 & n.employees == 0 ] = 6
}
egp = egp_get_n_classes(egp, n.classes)
return(egp)
}
egp_get_n_classes <- function(egp, n.classes)
{
if (n.classes==11) {
egp = factor(egp, levels=1:11, labels=c("I Service class I",
"II Service class II",
"III.a Routine non-manual, higher grade",
"III.b Routine non-manual, lower grade",
"IV.a Self-employed with employees",
"IV.b Self-employed with no empoyees",
"IV.c Self-employed Farmers etc",
"V Manual supervisors/Lower grade technicians",
"VI Skilled workers",
"VII.a Unskilled workers",
"VII.b Farm labours"))
}
if (n.classes==7) {
egp[egp %in% c(1)] = 1
egp[egp %in% c(2)] = 2
egp[egp %in% c(3:4)] = 3
egp[egp %in% c(5:7)] = 4
egp[egp %in% c(8)] = 5
egp[egp %in% c(9)] = 6
egp[egp %in% c(10:11)] = 7
egp = factor(egp, levels=1:7, labels=c("I Service class I",
"II Service class II",
"III Routine non-manual",
## "III.a Routine non-manual, higher grade",
## "III.b Routine non-manual, lower grade",
"IV Self-employed",
## "IV.a Self-employed with employees",
## "IV.b Self-employed with no empoyees",
## "IV.c Self-employed Farmers etc",
"V Manual supervisors/Lower grade technicians",
"VI Skilled workers",
"VII Unskilled workers/Farm labours"
## "VII.a Unskilled workers",
## "VII.b Farm labours"
))
}
if (n.classes==5) {
egp[egp %in% c(1:4)] = 1
egp[egp %in% c(5:6)] = 2
egp[egp %in% c(7, 11)] = 3
egp[egp %in% c(8:9)] = 4
egp[egp %in% c(10)] = 5
egp = factor(egp, levels=1:5, labels=c(
"I-III White-collar workers",
"IV.a+IV.b Petty bourgeoisie",
"IV.c+VII.b Farm workers",
"V+VI Skilled workers",
"VII.a Non-skilled workers"
))
}
if (n.classes==3) {
egp[egp %in% c(1:6)] = 1
egp[egp %in% c(7, 11)] = 2
egp[egp %in% c(8:10)] = 3
egp = factor(egp, levels=1:3, labels=c(
"I-II+IV.a-b Non-manual workers",
"IV.c+VII.b Farm workers",
"V+VI+VI.a Manual workers"
))
}
return(egp)
}
## {{{ docs }}}
#' Recode ISCO-08 into ISEI-08
#'
#' The function recodes ISCO-08 into ISEI-08.
#'
#' @param isco08 a numeric vector with the ISCO-08 codes
#' @param display.nas boolean. If true (defaul is \code{FALSE}), displays table with unmatched ISCO-08 codes.
#'
#' @return
#' It returns a vector with ISEI-08 codes.
#'
#' @export
## }}}
isco08toISEI08 <- function(isco08, display.nas=FALSE)
{
isei = tibble::tibble(isco08=isco08)
isei = isei %>%
dplyr::mutate(isei08 = dplyr::case_when(
isco08 == 0 ~ 51.25,
isco08 == 100 ~ 60.92,
isco08 == 110 ~ 60.92,
isco08 == 200 ~ 51.63,
isco08 == 210 ~ 51.63,
isco08 == 300 ~ 29.18,
isco08 == 310 ~ 29.18,
isco08 == 1000 ~ 65.12,
isco08 == 1100 ~ 71.72,
isco08 == 1110 ~ 74.50,
isco08 == 1111 ~ 68.77,
isco08 == 1112 ~ 78.76,
isco08 == 1113 ~ 64.98,
isco08 == 1114 ~ 71.29,
isco08 == 1120 ~ 70.34,
isco08 == 1200 ~ 72.94,
isco08 == 1210 ~ 72.24,
isco08 == 1211 ~ 73.38,
isco08 == 1212 ~ 74.79,
isco08 == 1213 ~ 70.57,
isco08 == 1219 ~ 68.54,
isco08 == 1220 ~ 73.71,
isco08 == 1221 ~ 71.39,
isco08 == 1222 ~ 75.25,
isco08 == 1223 ~ 81.92,
isco08 == 1300 ~ 65.25,
isco08 == 1310 ~ 49.48,
isco08 == 1311 ~ 49.48,
isco08 == 1312 ~ 49.48,
isco08 == 1320 ~ 61.57,
isco08 == 1321 ~ 65.42,
isco08 == 1322 ~ 61.57,
isco08 == 1323 ~ 59.89,
isco08 == 1324 ~ 58.07,
isco08 == 1330 ~ 78.86,
isco08 == 1340 ~ 65.01,
isco08 == 1341 ~ 65.01,
isco08 == 1342 ~ 65.01,
isco08 == 1343 ~ 65.01,
isco08 == 1344 ~ 65.01,
isco08 == 1345 ~ 65.01,
isco08 == 1346 ~ 65.01,
isco08 == 1349 ~ 65.01,
isco08 == 1400 ~ 51.01,
isco08 == 1410 ~ 43.85,
isco08 == 1411 ~ 43.85,
isco08 == 1412 ~ 43.85,
isco08 == 1420 ~ 51.56,
isco08 == 1430 ~ 51.01,
isco08 == 1431 ~ 51.01,
isco08 == 1439 ~ 51.01,
isco08 == 2000 ~ 76.24,
isco08 == 2100 ~ 79.49,
isco08 == 2110 ~ 84.16,
isco08 == 2111 ~ 84.61,
isco08 == 2112 ~ 84.61,
isco08 == 2113 ~ 83.50,
isco08 == 2114 ~ 86.81,
isco08 == 2120 ~ 81.78,
isco08 == 2130 ~ 80.46,
isco08 == 2131 ~ 80.46,
isco08 == 2132 ~ 78.17,
isco08 == 2133 ~ 80.46,
isco08 == 2140 ~ 79.05,
isco08 == 2141 ~ 79.05,
isco08 == 2142 ~ 81.40,
isco08 == 2143 ~ 79.05,
isco08 == 2144 ~ 77.10,
isco08 == 2145 ~ 82.31,
isco08 == 2146 ~ 79.31,
isco08 == 2149 ~ 78.69,
isco08 == 2150 ~ 80.75,
isco08 == 2151 ~ 80.78,
isco08 == 2152 ~ 80.75,
isco08 == 2153 ~ 80.75,
isco08 == 2160 ~ 79.74,
isco08 == 2161 ~ 79.74,
isco08 == 2162 ~ 79.74,
isco08 == 2163 ~ 79.74,
isco08 == 2164 ~ 79.74,
isco08 == 2165 ~ 72.96,
isco08 == 2166 ~ 79.74,
isco08 == 2200 ~ 76.98,
isco08 == 2210 ~ 88.70,
isco08 == 2211 ~ 88.70,
isco08 == 2212 ~ 81.92,
isco08 == 2220 ~ 68.70,
isco08 == 2221 ~ 68.70,
isco08 == 2222 ~ 68.70,
isco08 == 2230 ~ 76.98,
isco08 == 2240 ~ 76.98,
isco08 == 2250 ~ 84.14,
isco08 == 2260 ~ 75.43,
isco08 == 2261 ~ 88.31,
isco08 == 2262 ~ 81.13,
isco08 == 2263 ~ 75.43,
isco08 == 2264 ~ 67.94,
isco08 == 2265 ~ 65.23,
isco08 == 2266 ~ 75.43,
isco08 == 2267 ~ 75.43,
isco08 == 2269 ~ 75.43,
isco08 == 2300 ~ 75.54,
isco08 == 2310 ~ 85.41,
isco08 == 2320 ~ 72.30,
isco08 == 2330 ~ 82.41,
isco08 == 2340 ~ 71.45,
isco08 == 2341 ~ 76.49,
isco08 == 2342 ~ 58.77,
isco08 == 2350 ~ 68.88,
isco08 == 2351 ~ 77.88,
isco08 == 2352 ~ 70.89,
isco08 == 2353 ~ 68.88,
isco08 == 2354 ~ 68.88,
isco08 == 2355 ~ 68.88,
isco08 == 2356 ~ 68.88,
isco08 == 2359 ~ 66.42,
isco08 == 2400 ~ 73.91,
isco08 == 2410 ~ 75.50,
isco08 == 2411 ~ 76.65,
isco08 == 2412 ~ 75.50,
isco08 == 2413 ~ 75.50,
isco08 == 2420 ~ 70.09,
isco08 == 2421 ~ 70.09,
isco08 == 2422 ~ 72.94,
isco08 == 2423 ~ 68.55,
isco08 == 2424 ~ 70.09,
isco08 == 2430 ~ 73.91,
isco08 == 2431 ~ 73.91,
isco08 == 2432 ~ 73.91,
isco08 == 2433 ~ 73.91,
isco08 == 2434 ~ 73.91,
isco08 == 2500 ~ 75.13,
isco08 == 2510 ~ 74.66,
isco08 == 2511 ~ 74.66,
isco08 == 2512 ~ 74.66,
isco08 == 2513 ~ 74.66,
isco08 == 2514 ~ 74.66,
isco08 == 2519 ~ 74.70,
isco08 == 2520 ~ 75.13,
isco08 == 2521 ~ 75.13,
isco08 == 2522 ~ 75.13,
isco08 == 2523 ~ 75.13,
isco08 == 2529 ~ 75.13,
isco08 == 2600 ~ 75.67,
isco08 == 2610 ~ 85.13,
isco08 == 2611 ~ 86.72,
isco08 == 2612 ~ 88.96,
isco08 == 2619 ~ 81.05,
isco08 == 2620 ~ 71.55,
isco08 == 2621 ~ 77.19,
isco08 == 2622 ~ 70.40,
isco08 == 2630 ~ 77.24,
isco08 == 2631 ~ 80.92,
isco08 == 2632 ~ 83.09,
isco08 == 2633 ~ 83.81,
isco08 == 2634 ~ 85.85,
isco08 == 2635 ~ 70.50,
isco08 == 2636 ~ 71.55,
isco08 == 2640 ~ 72.83,
isco08 == 2641 ~ 72.83,
isco08 == 2642 ~ 72.83,
isco08 == 2643 ~ 80.92,
isco08 == 2650 ~ 63.31,
isco08 == 2651 ~ 61.82,
isco08 == 2652 ~ 64.44,
isco08 == 2653 ~ 61.82,
isco08 == 2654 ~ 63.31,
isco08 == 2655 ~ 70.10,
isco08 == 2656 ~ 54.00,
isco08 == 2659 ~ 37.59,
isco08 == 3000 ~ 56.03,
isco08 == 3100 ~ 52.40,
isco08 == 3110 ~ 53.60,
isco08 == 3111 ~ 55.03,
isco08 == 3112 ~ 59.35,
isco08 == 3113 ~ 51.92,
isco08 == 3114 ~ 56.38,
isco08 == 3115 ~ 53.77,
isco08 == 3116 ~ 59.45,
isco08 == 3117 ~ 62.79,
isco08 == 3118 ~ 50.73,
isco08 == 3119 ~ 51.35,
isco08 == 3120 ~ 38.18,
isco08 == 3121 ~ 37.83,
isco08 == 3122 ~ 40.54,
isco08 == 3123 ~ 37.83,
isco08 == 3130 ~ 33.66,
isco08 == 3131 ~ 46.73,
isco08 == 3132 ~ 37.22,
isco08 == 3133 ~ 33.66,
isco08 == 3134 ~ 33.66,
isco08 == 3135 ~ 33.66,
isco08 == 3139 ~ 31.46,
isco08 == 3140 ~ 54.86,
isco08 == 3141 ~ 54.86,
isco08 == 3142 ~ 58.05,
isco08 == 3143 ~ 54.86,
isco08 == 3150 ~ 63.29,
isco08 == 3151 ~ 56.41,
isco08 == 3152 ~ 52.70,
isco08 == 3153 ~ 73.71,
isco08 == 3154 ~ 69.24,
isco08 == 3155 ~ 67.04,
isco08 == 3200 ~ 55.40,
isco08 == 3210 ~ 54.92,
isco08 == 3211 ~ 57.04,
isco08 == 3212 ~ 57.37,
isco08 == 3213 ~ 48.66,
isco08 == 3214 ~ 54.92,
isco08 == 3220 ~ 56.98,
isco08 == 3221 ~ 56.00,
isco08 == 3222 ~ 51.93,
isco08 == 3230 ~ 51.57,
isco08 == 3240 ~ 24.79,
isco08 == 3250 ~ 53.15,
isco08 == 3251 ~ 47.83,
isco08 == 3252 ~ 53.15,
isco08 == 3253 ~ 53.15,
isco08 == 3254 ~ 59.85,
isco08 == 3255 ~ 53.15,
isco08 == 3256 ~ 44.92,
isco08 == 3257 ~ 57.25,
isco08 == 3258 ~ 53.15,
isco08 == 3259 ~ 61.91,
isco08 == 3300 ~ 57.64,
isco08 == 3310 ~ 57.13,
isco08 == 3311 ~ 72.27,
isco08 == 3312 ~ 59.76,
isco08 == 3313 ~ 55.25,
isco08 == 3314 ~ 69.76,
isco08 == 3315 ~ 57.68,
isco08 == 3320 ~ 57.97,
isco08 == 3321 ~ 60.29,
isco08 == 3322 ~ 57.03,
isco08 == 3323 ~ 56.35,
isco08 == 3324 ~ 61.18,
isco08 == 3330 ~ 56.64,
isco08 == 3331 ~ 54.62,
isco08 == 3332 ~ 56.64,
isco08 == 3333 ~ 60.44,
isco08 == 3334 ~ 62.39,
isco08 == 3339 ~ 59.89,
isco08 == 3340 ~ 57.99,
isco08 == 3341 ~ 62.13,
isco08 == 3342 ~ 57.99,
isco08 == 3343 ~ 54.55,
isco08 == 3344 ~ 57.99,
isco08 == 3350 ~ 61.60,
isco08 == 3351 ~ 65.64,
isco08 == 3352 ~ 67.11,
isco08 == 3353 ~ 54.27,
isco08 == 3354 ~ 59.18,
isco08 == 3355 ~ 63.03,
isco08 == 3359 ~ 64.40,
isco08 == 3400 ~ 52.57,
isco08 == 3410 ~ 54.35,
isco08 == 3411 ~ 57.00,
isco08 == 3412 ~ 52.72,
isco08 == 3413 ~ 54.54,
isco08 == 3420 ~ 50.90,
isco08 == 3421 ~ 50.90,
isco08 == 3422 ~ 50.90,
isco08 == 3423 ~ 50.90,
isco08 == 3430 ~ 50.15,
isco08 == 3431 ~ 50.15,
isco08 == 3432 ~ 57.64,
isco08 == 3433 ~ 50.15,
isco08 == 3434 ~ 50.15,
isco08 == 3435 ~ 50.15,
isco08 == 3500 ~ 60.93,
isco08 == 3510 ~ 62.45,
isco08 == 3511 ~ 61.07,
isco08 == 3512 ~ 62.45,
isco08 == 3513 ~ 62.45,
isco08 == 3514 ~ 62.45,
isco08 == 3520 ~ 56.50,
isco08 == 3521 ~ 56.57,
isco08 == 3522 ~ 56.50,
isco08 == 4000 ~ 43.51,
isco08 == 4100 ~ 43.33,
isco08 == 4110 ~ 43.33,
isco08 == 4120 ~ 44.94,
isco08 == 4130 ~ 44.87,
isco08 == 4131 ~ 48.27,
isco08 == 4132 ~ 40.56,
isco08 == 4200 ~ 41.22,
isco08 == 4210 ~ 43.06,
isco08 == 4211 ~ 48.10,
isco08 == 4212 ~ 48.82,
isco08 == 4213 ~ 50.05,
isco08 == 4214 ~ 50.05,
isco08 == 4220 ~ 39.02,
isco08 == 4221 ~ 49.30,
isco08 == 4222 ~ 39.02,
isco08 == 4223 ~ 38.58,
isco08 == 4224 ~ 39.02,
isco08 == 4225 ~ 39.02,
isco08 == 4226 ~ 39.02,
isco08 == 4227 ~ 39.02,
isco08 == 4229 ~ 39.02,
isco08 == 4300 ~ 44.08,
isco08 == 4310 ~ 50.57,
isco08 == 4311 ~ 50.37,
isco08 == 4312 ~ 57.38,
isco08 == 4313 ~ 50.57,
isco08 == 4320 ~ 36.10,
isco08 == 4321 ~ 32.50,
isco08 == 4322 ~ 41.63,
isco08 == 4323 ~ 41.27,
isco08 == 4400 ~ 42.30,
isco08 == 4410 ~ 42.30,
isco08 == 4411 ~ 42.30,
isco08 == 4412 ~ 27.52,
isco08 == 4413 ~ 51.77,
isco08 == 4414 ~ 54.67,
isco08 == 4415 ~ 42.30,
isco08 == 4416 ~ 42.30,
isco08 == 4419 ~ 44.72,
isco08 == 5000 ~ 29.32,
isco08 == 5100 ~ 27.57,
isco08 == 5110 ~ 45.46,
isco08 == 5111 ~ 46.76,
isco08 == 5112 ~ 38.44,
isco08 == 5113 ~ 47.42,
isco08 == 5120 ~ 24.53,
isco08 == 5130 ~ 25.04,
isco08 == 5131 ~ 25.04,
isco08 == 5132 ~ 25.04,
isco08 == 5140 ~ 31.08,
isco08 == 5141 ~ 31.08,
isco08 == 5142 ~ 31.08,
isco08 == 5150 ~ 25.46,
isco08 == 5151 ~ 25.20,
isco08 == 5152 ~ 32.20,
isco08 == 5153 ~ 21.82,
isco08 == 5160 ~ 30.59,
isco08 == 5161 ~ 32.75,
isco08 == 5162 ~ 24.07,
isco08 == 5163 ~ 34.25,
isco08 == 5164 ~ 30.59,
isco08 == 5165 ~ 30.59,
isco08 == 5169 ~ 32.75,
isco08 == 5200 ~ 29.73,
isco08 == 5210 ~ 26.64,
isco08 == 5211 ~ 28.84,
isco08 == 5212 ~ 23.53,
isco08 == 5220 ~ 29.47,
isco08 == 5221 ~ 35.34,
isco08 == 5222 ~ 44.14,
isco08 == 5223 ~ 28.48,
isco08 == 5230 ~ 30.90,
isco08 == 5240 ~ 39.04,
isco08 == 5241 ~ 39.73,
isco08 == 5242 ~ 39.04,
isco08 == 5243 ~ 39.04,
isco08 == 5244 ~ 38.88,
isco08 == 5245 ~ 39.04,
isco08 == 5246 ~ 39.04,
isco08 == 5249 ~ 39.04,
isco08 == 5300 ~ 25.09,
isco08 == 5310 ~ 24.98,
isco08 == 5311 ~ 24.98,
isco08 == 5312 ~ 24.98,
isco08 == 5320 ~ 26.64,
isco08 == 5321 ~ 26.64,
isco08 == 5322 ~ 21.64,
isco08 == 5329 ~ 26.64,
isco08 == 5400 ~ 36.86,
isco08 == 5410 ~ 36.86,
isco08 == 5411 ~ 46.38,
isco08 == 5412 ~ 51.50,
isco08 == 5413 ~ 48.13,
isco08 == 5414 ~ 23.80,
isco08 == 5419 ~ 33.83,
isco08 == 6000 ~ 19.20,
isco08 == 6100 ~ 19.41,
isco08 == 6110 ~ 16.34,
isco08 == 6111 ~ 11.56,
isco08 == 6112 ~ 18.95,
isco08 == 6113 ~ 20.91,
isco08 == 6114 ~ 12.87,
isco08 == 6120 ~ 22.21,
isco08 == 6121 ~ 21.13,
isco08 == 6122 ~ 19.83,
isco08 == 6123 ~ 28.04,
isco08 == 6129 ~ 28.04,
isco08 == 6130 ~ 17.79,
isco08 == 6200 ~ 18.29,
isco08 == 6210 ~ 19.78,
isco08 == 6220 ~ 16.33,
isco08 == 6221 ~ 17.00,
isco08 == 6222 ~ 13.35,
isco08 == 6223 ~ 20.69,
isco08 == 6224 ~ 11.01,
isco08 == 6300 ~ 11.01,
isco08 == 6310 ~ 11.01,
isco08 == 6320 ~ 11.01,
isco08 == 6330 ~ 11.01,
isco08 == 6340 ~ 11.01,
isco08 == 7000 ~ 28.53,
isco08 == 7100 ~ 25.39,
isco08 == 7110 ~ 25.94,
isco08 == 7111 ~ 33.76,
isco08 == 7112 ~ 22.57,
isco08 == 7113 ~ 23.96,
isco08 == 7114 ~ 21.96,
isco08 == 7115 ~ 26.62,
isco08 == 7119 ~ 26.92,
isco08 == 7120 ~ 25.26,
isco08 == 7121 ~ 22.16,
isco08 == 7122 ~ 22.75,
isco08 == 7123 ~ 18.02,
isco08 == 7124 ~ 27.81,
isco08 == 7125 ~ 24.09,
isco08 == 7126 ~ 29.16,
isco08 == 7127 ~ 25.26,
isco08 == 7130 ~ 23.63,
isco08 == 7131 ~ 22.77,
isco08 == 7132 ~ 24.49,
isco08 == 7133 ~ 30.47,
isco08 == 7200 ~ 29.81,
isco08 == 7210 ~ 27.61,
isco08 == 7211 ~ 28.03,
isco08 == 7212 ~ 28.52,
isco08 == 7213 ~ 25.51,
isco08 == 7214 ~ 26.60,
isco08 == 7215 ~ 28.60,
isco08 == 7220 ~ 29.84,
isco08 == 7221 ~ 25.63,
isco08 == 7222 ~ 33.16,
isco08 == 7223 ~ 28.70,
isco08 == 7224 ~ 33.90,
isco08 == 7230 ~ 31.15,
isco08 == 7231 ~ 30.78,
isco08 == 7232 ~ 47.74,
isco08 == 7233 ~ 31.72,
isco08 == 7234 ~ 31.15,
isco08 == 7300 ~ 31.00,
isco08 == 7310 ~ 30.35,
isco08 == 7311 ~ 35.70,
isco08 == 7312 ~ 35.66,
isco08 == 7313 ~ 28.12,
isco08 == 7314 ~ 24.43,
isco08 == 7315 ~ 25.78,
isco08 == 7316 ~ 30.14,
isco08 == 7317 ~ 28.95,
isco08 == 7318 ~ 28.97,
isco08 == 7319 ~ 30.35,
isco08 == 7320 ~ 31.50,
isco08 == 7321 ~ 35.33,
isco08 == 7322 ~ 30.49,
isco08 == 7323 ~ 28.24,
isco08 == 7400 ~ 37.34,
isco08 == 7410 ~ 36.97,
isco08 == 7411 ~ 36.35,
isco08 == 7412 ~ 36.92,
isco08 == 7413 ~ 39.45,
isco08 == 7420 ~ 41.68,
isco08 == 7421 ~ 43.76,
isco08 == 7422 ~ 36.92,
isco08 == 7500 ~ 23.97,
isco08 == 7510 ~ 23.46,
isco08 == 7511 ~ 20.95,
isco08 == 7512 ~ 23.57,
isco08 == 7513 ~ 27.30,
isco08 == 7514 ~ 22.79,
isco08 == 7515 ~ 34.12,
isco08 == 7516 ~ 26.96,
isco08 == 7520 ~ 23.65,
isco08 == 7521 ~ 21.81,
isco08 == 7522 ~ 25.23,
isco08 == 7523 ~ 20.78,
isco08 == 7530 ~ 22.03,
isco08 == 7531 ~ 23.47,
isco08 == 7532 ~ 24.88,
isco08 == 7533 ~ 21.24,
isco08 == 7534 ~ 22.25,
isco08 == 7535 ~ 28.08,
isco08 == 7536 ~ 18.07,
isco08 == 7540 ~ 43.19,
isco08 == 7541 ~ 27.30,
isco08 == 7542 ~ 27.30,
isco08 == 7543 ~ 43.19,
isco08 == 7544 ~ 55.96,
isco08 == 7549 ~ 43.19,
isco08 == 8000 ~ 25.45,
isco08 == 8100 ~ 23.41,
isco08 == 8110 ~ 31.44,
isco08 == 8111 ~ 35.07,
isco08 == 8112 ~ 25.11,
isco08 == 8113 ~ 35.82,
isco08 == 8114 ~ 26.13,
isco08 == 8120 ~ 25.91,
isco08 == 8121 ~ 30.32,
isco08 == 8122 ~ 22.36,
isco08 == 8130 ~ 29.30,
isco08 == 8131 ~ 29.14,
isco08 == 8132 ~ 31.34,
isco08 == 8140 ~ 25.49,
isco08 == 8141 ~ 23.09,
isco08 == 8142 ~ 24.85,
isco08 == 8143 ~ 32.67,
isco08 == 8150 ~ 16.80,
isco08 == 8151 ~ 17.85,
isco08 == 8152 ~ 18.03,
isco08 == 8153 ~ 13.24,
isco08 == 8154 ~ 16.08,
isco08 == 8155 ~ 20.35,
isco08 == 8156 ~ 20.35,
isco08 == 8157 ~ 16.80,
isco08 == 8159 ~ 21.20,
isco08 == 8160 ~ 18.13,
isco08 == 8170 ~ 22.40,
isco08 == 8171 ~ 27.25,
isco08 == 8172 ~ 19.08,
isco08 == 8180 ~ 24.15,
isco08 == 8181 ~ 21.13,
isco08 == 8182 ~ 23.19,
isco08 == 8183 ~ 24.15,
isco08 == 8189 ~ 24.16,
isco08 == 8200 ~ 24.93,
isco08 == 8210 ~ 24.93,
isco08 == 8211 ~ 27.91,
isco08 == 8212 ~ 23.88,
isco08 == 8219 ~ 24.68,
isco08 == 8300 ~ 26.80,
isco08 == 8310 ~ 38.80,
isco08 == 8311 ~ 45.76,
isco08 == 8312 ~ 29.80,
isco08 == 8320 ~ 30.11,
isco08 == 8321 ~ 28.48,
isco08 == 8322 ~ 30.34,
isco08 == 8330 ~ 25.71,
isco08 == 8331 ~ 26.85,
isco08 == 8332 ~ 25.95,
isco08 == 8340 ~ 21.08,
isco08 == 8341 ~ 13.34,
isco08 == 8342 ~ 24.45,
isco08 == 8343 ~ 24.80,
isco08 == 8344 ~ 18.08,
isco08 == 8350 ~ 37.92,
isco08 == 9000 ~ 16.50,
isco08 == 9100 ~ 14.64,
isco08 == 9110 ~ 14.64,
isco08 == 9111 ~ 16.38,
isco08 == 9112 ~ 14.21,
isco08 == 9120 ~ 14.57,
isco08 == 9121 ~ 14.82,
isco08 == 9122 ~ 14.57,
isco08 == 9123 ~ 14.57,
isco08 == 9129 ~ 14.57,
isco08 == 9200 ~ 11.87,
isco08 == 9210 ~ 11.74,
isco08 == 9211 ~ 11.74,
isco08 == 9212 ~ 11.74,
isco08 == 9213 ~ 11.74,
isco08 == 9214 ~ 11.74,
isco08 == 9215 ~ 12.01,
isco08 == 9216 ~ 12.34,
isco08 == 9300 ~ 17.53,
isco08 == 9310 ~ 16.39,
isco08 == 9311 ~ 15.35,
isco08 == 9312 ~ 17.56,
isco08 == 9313 ~ 15.35,
isco08 == 9320 ~ 17.55,
isco08 == 9321 ~ 17.55,
isco08 == 9329 ~ 16.36,
isco08 == 9330 ~ 19.66,
isco08 == 9331 ~ 20.27,
isco08 == 9332 ~ 16.89,
isco08 == 9333 ~ 17.69,
isco08 == 9334 ~ 19.66,
isco08 == 9400 ~ 16.50,
isco08 == 9410 ~ 16.50,
isco08 == 9411 ~ 16.50,
isco08 == 9412 ~ 16.50,
isco08 == 9500 ~ 23.43,
isco08 == 9510 ~ 13.72,
isco08 == 9520 ~ 25.20,
isco08 == 9600 ~ 24.07,
isco08 == 9610 ~ 14.39,
isco08 == 9611 ~ 14.39,
isco08 == 9612 ~ 14.39,
isco08 == 9613 ~ 13.87,
isco08 == 9620 ~ 27.91,
isco08 == 9621 ~ 25.06,
isco08 == 9622 ~ 27.91,
isco08 == 9623 ~ 30.99,
isco08 == 9624 ~ 27.91,
isco08 == 9629 ~ 27.91,
)
)
if (display.nas) display.nas(isco, conv.from="isco08", conv.to='isei08')
return(isei$isei08)
}
## {{{ docs }}}
#' Compute ESeC
#'
#' This function returns the ESeC (European Socio-economic classification) scheme
#'
#'
#' @param isco88 a vector with the isco88 codes
#' @param employed a vector containing the value 1 whenever the person is employed
#' @param unemployed a vector containing the value 1 whenever the person is unemployed
#' @param self.employed a vector containing the value 1 whenever the person is self-employed
#' @param supervisor a vector containing the value 1 whenever the person is a supervisor
#' @param n.employees a vector containing the number of employees.
#' @param n.cat either one of the following integers: 10 (default), 6 ,5, or 3 indicating the number of categories to be used inthe ESEeC scheme
#' @param isco88.armed.forces numeric vector with the code for armed forces (usually isco88 major code 0)
#'
#' @return It returns a list with two elements, the ESec code and its label
#'
#' @export
## }}}
isco88toESeC <- function(isco88, employed=NULL, unemployed=NULL, self.employed=NULL, supervisor=NULL, n.employees=NULL, n.cat=10, isco88.armed.forces=NULL)
{
## check https://www.iser.essex.ac.uk/archives/esec/user-guide
## recode armed forces
## -------------------
if (!is.null(isco88.armed.forces)) {
isco88[isco88 %in% isco88.armed.forces] = 10
}else{
on.exit(cat("\n\nNo code provided for armed forces in the parameter isco88.armed.forces"))
}
## error control
## -------------
if (any(isco88[(!is.na(isco88)) & isco88 != 10] %>% nchar < 4)) {
stop("\n\nPlease, provide isco88 with 4 digits for all cases. Check isco88 for armed foreces and provide it in the parameter isco88.armed.forces! \n\n")
}
if (is.null(employed) | is.null(unemployed) | is.null(self.employed) | is.null(supervisor) | is.null(n.employees)) {
stop("\n\nThe parameters employed, unemployed, self.employed, supervisor, and n.employees must be non-NULL.\n\n")
}
## reduces isco88 to 3 digits
## --------------------------
isco88 = isco88 %>% stringr::str_replace(string=., pattern=".$", replacement="")
## set indicator variables
## -----------------------
self.employed[self.employed != 1 | is.na(self.employed)] = 0
unemployed [unemployed != 1 | is.na(unemployed) ] = 0
employed [employed != 1 | is.na(employed) ] = 0
supervisor [supervisor != 1 | is.na(supervisor) ] = 0
## Compute employment status categories
## ------------------------------------
status = rep(NA, length(isco88))
status[self.employed == 1 & n.employees > 9] <- 1 #### 1: self-employed 10+ employees
status[self.employed == 1 & n.employees %in% 1:9] <- 2 #### 2: small employers <10
status[self.employed == 1 & n.employees == 0] <- 3 #### 3: self-employed, no employees
status[self.employed != 1 & employed == 1 & supervisor == 1] <- 4 #### 4: supervisors
status[self.employed != 1 & employed == 1 & supervisor != 1] <- 5 #### 5: employee
status[unemployed == 1] <- 6 #### 5: unemployed
## Compute ESeC based on status categories
## ---------------------------------------
## ESeC status categories:
## 1 Large employers, higher grade professional, administrative and managerial occupations /Higher salariat
## 2 Lower grade professionals, administrative and managerial occupations and higher grade technician and supervisory occupations /Lower salariat
## 3 Intermediate occupations /Higher grade white collar workers
## 4 Small employers and self-employed occupations(non-agriculture) /Petit bourgeoisie or independents
## 5 Small employers and self-employed occupations (agriculture) /Petit bourgeoisie or independents (agriculture)
## 6 Lower supervisors and technicians /Higher grade blue collar workers
## 7 Lower services, sales and clerical occupations /Lower grade white collar workers
## 8 Lower technical occupations /Skilled workers
## 9 Routine occupations /semi- and non-skilled workers
## 10 Never worked and long-term unemployed /Unemployed
esec = rep(NA, length(isco88))
## ------------------------------------------
## 1) Self-employed 10+ employees. Defaults to 1
## ------------------------------------------
esec[status == 1] <- 1
esec[status == 1 & isco88 %in% c(344, 345)] <- 2
esec[status == 1 & isco88 %in% c(011, 516)] <- 3
esec[status == 1 & isco88 == 621] <- 5
## ------------------------------------------
## 2) Small employers <10. Defaults to 4
## ------------------------------------------
esec[status == 2] <- 4
esec[status == 2 & isco88 %in% c(010, 110, 111, 114, 200, 210, 211, 212, 213, 214, 220, 221, 222, 231, 235, 240, 241, 242)] <- 1
esec[status == 2 & isco88 %in% c(223, 230, 232, 233, 234, 243, 244, 245, 246, 247, 310, 311, 312, 314, 320, 321, 322, 323, 334, 342, 344, 345, 348)] <- 2
esec[status == 2 & isco88 %in% c(011, 516)] <- 3
esec[status == 2 & isco88 %in% c(600, 610, 611, 612, 613, 614, 615, 621, 920, 921)] <- 5
## ------------------------------------------
## 3) Self-employed with no employees. Defaults to 4
## ------------------------------------------
esec[status == 3] <- 4
esec[status == 3 & isco88 %in% c(010, 110, 111, 114, 200, 210, 211, 212, 213, 214, 220, 221, 222, 231, 235, 240, 241, 242)] <- 1
esec[status == 3 & isco88 %in% c(223, 230, 232, 233, 234, 243, 244, 245, 246, 247, 310, 311, 312, 314, 320, 321, 322, 323, 334, 342, 344, 345, 348)] <- 2
esec[status == 3 & isco88 %in% c(011,516)] <- 3
esec[status == 3 & isco88 %in% c(600, 610, 611, 612, 613, 614, 615, 621, 920, 921)] <- 5
## ------------------------------------------
## 4) Supervisors. Defaults to 6
## ------------------------------------------
esec[status == 4] <- 6
esec[status == 4 & isco88 %in% c(010, 100, 110, 111, 114, 120, 121, 123, 200, 210, 211, 212, 213, 214, 220, 221, 222, 231, 235, 240, 241, 242)] <- 1
esec[status == 4 & isco88 %in% c(011, 122, 130,131, 223, 230, 232, 233, 234, 243, 244, 245, 246, 247, 300, 310, 311, 312, 313, 314, 320, 321, 322, 323, 330, 331, 332, 333, 334, 340,341, 342, 343,
344, 345, 346, 347, 348, 400, 410, 411, 412, 419, 420, 521)] <- 2
esec[status == 4 & isco88 == 621] <- 5
## ------------------------------------------
## 5) Employees
## ------------------------------------------
esec[status == 5 & isco88 %in% c(010, 100,110,111,114,120, 121, 123, 200, 210, 211, 212, 213, 214, 220, 221, 222, 231, 235, 240, 241, 242)] <- 1
esec[status == 5 & isco88 %in% c(122,130,131, 223, 230, 232, 233, 234, 243, 244, 245, 246, 247, 310, 311, 312, 314, 320, 321, 322, 323, 334, 342, 344, 345, 348, 521)] <- 2
esec[status == 5 & isco88 %in% c(011, 300, 330, 331, 332, 333, 340, 341, 343, 346, 347, 400, 410, 411, 412, 419, 420)] <- 3
esec[status == 5 & isco88 == 621] <- 5
esec[status == 5 & isco88 %in% c(313, 315, 730,731)] <- 6
esec[status == 5 & isco88 %in% c(413, 421, 422, 500, 510, 511, 513, 514, 516, 520, 522, 911)] <- 7
esec[status == 5 & isco88 %in% c(600, 610, 611, 612, 613, 614, 615, 700, 710, 711, 712, 713, 714, 720, 721, 722, 723, 724, 732, 733, 734, 740, 741, 742, 743, 744, 825, 831, 834)] <- 8
esec[status == 5 & isco88 %in% c(414, 512, 800, 810, 811, 812, 813, 814, 815, 816, 817, 820, 821, 822, 823, 824, 826, 827, 828, 829, 830, 832, 833,900, 910, 912, 913, 914, 915, 916, 920, 921, 930, 931, 932, 933)] <- 9
## ------------------------------------------
## 6) Unemployed
## ------------------------------------------
esec[status == 6] <- 10
## Harrison & Rose, 2006, "(ESeC) User Guide", pg. 9-10
## ----------------------------------------------------
## The 10 class model may be collapsed to 6, 5 or 3 classes.
##
## - 6-class:
## - classes 1 and 2 = class 1 "the salariat"
## - classes 3 and 6 = "intermediate employee" class 2
## - classes 4 and 5 = class 3 "small employers and self-employed"
## - class 7 becomes class 4;
## - class 8 becomes class 5;
## - class 9 becomes class 6.
##
## - 5-class model:
## - classes 5 and 6 in the sidata class model:
## "lower technical and routine occupations".
##
## - the three class model:
## - classes 1 and 2=salariat;
## - 3, 4, 5 and 6=intermediate;
## - 7, 8 and 9=working class.
##
## - Class 10 may be added as an additional in any of the models,
## if desired.;
## Collapse 7 class
if (n.cat == 7) {
esec[esec %in% 1:2] <- 1
esec[esec %in% c(3,6)] <- 2
esec[esec %in% c(4,5)] <- 3
esec[esec == 7] <- 4
esec[esec == 8] <- 5
esec[esec == 9] <- 6
esec[esec == 10] <- 7
}
## Collapse 6 class
if (n.cat == 6) {
esec[esec %in% 1:2] <- 1
esec[esec %in% c(3,6)] <- 2
esec[esec %in% c(4,5)] <- 3
esec[esec == 7] <- 4
esec[esec %in% 8:9] <- 5
esec[esec %in% 10] <- 6
}
## Collapse 4 class
if (n.cat == 4) {
esec[esec %in% 1:2] <- 1
esec[esec %in% 3:6] <- 2
esec[esec %in% 7:9] <- 3
esec[esec == 10] <- 4
}
esec = set.esec.labels(esec, n.cat=n.cat)
return(esec)
}
set.esec.labels <- function(esec, n.cat=NULL)
{
if (n.cat == 10) {
labels = factor(esec, levels=1:10, labels = c(
'Higher salariat', # 1
'Lower salariat', # 2
'Higher grade white collar workers', # 3
'Petit bourgeoisie', # 4
'Petit bourgeoisie (agriculture)', # 5
'Higher grade blue collar workers', # 6
'Lower grade white collar workers', # 7
'Skilled workers', # 8
'Semi- and non-skilled workers', # 9
'Unemployed' # 10
))
}
if (n.cat == 7) {
labels = factor(esec, levels=1:7, labels = c(
'Salariat', # 1
'Intermediate employee', # 2
'Small/self employers', # 3
'Lower grade white collar workers', # 4
'Skilled workers', # 5
'Semi- and non-skilled workers' , # 6
'Unemployed' # 10
))
}
if (n.cat == 6) {
labels = factor(esec, levels=1:6, labels = c(
'Salariat', # 1
'Intermediate employee', # 2
'Small/self employers', # 3
'Lower grade white collar workers', # 4
'Skilled and semi- and non-skilled workers',# 5
'Unemployed' # 6
))
}
if (n.cat == 4) {
labels = factor(esec, levels=1:4, labels = c('Salariat', 'Intermediate employee/small employers', 'Working class', 'Unemployed'))
}
return(labels)
}
DiogoFerrari/edar documentation built on May 8, 2022, 8:26 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions display.nas
## {{{ ancillary }}}
display.nas <- function(isco, conv.from, conv.to)
{
print(
isco %>%
dplyr::rename(conv.from=!!conv.from,
conv.to =!!conv.to,
) %>%
dplyr::filter(!stats::complete.cases(conv.to)) %>%
dplyr::filter( stats::complete.cases(conv.from)) %>%
dplyr::filter(!duplicated(.)) %>%
dplyr::arrange(conv.from) %>%
dplyr::rename_at(dplyr::vars(conv.from, conv.to), dplyr::funs(c(conv.from, conv.to) ) )
, n=Inf)
}
## }}}
## =====================================================
## converting between ISCOs
## =====================================================
## Conversions are based on Harry Ganzeboom’s script (http://www.harryganzeboom.nl/ISCO08/index.htm)
## Local scripts in ~/Dropbox/CienciasSociais/Data/00-Auxiliary/isco08-2
## -----
## to 88
## -----
## {{{ docs }}}
#' Recode ISCO-08 into ISCO-88
#'
#' The function recodes ISCO-08 into ISCO-88.
#'
#' @param isco08 a numeric vector with the ISCO-08 codes
#' @param display.nas boolean. If true (defaul is \code{FALSE}), displays table with unmatched ISCO-08 codes.
#'
#' @return
#' It returns a vector with ISCO-88 codes.
#'
#' @export
## }}}
isco08to88 <- function(isco08, display.nas=FALSE)
{
## RECODE OF ISCO-08 INTO ISCO-88 based on http://www.harryganzeboom.nl/ISCO08/index.htm
## Conversion Table Version 13 Aug 2015
isco = tibble::tibble(isco08=isco08)
isco = isco %>%
dplyr::mutate(isco88 = dplyr::case_when(
isco08 == 0110 ~ 0110,
isco08 == 0210 ~ 0110,
isco08 == 0310 ~ 0110,
isco08 == 0100 ~ 0110,
isco08 == 0200 ~ 0110,
isco08 == 0300 ~ 0110,
isco08 == 1000 ~ 1000,
isco08 == 1100 ~ 1100,
isco08 == 1110 ~ 1100,
isco08 == 1111 ~ 1110,
isco08 == 1112 ~ 1120,
isco08 == 1113 ~ 1130,
isco08 == 1114 ~ 1140,
isco08 == 1120 ~ 1210,
isco08 == 1200 ~ 1200,
isco08 == 1210 ~ 1230,
isco08 == 1211 ~ 1231,
isco08 == 1212 ~ 1232,
isco08 == 1213 ~ 1239,
isco08 == 1219 ~ 1229,
isco08 == 1220 ~ 1230,
isco08 == 1221 ~ 1233,
isco08 == 1222 ~ 1234,
isco08 == 1223 ~ 1237,
isco08 == 1300 ~ 1220,
isco08 == 1310 ~ 1221,
isco08 == 1311 ~ 1221,
isco08 == 1312 ~ 1221,
isco08 == 1320 ~ 1220,
isco08 == 1321 ~ 1222,
isco08 == 1322 ~ 1222,
isco08 == 1323 ~ 1223,
isco08 == 1324 ~ 1235,
isco08 == 1330 ~ 1236,
isco08 == 1340 ~ 1229,
isco08 == 1341 ~ 1229,
isco08 == 1342 ~ 1229,
isco08 == 1343 ~ 1229,
isco08 == 1344 ~ 1229,
isco08 == 1345 ~ 1229,
isco08 == 1346 ~ 1227,
isco08 == 1349 ~ 1229,
isco08 == 1400 ~ 1310,
isco08 == 1410 ~ 1315,
isco08 == 1411 ~ 1315,
isco08 == 1412 ~ 1315,
isco08 == 1420 ~ 1314,
isco08 == 1430 ~ 1319,
isco08 == 1431 ~ 1319,
isco08 == 1439 ~ 1319,
isco08 == 2000 ~ 2000,
isco08 == 2100 ~ 2100,
isco08 == 2110 ~ 2110,
isco08 == 2111 ~ 2111,
isco08 == 2112 ~ 2112,
isco08 == 2113 ~ 2113,
isco08 == 2114 ~ 2114,
isco08 == 2120 ~ 2120,
isco08 == 2130 ~ 2210,
isco08 == 2131 ~ 2211,
isco08 == 2132 ~ 2213,
isco08 == 2133 ~ 2200,
isco08 == 2140 ~ 2140,
isco08 == 2141 ~ 2149,
isco08 == 2142 ~ 2142,
isco08 == 2143 ~ 2149,
isco08 == 2144 ~ 2145,
isco08 == 2145 ~ 2146,
isco08 == 2146 ~ 2147,
isco08 == 2149 ~ 2149,
isco08 == 2150 ~ 2140,
isco08 == 2151 ~ 2143,
isco08 == 2152 ~ 2144,
isco08 == 2153 ~ 2144,
isco08 == 2160 ~ 2140,
isco08 == 2161 ~ 2141,
isco08 == 2162 ~ 2141,
isco08 == 2163 ~ 3471,
isco08 == 2164 ~ 2141,
isco08 == 2165 ~ 2148,
isco08 == 2166 ~ 3471,
isco08 == 2200 ~ 2200,
isco08 == 2210 ~ 2220,
isco08 == 2211 ~ 2221,
isco08 == 2212 ~ 2221,
isco08 == 2220 ~ 2230,
isco08 == 2221 ~ 2230,
isco08 == 2222 ~ 2230,
isco08 == 2230 ~ 3229,
isco08 == 2240 ~ 3221,
isco08 == 2250 ~ 2223,
isco08 == 2260 ~ 3210,
isco08 == 2261 ~ 2222,
isco08 == 2262 ~ 2224,
isco08 == 2263 ~ 2229,
isco08 == 2264 ~ 3226,
isco08 == 2265 ~ 3223,
isco08 == 2266 ~ 3229,
isco08 == 2267 ~ 3224,
isco08 == 2269 ~ 2229,
isco08 == 2310 ~ 2310,
isco08 == 2320 ~ 2320,
isco08 == 2330 ~ 2320,
isco08 == 2300 ~ 2300,
isco08 == 2340 ~ 2330,
isco08 == 2341 ~ 2331,
isco08 == 2342 ~ 2332,
isco08 == 2350 ~ 2350,
isco08 == 2351 ~ 2351,
isco08 == 2351 ~ 2352,
isco08 == 2352 ~ 2340,
isco08 == 2353 ~ 2359,
isco08 == 2354 ~ 2359,
isco08 == 2355 ~ 2359,
isco08 == 2356 ~ 2359,
isco08 == 2359 ~ 2359,
isco08 == 2400 ~ 2400,
isco08 == 2410 ~ 2410,
isco08 == 2411 ~ 2411,
isco08 == 2412 ~ 2419,
isco08 == 2413 ~ 2419,
isco08 == 2420 ~ 2419,
isco08 == 2421 ~ 2419,
isco08 == 2422 ~ 2419,
isco08 == 2423 ~ 2412,
isco08 == 2424 ~ 2412,
isco08 == 2430 ~ 2410,
isco08 == 2431 ~ 2419,
isco08 == 2432 ~ 2419,
isco08 == 2433 ~ 3415,
isco08 == 2434 ~ 3415,
isco08 == 2500 ~ 2100,
isco08 == 2510 ~ 2130,
isco08 == 2511 ~ 2131,
isco08 == 2512 ~ 2131,
isco08 == 2513 ~ 2131,
isco08 == 2513 ~ 2139,
isco08 == 2514 ~ 2132,
isco08 == 2519 ~ 2131,
isco08 == 2520 ~ 2131,
isco08 == 2521 ~ 2131,
isco08 == 2522 ~ 2131,
isco08 == 2523 ~ 2131,
isco08 == 2529 ~ 2139,
isco08 == 2600 ~ 2400,
isco08 == 2610 ~ 2420,
isco08 == 2611 ~ 2421,
isco08 == 2612 ~ 2422,
isco08 == 2619 ~ 2429,
isco08 == 2620 ~ 2430,
isco08 == 2621 ~ 2431,
isco08 == 2622 ~ 2432,
isco08 == 2630 ~ 2440,
isco08 == 2631 ~ 2441,
isco08 == 2632 ~ 2442,
isco08 == 2633 ~ 2443,
isco08 == 2634 ~ 2445,
isco08 == 2635 ~ 2446,
isco08 == 2636 ~ 2460,
isco08 == 2640 ~ 2450,
isco08 == 2641 ~ 2451,
isco08 == 2642 ~ 2451,
isco08 == 2643 ~ 2444,
isco08 == 2650 ~ 2450,
isco08 == 2651 ~ 2452,
isco08 == 2652 ~ 2453,
isco08 == 2653 ~ 2454,
isco08 == 2654 ~ 2455,
isco08 == 2655 ~ 2455,
isco08 == 2656 ~ 3472,
isco08 == 2659 ~ 3474,
isco08 == 3000 ~ 3000,
isco08 == 3100 ~ 3100,
isco08 == 3110 ~ 3110,
isco08 == 3111 ~ 3111,
isco08 == 3112 ~ 3112,
isco08 == 3113 ~ 3113,
isco08 == 3114 ~ 3114,
isco08 == 3115 ~ 3115,
isco08 == 3116 ~ 3116,
isco08 == 3117 ~ 3117,
isco08 == 3118 ~ 3118,
isco08 == 3119 ~ 3119,
isco08 == 3120 ~ 1220,
isco08 == 3121 ~ 1229,
isco08 == 3122 ~ 1222,
isco08 == 3123 ~ 1223,
isco08 == 3130 ~ 8160,
isco08 == 3131 ~ 8161,
isco08 == 3132 ~ 8163,
isco08 == 3133 ~ 8150,
isco08 == 3134 ~ 8155,
isco08 == 3135 ~ 8120,
isco08 == 3139 ~ 8290,
isco08 == 3140 ~ 3210,
isco08 == 3141 ~ 3211,
isco08 == 3142 ~ 3212,
isco08 == 3143 ~ 3212,
isco08 == 3150 ~ 3140,
isco08 == 3151 ~ 3141,
isco08 == 3152 ~ 3142,
isco08 == 3153 ~ 3143,
isco08 == 3154 ~ 3144,
isco08 == 3155 ~ 3145,
isco08 == 3200 ~ 3100,
isco08 == 3210 ~ 3130,
isco08 == 3211 ~ 3133,
isco08 == 3212 ~ 3211,
isco08 == 3213 ~ 3228,
isco08 == 3214 ~ 7311,
isco08 == 3220 ~ 3230,
isco08 == 3221 ~ 3231,
isco08 == 3222 ~ 3232,
isco08 == 3230 ~ 3241,
isco08 == 3240 ~ 3227,
isco08 == 3250 ~ 3220,
isco08 == 3251 ~ 3225,
isco08 == 3252 ~ 3229,
isco08 == 3253 ~ 3229,
isco08 == 3254 ~ 3224,
isco08 == 3255 ~ 3226,
isco08 == 3256 ~ 3221,
isco08 == 3257 ~ 3152,
isco08 == 3258 ~ 3152,
isco08 == 3259 ~ 3229,
isco08 == 3300 ~ 3300,
isco08 == 3310 ~ 3410,
isco08 == 3311 ~ 3411,
isco08 == 3312 ~ 3419,
isco08 == 3313 ~ 3433,
isco08 == 3314 ~ 3434,
isco08 == 3315 ~ 3417,
isco08 == 3320 ~ 3410,
isco08 == 3321 ~ 3412,
isco08 == 3322 ~ 3415,
isco08 == 3323 ~ 3416,
isco08 == 3324 ~ 3421,
isco08 == 3330 ~ 3420,
isco08 == 3331 ~ 3422,
isco08 == 3332 ~ 3414,
isco08 == 3332 ~ 3439,
isco08 == 3333 ~ 3423,
isco08 == 3334 ~ 3413,
isco08 == 3339 ~ 3429,
isco08 == 3340 ~ 3430,
isco08 == 3341 ~ 3431,
isco08 == 3342 ~ 3431,
isco08 == 3343 ~ 3431,
isco08 == 3344 ~ 3431,
isco08 == 3350 ~ 3440,
isco08 == 3351 ~ 3441,
isco08 == 3352 ~ 3442,
isco08 == 3353 ~ 3443,
isco08 == 3354 ~ 3444,
isco08 == 3355 ~ 3450,
isco08 == 3359 ~ 3449,
isco08 == 3400 ~ 3400,
isco08 == 3410 ~ 3430,
isco08 == 3411 ~ 3432,
isco08 == 3412 ~ 3460,
isco08 == 3413 ~ 3480,
isco08 == 3420 ~ 3470,
isco08 == 3421 ~ 3475,
isco08 == 3422 ~ 3475,
isco08 == 3423 ~ 3340,
isco08 == 3423 ~ 3475,
isco08 == 3430 ~ 3470,
isco08 == 3431 ~ 3131,
isco08 == 3432 ~ 3471,
isco08 == 3433 ~ 3470,
isco08 == 3434 ~ 5122,
isco08 == 3435 ~ 3470,
isco08 == 3500 ~ 3100,
isco08 == 3510 ~ 3120,
isco08 == 3511 ~ 3122,
isco08 == 3512 ~ 3121,
isco08 == 3513 ~ 2139,
isco08 == 3514 ~ 3121,
isco08 == 3520 ~ 3130,
isco08 == 3521 ~ 3130,
isco08 == 3522 ~ 3114,
isco08 == 3522 ~ 3132,
isco08 == 4000 ~ 4000,
isco08 == 4110 ~ 4100,
isco08 == 4120 ~ 4115,
isco08 == 4100 ~ 4100,
isco08 == 4130 ~ 4110,
isco08 == 4131 ~ 4112,
isco08 == 4132 ~ 4113,
isco08 == 4200 ~ 4200,
isco08 == 4210 ~ 4210,
isco08 == 4211 ~ 4211,
isco08 == 4212 ~ 4213,
isco08 == 4213 ~ 4214,
isco08 == 4214 ~ 4215,
isco08 == 4220 ~ 4220,
isco08 == 4221 ~ 3414,
isco08 == 4222 ~ 4222,
isco08 == 4223 ~ 4223,
isco08 == 4224 ~ 4222,
isco08 == 4225 ~ 4222,
isco08 == 4226 ~ 4222,
isco08 == 4227 ~ 4190,
isco08 == 4229 ~ 4222,
isco08 == 4300 ~ 4100,
isco08 == 4310 ~ 4120,
isco08 == 4311 ~ 4121,
isco08 == 4312 ~ 4122,
isco08 == 4313 ~ 4121,
isco08 == 4320 ~ 4130,
isco08 == 4321 ~ 4131,
isco08 == 4322 ~ 4132,
isco08 == 4323 ~ 4133,
isco08 == 4400 ~ 4100,
isco08 == 4410 ~ 4140,
isco08 == 4411 ~ 4141,
isco08 == 4412 ~ 4142,
isco08 == 4413 ~ 4143,
isco08 == 4414 ~ 4144,
isco08 == 4415 ~ 4141,
isco08 == 4416 ~ 4190,
isco08 == 4419 ~ 4190,
isco08 == 5000 ~ 5000,
isco08 == 5100 ~ 5100,
isco08 == 5110 ~ 5110,
isco08 == 5111 ~ 5111,
isco08 == 5112 ~ 5112,
isco08 == 5113 ~ 5113,
isco08 == 5120 ~ 5122,
isco08 == 5130 ~ 5120,
isco08 == 5131 ~ 5123,
isco08 == 5132 ~ 5123,
isco08 == 5140 ~ 5140,
isco08 == 5141 ~ 5141,
isco08 == 5142 ~ 5141,
isco08 == 5150 ~ 5120,
isco08 == 5151 ~ 5121,
isco08 == 5152 ~ 5121,
isco08 == 5153 ~ 9141,
isco08 == 5160 ~ 5140,
isco08 == 5161 ~ 5152,
isco08 == 5162 ~ 5142,
isco08 == 5163 ~ 5143,
isco08 == 5164 ~ 5149,
isco08 == 5165 ~ 3340,
isco08 == 5169 ~ 5149,
isco08 == 5200 ~ 5200,
isco08 == 5210 ~ 5230,
isco08 == 5211 ~ 5230,
isco08 == 5212 ~ 9111,
isco08 == 5220 ~ 1314,
isco08 == 5221 ~ 1314,
isco08 == 5222 ~ 1314,
isco08 == 5223 ~ 5220,
isco08 == 5230 ~ 4211,
isco08 == 5240 ~ 5220,
isco08 == 5241 ~ 5210,
isco08 == 5242 ~ 5220,
isco08 == 5243 ~ 9113,
isco08 == 5244 ~ 9113,
isco08 == 5245 ~ 5220,
isco08 == 5246 ~ 5123,
isco08 == 5249 ~ 5220,
isco08 == 5300 ~ 5100,
isco08 == 5310 ~ 5130,
isco08 == 5311 ~ 5131,
isco08 == 5312 ~ 5131,
isco08 == 5320 ~ 5130,
isco08 == 5321 ~ 5132,
isco08 == 5322 ~ 5133,
isco08 == 5329 ~ 5139,
isco08 == 5400 ~ 5100,
isco08 == 5410 ~ 5160,
isco08 == 5411 ~ 5161,
isco08 == 5412 ~ 5162,
isco08 == 5413 ~ 5163,
isco08 == 5414 ~ 5169,
isco08 == 5419 ~ 5169,
isco08 == 6000 ~ 6000,
isco08 == 6100 ~ 6100,
isco08 == 6110 ~ 6110,
isco08 == 6111 ~ 6111,
isco08 == 6112 ~ 6112,
isco08 == 6113 ~ 6113,
isco08 == 6114 ~ 6114,
isco08 == 6120 ~ 6120,
isco08 == 6121 ~ 6124,
isco08 == 6122 ~ 6122,
isco08 == 6123 ~ 6123,
isco08 == 6129 ~ 6129,
isco08 == 6130 ~ 6130,
isco08 == 6210 ~ 6141,
isco08 == 6200 ~ 6150,
isco08 == 6220 ~ 6150,
isco08 == 6221 ~ 6151,
isco08 == 6222 ~ 6152,
isco08 == 6223 ~ 6153,
isco08 == 6224 ~ 6154,
isco08 == 6300 ~ 6200,
isco08 == 6310 ~ 6210,
isco08 == 6320 ~ 6210,
isco08 == 6330 ~ 6210,
isco08 == 6340 ~ 6210,
isco08 == 7000 ~ 7000,
isco08 == 7100 ~ 7100,
isco08 == 7110 ~ 7120,
isco08 == 7111 ~ 7129,
isco08 == 7112 ~ 7122,
isco08 == 7113 ~ 7113,
isco08 == 7114 ~ 7123,
isco08 == 7115 ~ 7124,
isco08 == 7119 ~ 7129,
isco08 == 7120 ~ 7130,
isco08 == 7121 ~ 7131,
isco08 == 7122 ~ 7132,
isco08 == 7123 ~ 7133,
isco08 == 7124 ~ 7134,
isco08 == 7125 ~ 7135,
isco08 == 7126 ~ 7136,
isco08 == 7127 ~ 7240,
isco08 == 7130 ~ 7140,
isco08 == 7131 ~ 7141,
isco08 == 7132 ~ 7142,
isco08 == 7133 ~ 7143,
isco08 == 7200 ~ 7200,
isco08 == 7210 ~ 7210,
isco08 == 7211 ~ 7211,
isco08 == 7212 ~ 7212,
isco08 == 7213 ~ 7213,
isco08 == 7214 ~ 7214,
isco08 == 7215 ~ 7215,
isco08 == 7220 ~ 7220,
isco08 == 7221 ~ 7221,
isco08 == 7222 ~ 7222,
isco08 == 7223 ~ 7223,
isco08 == 7224 ~ 7224,
isco08 == 7230 ~ 7230,
isco08 == 7231 ~ 7231,
isco08 == 7232 ~ 7232,
isco08 == 7233 ~ 7233,
isco08 == 7234 ~ 7231,
isco08 == 7300 ~ 7300,
isco08 == 7310 ~ 7310,
isco08 == 7311 ~ 7311,
isco08 == 7312 ~ 7312,
isco08 == 7313 ~ 7313,
isco08 == 7314 ~ 7321,
isco08 == 7315 ~ 7322,
isco08 == 7316 ~ 3471,
isco08 == 7317 ~ 7331,
isco08 == 7318 ~ 7332,
isco08 == 7319 ~ 7330,
isco08 == 7320 ~ 7340,
isco08 == 7321 ~ 7340,
isco08 == 7322 ~ 7340,
isco08 == 7323 ~ 7345,
isco08 == 7400 ~ 7200,
isco08 == 7410 ~ 7240,
isco08 == 7411 ~ 7137,
isco08 == 7412 ~ 7241,
isco08 == 7413 ~ 7245,
isco08 == 7420 ~ 7240,
isco08 == 7421 ~ 7242,
isco08 == 7421 ~ 7243,
isco08 == 7422 ~ 7243,
isco08 == 7500 ~ 7400,
isco08 == 7510 ~ 7410,
isco08 == 7511 ~ 7411,
isco08 == 7512 ~ 7412,
isco08 == 7513 ~ 7413,
isco08 == 7514 ~ 7414,
isco08 == 7515 ~ 7415,
isco08 == 7516 ~ 7416,
isco08 == 7520 ~ 7420,
isco08 == 7521 ~ 7421,
isco08 == 7522 ~ 7422,
isco08 == 7523 ~ 7423,
isco08 == 7530 ~ 7430,
isco08 == 7531 ~ 7434,
isco08 == 7532 ~ 7435,
isco08 == 7533 ~ 7436,
isco08 == 7534 ~ 7437,
isco08 == 7535 ~ 7441,
isco08 == 7536 ~ 7442,
isco08 == 7540 ~ 7200,
isco08 == 7541 ~ 7216,
isco08 == 7542 ~ 7112,
isco08 == 7543 ~ 3152,
isco08 == 7544 ~ 7143,
isco08 == 7549 ~ 7000,
isco08 == 8000 ~ 8000,
isco08 == 8100 ~ 8100,
isco08 == 8110 ~ 8110,
isco08 == 8111 ~ 7111,
isco08 == 8112 ~ 8112,
isco08 == 8113 ~ 8113,
isco08 == 8114 ~ 8212,
isco08 == 8120 ~ 8120,
isco08 == 8121 ~ 8120,
isco08 == 8122 ~ 8223,
isco08 == 8130 ~ 8220,
isco08 == 8131 ~ 8220,
isco08 == 8132 ~ 8224,
isco08 == 8140 ~ 8230,
isco08 == 8141 ~ 8231,
isco08 == 8142 ~ 8232,
isco08 == 8143 ~ 8253,
isco08 == 8150 ~ 8260,
isco08 == 8151 ~ 8261,
isco08 == 8152 ~ 8262,
isco08 == 8153 ~ 8263,
isco08 == 8154 ~ 8264,
isco08 == 8155 ~ 8265,
isco08 == 8156 ~ 8266,
isco08 == 8157 ~ 8264,
isco08 == 8159 ~ 8269,
isco08 == 8160 ~ 8270,
isco08 == 8170 ~ 8140,
isco08 == 8171 ~ 8140,
isco08 == 8172 ~ 8141,
isco08 == 8180 ~ 8290,
isco08 == 8181 ~ 8131,
isco08 == 8182 ~ 8162,
isco08 == 8183 ~ 8290,
isco08 == 8189 ~ 8290,
isco08 == 8200 ~ 8200,
isco08 == 8210 ~ 8280,
isco08 == 8211 ~ 8281,
isco08 == 8212 ~ 8283,
isco08 == 8219 ~ 8290,
isco08 == 8300 ~ 8300,
isco08 == 8310 ~ 8310,
isco08 == 8311 ~ 8311,
isco08 == 8312 ~ 8312,
isco08 == 8320 ~ 8320,
isco08 == 8321 ~ 8321,
isco08 == 8322 ~ 8322,
isco08 == 8330 ~ 8320,
isco08 == 8331 ~ 8323,
isco08 == 8332 ~ 8324,
isco08 == 8340 ~ 8330,
isco08 == 8341 ~ 8331,
isco08 == 8342 ~ 8332,
isco08 == 8343 ~ 8333,
isco08 == 8344 ~ 8334,
isco08 == 8350 ~ 8340,
isco08 == 9000 ~ 9000,
isco08 == 9100 ~ 9100,
isco08 == 9110 ~ 9130,
isco08 == 9111 ~ 9131,
isco08 == 9112 ~ 9132,
isco08 == 9120 ~ 9140,
isco08 == 9121 ~ 9133,
isco08 == 9122 ~ 9142,
isco08 == 9123 ~ 9142,
isco08 == 9129 ~ 9140,
isco08 == 9200 ~ 9200,
isco08 == 9210 ~ 9210,
isco08 == 9211 ~ 9211,
isco08 == 9212 ~ 9211,
isco08 == 9213 ~ 9211,
isco08 == 9214 ~ 9211,
isco08 == 9215 ~ 9212,
isco08 == 9216 ~ 9213,
isco08 == 9300 ~ 9300,
isco08 == 9310 ~ 9310,
isco08 == 9311 ~ 9311,
isco08 == 9312 ~ 9312,
isco08 == 9313 ~ 9313,
isco08 == 9320 ~ 9320,
isco08 == 9321 ~ 9322,
isco08 == 9329 ~ 9320,
isco08 == 9330 ~ 9330,
isco08 == 9331 ~ 9331,
isco08 == 9332 ~ 9332,
isco08 == 9333 ~ 9333,
isco08 == 9334 ~ 9333,
isco08 == 9400 ~ 9100,
isco08 == 9410 ~ 9130,
isco08 == 9411 ~ 5122,
isco08 == 9412 ~ 9132,
isco08 == 9500 ~ 9100,
isco08 == 9510 ~ 9120,
isco08 == 9520 ~ 9112,
isco08 == 9600 ~ 9100,
isco08 == 9610 ~ 9160,
isco08 == 9611 ~ 9161,
isco08 == 9612 ~ 9161,
isco08 == 9613 ~ 9162,
isco08 == 9620 ~ 9140,
isco08 == 9621 ~ 9151,
isco08 == 9622 ~ 9160,
isco08 == 9623 ~ 9153,
isco08 == 9624 ~ 9160,
isco08 == 9629 ~ 9100,
isco08 == 9999 ~ 0000,
)
)
if (display.nas) display.nas(isco, conv.from="isco08", conv.to="isco88")
return(isco$isco88)
}
## {{{ docs }}}
#' Recode ISCO-68 into ISCO-88
#'
#' The function recodes ISCO-68 into ISCO-88.
#'
#' @param isco68 a numeric vector with the ISCO-68 codes
#' @param display.nas boolean. If true (defaul is \code{FALSE}), displays table with unmatched ISCO-68 codes.
#'
#' @return
#' It returns a vector with ISCO-88 codes.
#'
#' @export
## }}}
isco68to88 <- function(isco68, display.nas=FALSE)
{
## RECODE OF ISCO-68 INTO ISCO-88 based on http://www.harryganzeboom.nl/ISCO08/index.htm
## last update: 1992-08-25 .
isco = tibble::tibble(isco68=isco68)
isco = isco %>%
dplyr::mutate(
isco88 = dplyr::case_when(isco68 == 0100 ~ 2110,
isco68 == 0110 ~ 2113,
isco68 == 0120 ~ 2111,
isco68 == 0131 ~ 2114,
isco68 == 0132 ~ 2111,
isco68 == 0133 ~ 2112,
isco68 == 0140 ~ 3111,
isco68 == 0200 ~ 2140,
isco68 == 0210 ~ 2141,
isco68 == 0220 ~ 2142,
isco68 == 0230 ~ 2143,
isco68 == 0240 ~ 2145,
isco68 == 0250 ~ 2146,
isco68 == 0260 ~ 2147,
isco68 == 0270 ~ 2147,
isco68 == 0280 ~ 2149,
isco68 == 0290 ~ 2149,
isco68 == 0300 ~ 3110,
isco68 == 0310 ~ 2148,
isco68 == 0320 ~ 3118,
isco68 == 0321 ~ 3118,
isco68 == 0329 ~ 3118,
isco68 == 0330 ~ 3112,
isco68 == 0340 ~ 3113,
isco68 == 0340 ~ 3114,
isco68 == 0350 ~ 3115,
isco68 == 0360 ~ 3116,
isco68 == 0370 ~ 3117,
isco68 == 0380 ~ 3117,
isco68 == 0390 ~ 3119,
isco68 == 0400 ~ 3140,
isco68 == 0410 ~ 3143,
isco68 == 0411 ~ 3143,
isco68 == 0419 ~ 3143,
isco68 == 0420 ~ 3142,
isco68 == 0421 ~ 3142,
isco68 == 0429 ~ 3142,
isco68 == 0430 ~ 3141,
isco68 == 0500 ~ 2210,
isco68 == 0510 ~ 2211,
isco68 == 0520 ~ 2212,
isco68 == 0521 ~ 2212,
isco68 == 0529 ~ 2212,
isco68 == 0530 ~ 2213,
isco68 == 0531 ~ 3213,
isco68 == 0539 ~ 2213,
isco68 == 0540 ~ 3211,
isco68 == 0541 ~ 3212,
isco68 == 0549 ~ 3211,
isco68 == 0600 ~ 2221,
isco68 == 0610 ~ 2221,
isco68 == 0611 ~ 2221,
isco68 == 0619 ~ 2221,
isco68 == 0620 ~ 3221,
isco68 == 0630 ~ 2222,
isco68 == 0640 ~ 3225,
isco68 == 0650 ~ 2223,
isco68 == 0660 ~ 3227,
isco68 == 0670 ~ 2224,
isco68 == 0680 ~ 3228,
isco68 == 0690 ~ 3223,
isco68 == 0700 ~ 2230,
isco68 == 0710 ~ 2230,
isco68 == 0711 ~ 2230,
isco68 == 0719 ~ 2230,
isco68 == 0720 ~ 3231,
isco68 == 0730 ~ 2230,
isco68 == 0740 ~ 3232,
isco68 == 0750 ~ 3224,
isco68 == 0751 ~ 3224,
isco68 == 0759 ~ 3224,
isco68 == 0760 ~ 3226,
isco68 == 0761 ~ 3226,
isco68 == 0762 ~ 3226,
isco68 == 0769 ~ 3226,
isco68 == 0770 ~ 3133,
isco68 == 0780 ~ 3220,
isco68 == 0790 ~ 3229,
isco68 == 0791 ~ 3226,
isco68 == 0792 ~ 3241,
isco68 == 0793 ~ 3222,
isco68 == 0799 ~ 3229,
isco68 == 0800 ~ 2120,
isco68 == 0810 ~ 2122,
isco68 == 0820 ~ 2121,
isco68 == 0830 ~ 2131,
isco68 == 0840 ~ 3434,
isco68 == 0849 ~ 2132,
isco68 == 0900 ~ 2441,
isco68 == 1100 ~ 2411,
isco68 == 1101 ~ 2411,
isco68 == 1109 ~ 2411,
isco68 == 1200 ~ 2420,
isco68 == 1210 ~ 2421,
isco68 == 1211 ~ 2421,
isco68 == 1219 ~ 2421,
isco68 == 1220 ~ 2422,
isco68 == 1221 ~ 2422,
isco68 == 1222 ~ 2422,
isco68 == 1229 ~ 2422,
isco68 == 1290 ~ 2429,
isco68 == 1291 ~ 2429,
isco68 == 1299 ~ 2429,
isco68 == 0130 ~ 2110,
isco68 == 1300 ~ 2300,
isco68 == 1310 ~ 2310,
isco68 == 1311 ~ 1229,
isco68 == 1319 ~ 2310,
isco68 == 1320 ~ 2321,
isco68 == 1321 ~ 2323,
isco68 == 1329 ~ 2321,
isco68 == 1330 ~ 2331,
isco68 == 1340 ~ 2332,
isco68 == 1350 ~ 2340,
isco68 == 1390 ~ 2359,
isco68 == 1391 ~ 1229,
isco68 == 1392 ~ 2352,
isco68 == 1393 ~ 3300,
isco68 == 1394 ~ 1229,
isco68 == 1399 ~ 2322,
isco68 == 1400 ~ 2460,
isco68 == 1410 ~ 2460,
isco68 == 1411 ~ 2460,
isco68 == 1412 ~ 3480,
isco68 == 1413 ~ 2460,
isco68 == 1414 ~ 2460,
isco68 == 1415 ~ 2460,
isco68 == 1416 ~ 3480,
isco68 == 1419 ~ 2460,
isco68 == 1490 ~ 3480,
isco68 == 1491 ~ 3242,
isco68 == 1499 ~ 3480,
isco68 == 1500 ~ 2451,
isco68 == 1510 ~ 2451,
isco68 == 1511 ~ 2451,
isco68 == 1519 ~ 2451,
isco68 == 1590 ~ 2451,
isco68 == 1591 ~ 2451,
isco68 == 1592 ~ 2451,
isco68 == 1593 ~ 2419,
isco68 == 1599 ~ 2451,
isco68 == 1600 ~ 2450,
isco68 == 1610 ~ 2452,
isco68 == 1620 ~ 3471,
isco68 == 1621 ~ 3471,
isco68 == 1622 ~ 3471,
isco68 == 1629 ~ 3471,
isco68 == 1630 ~ 3131,
isco68 == 1631 ~ 3131,
isco68 == 1639 ~ 3131,
isco68 == 1700 ~ 3470,
isco68 == 1710 ~ 3473,
isco68 == 1711 ~ 2453,
isco68 == 1712 ~ 3473,
isco68 == 1713 ~ 3473,
isco68 == 1719 ~ 2453,
isco68 == 1720 ~ 3473,
isco68 == 1721 ~ 2454,
isco68 == 1729 ~ 3473,
isco68 == 1730 ~ 2455,
isco68 == 1731 ~ 2455,
isco68 == 1732 ~ 2455,
isco68 == 1739 ~ 2455,
isco68 == 1740 ~ 1229,
isco68 == 1749 ~ 1229,
isco68 == 1750 ~ 3474,
isco68 == 1790 ~ 3470,
isco68 == 1791 ~ 3473,
isco68 == 1799 ~ 3472,
isco68 == 1800 ~ 3475,
isco68 == 1801 ~ 3475,
isco68 == 1809 ~ 3475,
isco68 == 1900 ~ 2400,
isco68 == 1910 ~ 2432,
isco68 == 1920 ~ 2442,
isco68 == 1921 ~ 2445,
isco68 == 1922 ~ 2443,
isco68 == 1923 ~ 2443,
isco68 == 1924 ~ 2442,
isco68 == 1929 ~ 2442,
isco68 == 1930 ~ 2446,
isco68 == 1931 ~ 3460,
isco68 == 1939 ~ 2446,
isco68 == 1940 ~ 2412,
isco68 == 1941 ~ 2412,
isco68 == 1949 ~ 1232,
isco68 == 1950 ~ 2444,
isco68 == 1951 ~ 2444,
isco68 == 1959 ~ 2444,
isco68 == 1960 ~ 2000,
isco68 == 1990 ~ 3400,
isco68 == 1991 ~ 5150,
isco68 == 1992 ~ 3450,
isco68 == 1993 ~ 5113,
isco68 == 1994 ~ 3340,
isco68 == 1995 ~ 3429,
isco68 == 1999 ~ 3100,
isco68 == 2000 ~ 1110,
isco68 == 2010 ~ 1100,
isco68 == 2011 ~ 1120,
isco68 == 2012 ~ 1120,
isco68 == 2013 ~ 1120,
isco68 == 2014 ~ 1120,
isco68 == 2015 ~ 1130,
isco68 == 2020 ~ 1110,
isco68 == 2021 ~ 1110,
isco68 == 2022 ~ 1110,
isco68 == 2023 ~ 1110,
isco68 == 2024 ~ 1110,
isco68 == 2029 ~ 1110,
isco68 == 2030 ~ 1120,
isco68 == 2031 ~ 1120,
isco68 == 2032 ~ 1120,
isco68 == 2033 ~ 1120,
isco68 == 2034 ~ 1120,
isco68 == 2035 ~ 1120,
isco68 == 2036 ~ 1130,
isco68 == 2039 ~ 1120,
isco68 == 2100 ~ 1300,
isco68 == 2110 ~ 1200,
isco68 == 2110 ~ 1200,
isco68 == 2111 ~ 1210,
isco68 == 2112 ~ 1210,
isco68 == 2113 ~ 1319,
isco68 == 2114 ~ 1227,
isco68 == 2115 ~ 1227,
isco68 == 2116 ~ 1313,
isco68 == 2119 ~ 1210,
isco68 == 2119 ~ 1210,
isco68 == 2120 ~ 1220,
isco68 == 2190 ~ 1220,
isco68 == 2191 ~ 1230,
isco68 == 2192 ~ 1230,
isco68 == 2193 ~ 1230,
isco68 == 2194 ~ 1230,
isco68 == 2195 ~ 1141,
isco68 == 2196 ~ 1142,
isco68 == 2197 ~ 1142,
isco68 == 2199 ~ 1227,
isco68 == 3000 ~ 1231,
isco68 == 3009 ~ 1240,
isco68 == 3100 ~ 3440,
isco68 == 3101 ~ 3440,
isco68 == 3102 ~ 3444,
isco68 == 3103 ~ 3441,
isco68 == 3104 ~ 3442,
isco68 == 3109 ~ 3440,
isco68 == 3200 ~ 4110,
isco68 == 3210 ~ 4111,
isco68 == 3211 ~ 4115,
isco68 == 3219 ~ 4111,
isco68 == 3220 ~ 4113,
isco68 == 3300 ~ 3430,
isco68 == 3310 ~ 3433,
isco68 == 3311 ~ 4211,
isco68 == 3312 ~ 4211,
isco68 == 3313 ~ 4212,
isco68 == 3314 ~ 4212,
isco68 == 3315 ~ 4211,
isco68 == 3319 ~ 3433,
isco68 == 3390 ~ 4120,
isco68 == 3391 ~ 4215,
isco68 == 3399 ~ 4121,
isco68 == 3400 ~ 3120,
isco68 == 3410 ~ 4114,
isco68 == 3420 ~ 3122,
isco68 == 3500 ~ 4133,
isco68 == 3510 ~ 1226,
isco68 == 3520 ~ 1226,
isco68 == 3590 ~ 4133,
isco68 == 3600 ~ 5112,
isco68 == 3601 ~ 5112,
isco68 == 3602 ~ 5112,
isco68 == 3609 ~ 5112,
isco68 == 3700 ~ 4142,
isco68 == 3701 ~ 9151,
isco68 == 3709 ~ 4142,
isco68 == 3800 ~ 4223,
isco68 == 3801 ~ 3132,
isco68 == 3802 ~ 3132,
isco68 == 3809 ~ 4223,
isco68 == 3900 ~ 4100,
isco68 == 3910 ~ 4131,
isco68 == 3911 ~ 4131,
isco68 == 3919 ~ 4131,
isco68 == 3920 ~ 4132,
isco68 == 3930 ~ 4100,
isco68 == 3931 ~ 4100,
isco68 == 3932 ~ 3432,
isco68 == 3939 ~ 4100,
isco68 == 3940 ~ 4222,
isco68 == 3941 ~ 4133,
isco68 == 3942 ~ 4131,
isco68 == 3943 ~ 3414,
isco68 == 3944 ~ 4221,
isco68 == 3949 ~ 4222,
isco68 == 3950 ~ 4141,
isco68 == 3951 ~ 4141,
isco68 == 3959 ~ 4141,
isco68 == 3990 ~ 4190,
isco68 == 3991 ~ 4143,
isco68 == 3992 ~ 1141,
isco68 == 3993 ~ 9153,
isco68 == 3999 ~ 4143,
isco68 == 4000 ~ 1314,
isco68 == 4001 ~ 1317,
isco68 == 4002 ~ 1231,
isco68 == 4009 ~ 1314,
isco68 == 4100 ~ 1314,
isco68 == 4101 ~ 1224,
isco68 == 4102 ~ 5230,
isco68 == 4103 ~ 1224,
isco68 == 4104 ~ 3421,
isco68 == 4105 ~ 3421,
isco68 == 4106 ~ 1314,
isco68 == 4107 ~ 9333,
isco68 == 4108 ~ 3423,
isco68 == 4109 ~ 1314,
isco68 == 4200 ~ 1233,
isco68 == 4210 ~ 1233,
isco68 == 4220 ~ 3416,
isco68 == 4221 ~ 3416,
isco68 == 4222 ~ 3416,
isco68 == 4229 ~ 3416,
isco68 == 4300 ~ 3415,
isco68 == 4310 ~ 3415,
isco68 == 4311 ~ 3415,
isco68 == 4319 ~ 3415,
isco68 == 4320 ~ 3415,
isco68 == 4400 ~ 3410,
isco68 == 4410 ~ 3412,
isco68 == 4411 ~ 3413,
isco68 == 4412 ~ 3411,
isco68 == 4419 ~ 3412,
isco68 == 4420 ~ 3429,
isco68 == 4430 ~ 3417,
isco68 == 4431 ~ 3417,
isco68 == 4432 ~ 3417,
isco68 == 4500 ~ 5200,
isco68 == 4510 ~ 5220,
isco68 == 4511 ~ 5220,
isco68 == 4512 ~ 5220,
isco68 == 4513 ~ 5210,
isco68 == 4514 ~ 5220,
isco68 == 4519 ~ 5220,
isco68 == 4520 ~ 9110,
isco68 == 4521 ~ 9110,
isco68 == 4522 ~ 9113,
isco68 == 4523 ~ 9112,
isco68 == 4524 ~ 9113,
isco68 == 4525 ~ 9110,
isco68 == 4529 ~ 5230,
isco68 == 4900 ~ 5200,
isco68 == 5000 ~ 1315,
isco68 == 5001 ~ 1315,
isco68 == 5002 ~ 1225,
isco68 == 5009 ~ 1225,
isco68 == 5100 ~ 1315,
isco68 == 5100 ~ 5000,
isco68 == 5101 ~ 1315,
isco68 == 5102 ~ 1315,
isco68 == 5103 ~ 1315,
isco68 == 5104 ~ 1315,
isco68 == 5109 ~ 1315,
isco68 == 5200 ~ 5121,
isco68 == 5201 ~ 5121,
isco68 == 5209 ~ 5121,
isco68 == 5300 ~ 5120,
isco68 == 5310 ~ 5122,
isco68 == 5311 ~ 5122,
isco68 == 5312 ~ 9132,
isco68 == 5319 ~ 5122,
isco68 == 5320 ~ 5123,
isco68 == 5321 ~ 5123,
isco68 == 5322 ~ 5123,
isco68 == 5329 ~ 5123,
isco68 == 5400 ~ 9130,
isco68 == 5401 ~ 5131,
isco68 == 5402 ~ 9132,
isco68 == 5403 ~ 9152,
isco68 == 5409 ~ 5142,
isco68 == 5500 ~ 9140,
isco68 == 5510 ~ 9141,
isco68 == 5511 ~ 9141,
isco68 == 5512 ~ 9141,
isco68 == 5519 ~ 9141,
isco68 == 5520 ~ 9132,
isco68 == 5521 ~ 9142,
isco68 == 5522 ~ 7143,
isco68 == 5529 ~ 9132,
isco68 == 5600 ~ 8264,
isco68 == 5700 ~ 5141,
isco68 == 5701 ~ 5141,
isco68 == 5702 ~ 5141,
isco68 == 5703 ~ 5141,
isco68 == 5709 ~ 5141,
isco68 == 5800 ~ 5160,
isco68 == 5810 ~ 5161,
isco68 == 5820 ~ 5162,
isco68 == 5821 ~ 3451,
isco68 == 5822 ~ 1229,
isco68 == 5823 ~ 1229,
isco68 == 5829 ~ 5162,
isco68 == 5830 ~ 5164,
isco68 == 5831 ~ 1229,
isco68 == 5832 ~ 3452,
isco68 == 5833 ~ 5164,
isco68 == 5839 ~ 5164,
isco68 == 5890 ~ 5169,
isco68 == 5891 ~ 5163,
isco68 == 5892 ~ 3432,
isco68 == 5899 ~ 9152,
isco68 == 5900 ~ 5100,
isco68 == 5910 ~ 5113,
isco68 == 5920 ~ 5143,
isco68 == 5990 ~ 5100,
isco68 == 5991 ~ 9152,
isco68 == 5992 ~ 9151,
isco68 == 5993 ~ 9151,
isco68 == 5994 ~ 9152,
isco68 == 5995 ~ 9120,
isco68 == 5996 ~ 5111,
isco68 == 5997 ~ 4213,
isco68 == 5998 ~ 9151,
isco68 == 5999 ~ 5132,
isco68 == 6000 ~ 1311,
isco68 == 6001 ~ 6132,
isco68 == 6009 ~ 1311,
isco68 == 6100 ~ 6133,
isco68 == 6110 ~ 6133,
isco68 == 6111 ~ 1311,
isco68 == 6112 ~ 6210,
isco68 == 6113 ~ 6133,
isco68 == 6114 ~ 6133,
isco68 == 6115 ~ 6130,
isco68 == 6116 ~ 6130,
isco68 == 6117 ~ 9211,
isco68 == 6119 ~ 6133,
isco68 == 6120 ~ 6130,
isco68 == 6200 ~ 9211,
isco68 == 6210 ~ 9211,
isco68 == 6211 ~ 9211,
isco68 == 6219 ~ 9211,
isco68 == 6220 ~ 9211,
isco68 == 6230 ~ 9211,
isco68 == 6239 ~ 9211,
isco68 == 6240 ~ 9211,
isco68 == 6240 ~ 9211,
isco68 == 6250 ~ 9211,
isco68 == 6260 ~ 9211,
isco68 == 6270 ~ 9211,
isco68 == 6280 ~ 8331,
isco68 == 6290 ~ 9211,
isco68 == 6290 ~ 9200,
isco68 == 6291 ~ 9211,
isco68 == 6299 ~ 6100,
isco68 == 6300 ~ 9212,
isco68 == 6310 ~ 6141,
isco68 == 6311 ~ 6141,
isco68 == 6319 ~ 6141,
isco68 == 6320 ~ 9142,
isco68 == 6329 ~ 6141,
isco68 == 6400 ~ 6150,
isco68 == 6410 ~ 6150,
isco68 == 6411 ~ 6150,
isco68 == 6419 ~ 6150,
isco68 == 6490 ~ 6150,
isco68 == 6491 ~ 6154,
isco68 == 6499 ~ 9213,
isco68 == 7000 ~ 7510,
isco68 == 7001 ~ 7510,
isco68 == 7009 ~ 7510,
isco68 == 7100 ~ 7110,
isco68 == 7110 ~ 7111,
isco68 == 7111 ~ 7111,
isco68 == 7112 ~ 7111,
isco68 == 7113 ~ 7111,
isco68 == 7119 ~ 7111,
isco68 == 7120 ~ 8112,
isco68 == 7130 ~ 8113,
isco68 == 7139 ~ 8113,
isco68 == 7200 ~ 7220,
isco68 == 7210 ~ 8121,
isco68 == 7220 ~ 8122,
isco68 == 7230 ~ 8123,
isco68 == 7240 ~ 8122,
isco68 == 7250 ~ 7211,
isco68 == 7260 ~ 8123,
isco68 == 7270 ~ 8124,
isco68 == 7280 ~ 8223,
isco68 == 7290 ~ 8120,
isco68 == 7300 ~ 8140,
isco68 == 7310 ~ 8141,
isco68 == 7320 ~ 8141,
isco68 == 7321 ~ 7421,
isco68 == 7329 ~ 8141,
isco68 == 7330 ~ 8142,
isco68 == 7340 ~ 8143,
isco68 == 7400 ~ 8150,
isco68 == 7410 ~ 8151,
isco68 == 7420 ~ 8152,
isco68 == 7430 ~ 8153,
isco68 == 7440 ~ 8154,
isco68 == 7450 ~ 8155,
isco68 == 7490 ~ 8159,
isco68 == 7491 ~ 6142,
isco68 == 7499 ~ 8159,
isco68 == 7500 ~ 8260,
isco68 == 7510 ~ 8261,
isco68 == 7520 ~ 8261,
isco68 == 7530 ~ 7432,
isco68 == 7540 ~ 8262,
isco68 == 7541 ~ 7432,
isco68 == 7549 ~ 8262,
isco68 == 7550 ~ 8262,
isco68 == 7560 ~ 8264,
isco68 == 7590 ~ 8260,
isco68 == 7600 ~ 7441,
isco68 == 7610 ~ 7441,
isco68 == 7620 ~ 7441,
isco68 == 7700 ~ 8270,
isco68 == 7710 ~ 8273,
isco68 == 7711 ~ 8273,
isco68 == 7719 ~ 8273,
isco68 == 7720 ~ 8276,
isco68 == 7730 ~ 7411,
isco68 == 7731 ~ 8271,
isco68 == 7739 ~ 7411,
isco68 == 7740 ~ 8270,
isco68 == 7750 ~ 8272,
isco68 == 7760 ~ 7412,
isco68 == 7761 ~ 7412,
isco68 == 7769 ~ 7412,
isco68 == 7770 ~ 8277,
isco68 == 7780 ~ 8278,
isco68 == 7790 ~ 8270,
isco68 == 7799 ~ 7411,
isco68 == 7800 ~ 8279,
isco68 == 7810 ~ 8279,
isco68 == 7820 ~ 8279,
isco68 == 7830 ~ 8279,
isco68 == 7890 ~ 8279,
isco68 == 7900 ~ 7433,
isco68 == 7910 ~ 7433,
isco68 == 7911 ~ 7433,
isco68 == 7919 ~ 7433,
isco68 == 7920 ~ 7434,
isco68 == 7930 ~ 7433,
isco68 == 7940 ~ 7435,
isco68 == 7950 ~ 7436,
isco68 == 7960 ~ 7437,
isco68 == 0799 ~ 2221,
isco68 == 7990 ~ 8269,
isco68 == 8000 ~ 7442,
isco68 == 8010 ~ 7442,
isco68 == 8020 ~ 7442,
isco68 == 8030 ~ 7442,
isco68 == 8100 ~ 7420,
isco68 == 8110 ~ 7422,
isco68 == 8120 ~ 8240,
isco68 == 8190 ~ 7420,
isco68 == 8191 ~ 7422,
isco68 == 8199 ~ 7422,
isco68 == 8200 ~ 7113,
isco68 == 8300 ~ 7220,
isco68 == 8310 ~ 7221,
isco68 == 8311 ~ 7221,
isco68 == 8319 ~ 7221,
isco68 == 8320 ~ 7222,
isco68 == 8321 ~ 7222,
isco68 == 8329 ~ 7222,
isco68 == 8330 ~ 7223,
isco68 == 8331 ~ 7223,
isco68 == 8339 ~ 7223,
isco68 == 8340 ~ 8211,
isco68 == 8350 ~ 7224,
isco68 == 8350 ~ 8211,
isco68 == 8351 ~ 8223,
isco68 == 8359 ~ 7224,
isco68 == 8390 ~ 7220,
isco68 == 8400 ~ 7230,
isco68 == 8410 ~ 7230,
isco68 == 8411 ~ 8281,
isco68 == 8412 ~ 7233,
isco68 == 8419 ~ 7230,
isco68 == 8420 ~ 7311,
isco68 == 8421 ~ 7311,
isco68 == 8422 ~ 7311,
isco68 == 8429 ~ 7311,
isco68 == 8430 ~ 7231,
isco68 == 8431 ~ 1314,
isco68 == 8439 ~ 7231,
isco68 == 8440 ~ 7232,
isco68 == 8490 ~ 7230,
isco68 == 8491 ~ 7231,
isco68 == 8492 ~ 7233,
isco68 == 8493 ~ 8280,
isco68 == 8494 ~ 7234,
isco68 == 8499 ~ 7230,
isco68 == 8500 ~ 7240,
isco68 == 8510 ~ 7241,
isco68 == 8520 ~ 7242,
isco68 == 8530 ~ 8282,
isco68 == 8540 ~ 7243,
isco68 == 8550 ~ 7137,
isco68 == 8551 ~ 7137,
isco68 == 8559 ~ 7137,
isco68 == 8560 ~ 7244,
isco68 == 8570 ~ 7245,
isco68 == 8590 ~ 7240,
isco68 == 8600 ~ 3130,
isco68 == 8610 ~ 3132,
isco68 == 8620 ~ 3139,
isco68 == 8700 ~ 7210,
isco68 == 8710 ~ 7136,
isco68 == 8711 ~ 7136,
isco68 == 8719 ~ 7136,
isco68 == 8720 ~ 7212,
isco68 == 8730 ~ 7213,
isco68 == 8731 ~ 7213,
isco68 == 8732 ~ 7213,
isco68 == 8733 ~ 7213,
isco68 == 8739 ~ 7213,
isco68 == 8740 ~ 7214,
isco68 == 8800 ~ 7313,
isco68 == 8801 ~ 7313,
isco68 == 8809 ~ 7313,
isco68 == 8900 ~ 7320,
isco68 == 8910 ~ 7322,
isco68 == 8911 ~ 7322,
isco68 == 8919 ~ 7322,
isco68 == 8920 ~ 7321,
isco68 == 8930 ~ 8131,
isco68 == 8940 ~ 7323,
isco68 == 8950 ~ 7324,
isco68 == 8990 ~ 8130,
isco68 == 9000 ~ 8230,
isco68 == 9010 ~ 8230,
isco68 == 9020 ~ 8231,
isco68 == 9100 ~ 8253,
isco68 == 9200 ~ 7340,
isco68 == 9210 ~ 7341,
isco68 == 9211 ~ 7341,
isco68 == 9219 ~ 7341,
isco68 == 9220 ~ 8251,
isco68 == 9230 ~ 7342,
isco68 == 9240 ~ 7343,
isco68 == 9250 ~ 7343,
isco68 == 9260 ~ 7345,
isco68 == 9270 ~ 8224,
isco68 == 9290 ~ 7340,
isco68 == 9300 ~ 7241,
isco68 == 9310 ~ 7141,
isco68 == 9311 ~ 7141,
isco68 == 9319 ~ 7141,
isco68 == 9390 ~ 7142,
isco68 == 9400 ~ 7520,
isco68 == 9410 ~ 7312,
isco68 == 9420 ~ 7424,
isco68 == 9430 ~ 8212,
isco68 == 9490 ~ 7331,
isco68 == 9491 ~ 7331,
isco68 == 9492 ~ 7331,
isco68 == 9493 ~ 7331,
isco68 == 9499 ~ 8400,
isco68 == 9500 ~ 7120,
isco68 == 9510 ~ 7122,
isco68 == 9520 ~ 7123,
isco68 == 9530 ~ 7131,
isco68 == 9540 ~ 7124,
isco68 == 9541 ~ 7124,
isco68 == 9542 ~ 7124,
isco68 == 9549 ~ 7124,
isco68 == 9550 ~ 7133,
isco68 == 9551 ~ 7133,
isco68 == 9559 ~ 7133,
isco68 == 9560 ~ 7134,
isco68 == 9570 ~ 7135,
isco68 == 9590 ~ 7129,
isco68 == 9591 ~ 7129,
isco68 == 9592 ~ 7129,
isco68 == 9593 ~ 7129,
isco68 == 9594 ~ 7129,
isco68 == 9595 ~ 9313,
isco68 == 9596 ~ 7129,
isco68 == 9599 ~ 7141,
isco68 == 9600 ~ 8160,
isco68 == 9610 ~ 8161,
isco68 == 9690 ~ 8160,
isco68 == 9700 ~ 9330,
isco68 == 9710 ~ 9333,
isco68 == 9711 ~ 9333,
isco68 == 9712 ~ 9151,
isco68 == 9713 ~ 9151,
isco68 == 9714 ~ 9322,
isco68 == 9719 ~ 9333,
isco68 == 9720 ~ 7215,
isco68 == 9730 ~ 8333,
isco68 == 9731 ~ 8333,
isco68 == 9739 ~ 8333,
isco68 == 9740 ~ 8332,
isco68 == 9790 ~ 8334,
isco68 == 9800 ~ 8320,
isco68 == 9810 ~ 8340,
isco68 == 9811 ~ 8340,
isco68 == 9819 ~ 8340,
isco68 == 9820 ~ 8162,
isco68 == 9830 ~ 8311,
isco68 == 9831 ~ 8311,
isco68 == 9832 ~ 8311,
isco68 == 9839 ~ 8311,
isco68 == 9839 ~ 8311,
isco68 == 9840 ~ 8312,
isco68 == 9850 ~ 8320,
isco68 == 9851 ~ 8323,
isco68 == 9852 ~ 8324,
isco68 == 9853 ~ 8324,
isco68 == 9854 ~ 9333,
isco68 == 9855 ~ 3340,
isco68 == 9859 ~ 8322,
isco68 == 9860 ~ 9332,
isco68 == 9861 ~ 9332,
isco68 == 9869 ~ 9332,
isco68 == 9890 ~ 8320,
isco68 == 9891 ~ 8312,
isco68 == 9899 ~ 9331,
isco68 == 9900 ~ 9300,
isco68 == 9950 ~ 7520,
isco68 == 9951 ~ 7520,
isco68 == 9959 ~ 7520,
isco68 == 9970 ~ 8290,
isco68 == 9971 ~ 7530,
isco68 == 9979 ~ 8280,
isco68 == 9990 ~ 9300,
isco68 == 9991 ~ 9320,
isco68 == 9992 ~ 9320,
isco68 == 9993 ~ 9320,
isco68 == 9994 ~ 9312,
isco68 == 9995 ~ 9162,
isco68 == 9996 ~ 9161,
isco68 == 9997 ~ 9312,
isco68 == 9999 ~ 9300,
isco68 == 12000 ~ 0000,
isco68 == 10000 ~ 3452,
isco68 == 10001 ~ 1229,
isco68 == 10002 ~ 3452,
isco68 == 10003 ~ 5164,
isco68 == 10009 ~ 1229,
isco68 == 7899 ~ 7416,
isco68 == 7732 ~ 7411,
isco68 == 6322 ~ 6112,
isco68 == 6321 ~ 6141,
isco68 == 4439 ~ 3417,
isco68 == 2019 ~ 1210,
isco68 == 0339 ~ 3112,
isco68 == 0139 ~ 2120
)
)
if (display.nas) display.nas(isco, conv.from="isco68", conv.to="isco88")
return(isco$isco88)
}
## -----
## to 08
## -----
## {{{ docs }}}
#' Recode ISCO-68 into ISCO-08
#'
#' The function recodes ISCO-68 into ISCO-08.
#'
#' @param isco68 a numeric vector with the ISCO-68 codes
#' @param display.nas boolean. If true (defaul is \code{FALSE}), displays table with unmatched ISCO-68 codes.
#'
#' @return
#' It returns a vector with ISCO-08 codes.
#'
#' @export
## }}}
isco68to08 <- function(isco68, display.nas=FALSE)
{
## RECODE OF ISCO-68 INTO ISCO-08 based on http://www.harryganzeboom.nl/ISCO08/index.htm
## Conversion Table Version 13 Aug 2015
isco = tibble::tibble(isco68=isco68)
isco = isco %>%
dplyr::mutate(isco08 = dplyr::case_when(isco68 == 0100 ~ 2110,
isco68 == 0110 ~ 2113,
isco68 == 0120 ~ 2111,
isco68 == 0130 ~ 2110,
isco68 == 0131 ~ 2114,
isco68 == 0132 ~ 2111,
isco68 == 0133 ~ 2112,
isco68 == 0139 ~ 2110,
isco68 == 0140 ~ 3111,
isco68 == 0200 ~ 2140,
isco68 == 0210 ~ 2160,
isco68 == 0220 ~ 2142,
isco68 == 0230 ~ 2151,
isco68 == 0240 ~ 2144,
isco68 == 0250 ~ 2145,
isco68 == 0260 ~ 2146,
isco68 == 0270 ~ 2146,
isco68 == 0280 ~ 2141,
isco68 == 0290 ~ 2149,
isco68 == 0300 ~ 3110,
isco68 == 0310 ~ 2165,
isco68 == 0320 ~ 3118,
isco68 == 0321 ~ 3118,
isco68 == 0329 ~ 3118,
isco68 == 0330 ~ 3112,
isco68 == 0339 ~ 3119,
isco68 == 0340 ~ 3113,
isco68 == 0350 ~ 3115,
isco68 == 0360 ~ 3116,
isco68 == 0370 ~ 3117,
isco68 == 0380 ~ 3117,
isco68 == 0390 ~ 3119,
isco68 == 0400 ~ 3150,
isco68 == 0410 ~ 3153,
isco68 == 0411 ~ 3153,
isco68 == 0419 ~ 3153,
isco68 == 0420 ~ 3152,
isco68 == 0421 ~ 3152,
isco68 == 0429 ~ 3152,
isco68 == 0430 ~ 3151,
isco68 == 0500 ~ 2130,
isco68 == 0510 ~ 2131,
isco68 == 0520 ~ 2131,
isco68 == 0521 ~ 2130,
isco68 == 0529 ~ 2131,
isco68 == 0530 ~ 2131,
isco68 == 0530 ~ 2131,
isco68 == 0531 ~ 3142,
isco68 == 0540 ~ 3141,
isco68 == 0541 ~ 3142,
isco68 == 0549 ~ 3210,
isco68 == 0600 ~ 2200,
isco68 == 0610 ~ 2210,
isco68 == 0611 ~ 2210,
isco68 == 0619 ~ 2210,
isco68 == 0620 ~ 3256,
isco68 == 0630 ~ 2261,
isco68 == 0640 ~ 3251,
isco68 == 0650 ~ 2250,
isco68 == 0660 ~ 3240,
isco68 == 0670 ~ 2262,
isco68 == 0680 ~ 3213,
isco68 == 0690 ~ 2265,
isco68 == 0700 ~ 2220,
isco68 == 0710 ~ 2221,
isco68 == 0711 ~ 2221,
isco68 == 0719 ~ 2221,
isco68 == 0720 ~ 3221,
isco68 == 0730 ~ 2222,
isco68 == 0740 ~ 3222,
isco68 == 0750 ~ 2267,
isco68 == 0751 ~ 3254,
isco68 == 0759 ~ 2267,
isco68 == 0760 ~ 2264,
isco68 == 0761 ~ 2264,
isco68 == 0762 ~ 3259,
isco68 == 0769 ~ 2264,
isco68 == 0770 ~ 3211,
isco68 == 0780 ~ 2240,
isco68 == 0790 ~ 3259,
isco68 == 0791 ~ 3259,
isco68 == 0792 ~ 3230,
isco68 == 0793 ~ 3257,
isco68 == 0799 ~ 3259,
isco68 == 0800 ~ 2120,
isco68 == 0810 ~ 2120,
isco68 == 0820 ~ 2120,
isco68 == 0830 ~ 2511,
isco68 == 0840 ~ 3314,
isco68 == 0849 ~ 2514,
isco68 == 0900 ~ 2631,
isco68 == 1100 ~ 2411,
isco68 == 1101 ~ 2411,
isco68 == 1109 ~ 2411,
isco68 == 1200 ~ 2610,
isco68 == 1210 ~ 2611,
isco68 == 1211 ~ 2611,
isco68 == 1219 ~ 1220,
isco68 == 1219 ~ 2611,
isco68 == 1220 ~ 2612,
isco68 == 1221 ~ 2612,
isco68 == 1222 ~ 2612,
isco68 == 1229 ~ 2612,
isco68 == 1290 ~ 2619,
isco68 == 1291 ~ 2619,
isco68 == 1299 ~ 2611,
isco68 == 1300 ~ 2300,
isco68 == 1310 ~ 2310,
isco68 == 1311 ~ 2310,
isco68 == 1319 ~ 2310,
isco68 == 1320 ~ 2330,
isco68 == 1321 ~ 2330,
isco68 == 1329 ~ 2330,
isco68 == 1330 ~ 2341,
isco68 == 1340 ~ 2342,
isco68 == 1350 ~ 2352,
isco68 == 1390 ~ 2350,
isco68 == 1391 ~ 1345,
isco68 == 1392 ~ 2359,
isco68 == 1393 ~ 5312,
isco68 == 1394 ~ 1345,
isco68 == 1399 ~ 2320,
isco68 == 1400 ~ 2636,
isco68 == 1410 ~ 2636,
isco68 == 1411 ~ 2636,
isco68 == 1412 ~ 3413,
isco68 == 1413 ~ 2636,
isco68 == 1414 ~ 2636,
isco68 == 1415 ~ 3413,
isco68 == 1416 ~ 2636,
isco68 == 1419 ~ 2636,
isco68 == 1490 ~ 3413,
isco68 == 1491 ~ 5161,
isco68 == 1499 ~ 3413,
isco68 == 1500 ~ 2641,
isco68 == 1510 ~ 2641,
isco68 == 1511 ~ 2641,
isco68 == 1519 ~ 2641,
isco68 == 1590 ~ 2641,
isco68 == 1591 ~ 2642,
isco68 == 1592 ~ 2431,
isco68 == 1593 ~ 2432,
isco68 == 1599 ~ 2642,
isco68 == 1600 ~ 2650,
isco68 == 1610 ~ 2651,
isco68 == 1620 ~ 3435,
isco68 == 1621 ~ 3435,
isco68 == 1622 ~ 3432,
isco68 == 1629 ~ 3435,
isco68 == 1630 ~ 3431,
isco68 == 1631 ~ 3521,
isco68 == 1639 ~ 3431,
isco68 == 1700 ~ 2650,
isco68 == 1710 ~ 2652,
isco68 == 1711 ~ 2652,
isco68 == 1712 ~ 2652,
isco68 == 1713 ~ 2652,
isco68 == 1719 ~ 2652,
isco68 == 1720 ~ 2653,
isco68 == 1721 ~ 2653,
isco68 == 1729 ~ 2653,
isco68 == 1730 ~ 2655,
isco68 == 1731 ~ 2655,
isco68 == 1732 ~ 2654,
isco68 == 1739 ~ 2655,
isco68 == 1740 ~ 2654,
isco68 == 1749 ~ 2654,
isco68 == 1750 ~ 2659,
isco68 == 1790 ~ 2650,
isco68 == 1791 ~ 2652,
isco68 == 1799 ~ 2656,
isco68 == 1800 ~ 3421,
isco68 == 1801 ~ 3422,
isco68 == 1809 ~ 3421,
isco68 == 1900 ~ 2000,
isco68 == 1910 ~ 2622,
isco68 == 1920 ~ 2632,
isco68 == 1921 ~ 2634,
isco68 == 1922 ~ 2633,
isco68 == 1923 ~ 2633,
isco68 == 1924 ~ 2632,
isco68 == 1929 ~ 2632,
isco68 == 1930 ~ 2635,
isco68 == 1931 ~ 3412,
isco68 == 1939 ~ 2635,
isco68 == 1940 ~ 2423,
isco68 == 1941 ~ 2423,
isco68 == 1949 ~ 1212,
isco68 == 1950 ~ 2643,
isco68 == 1951 ~ 2643,
isco68 == 1959 ~ 2643,
isco68 == 1960 ~ 2000,
isco68 == 1990 ~ 3000,
isco68 == 1991 ~ 5161,
isco68 == 1992 ~ 3100,
isco68 == 1993 ~ 3421,
isco68 == 1994 ~ 2635,
isco68 == 1995 ~ 3339,
isco68 == 1999 ~ 3100,
isco68 == 2000 ~ 1112,
isco68 == 2010 ~ 1112,
isco68 == 2011 ~ 1112,
isco68 == 2012 ~ 1112,
isco68 == 2013 ~ 1112,
isco68 == 2014 ~ 1112,
isco68 == 2015 ~ 1113,
isco68 == 2019 ~ 1112,
isco68 == 2020 ~ 1111,
isco68 == 2021 ~ 1111,
isco68 == 2022 ~ 1111,
isco68 == 2023 ~ 1111,
isco68 == 2024 ~ 1111,
isco68 == 2029 ~ 1111,
isco68 == 2030 ~ 1112,
isco68 == 2031 ~ 1112,
isco68 == 2032 ~ 1112,
isco68 == 2033 ~ 1112,
isco68 == 2034 ~ 1112,
isco68 == 2035 ~ 1112,
isco68 == 2036 ~ 1113,
isco68 == 2039 ~ 1112,
isco68 == 2100 ~ 1200,
isco68 == 2110 ~ 1120,
isco68 == 2111 ~ 1120,
isco68 == 2112 ~ 1120,
isco68 == 2113 ~ 1200,
isco68 == 2114 ~ 1210,
isco68 == 2115 ~ 1210,
isco68 == 2116 ~ 1323,
isco68 == 2119 ~ 1120,
isco68 == 2120 ~ 1321,
isco68 == 2190 ~ 1200,
isco68 == 2191 ~ 1200,
isco68 == 2192 ~ 1200,
isco68 == 2193 ~ 1200,
isco68 == 2194 ~ 1200,
isco68 == 2195 ~ 1114,
isco68 == 2196 ~ 1114,
isco68 == 2197 ~ 1114,
isco68 == 2199 ~ 1210,
isco68 == 3000 ~ 4000,
isco68 == 3009 ~ 3341,
isco68 == 3100 ~ 3350,
isco68 == 3101 ~ 3350,
isco68 == 3102 ~ 3112,
isco68 == 3103 ~ 3351,
isco68 == 3104 ~ 3352,
isco68 == 3109 ~ 3350,
isco68 == 3200 ~ 4131,
isco68 == 3210 ~ 4120,
isco68 == 3211 ~ 4120,
isco68 == 3219 ~ 4131,
isco68 == 3220 ~ 4132,
isco68 == 3300 ~ 3313,
isco68 == 3310 ~ 3313,
isco68 == 3311 ~ 5230,
isco68 == 3312 ~ 5230,
isco68 == 3313 ~ 4211,
isco68 == 3314 ~ 4211,
isco68 == 3315 ~ 5230,
isco68 == 3319 ~ 3313,
isco68 == 3390 ~ 4311,
isco68 == 3391 ~ 4214,
isco68 == 3399 ~ 4310,
isco68 == 3400 ~ 3500,
isco68 == 3410 ~ 4132,
isco68 == 3420 ~ 3511,
isco68 == 3500 ~ 1324,
isco68 == 3510 ~ 1324,
isco68 == 3520 ~ 1324,
isco68 == 3590 ~ 4323,
isco68 == 3600 ~ 5112,
isco68 == 3601 ~ 5112,
isco68 == 3602 ~ 5111,
isco68 == 3609 ~ 5112,
isco68 == 3700 ~ 4412,
isco68 == 3701 ~ 9621,
isco68 == 3709 ~ 4412,
isco68 == 3800 ~ 4223,
isco68 == 3801 ~ 3521,
isco68 == 3802 ~ 3521,
isco68 == 3809 ~ 4223,
isco68 == 3900 ~ 4100,
isco68 == 3910 ~ 4321,
isco68 == 3911 ~ 4323,
isco68 == 3919 ~ 4321,
isco68 == 3920 ~ 4322,
isco68 == 3930 ~ 4100,
isco68 == 3931 ~ 4100,
isco68 == 3932 ~ 3411,
isco68 == 3939 ~ 4100,
isco68 == 3940 ~ 4226,
isco68 == 3941 ~ 4323,
isco68 == 3942 ~ 9621,
isco68 == 3943 ~ 4221,
isco68 == 3944 ~ 4226,
isco68 == 3949 ~ 4226,
isco68 == 3950 ~ 4411,
isco68 == 3951 ~ 4415,
isco68 == 3959 ~ 4411,
isco68 == 3990 ~ 4419,
isco68 == 3992 ~ 4419,
isco68 == 3993 ~ 9623,
isco68 == 3999 ~ 4413,
isco68 == 4000 ~ 1420,
isco68 == 4001 ~ 5222,
isco68 == 4002 ~ 1211,
isco68 == 4009 ~ 1420,
isco68 == 4100 ~ 5221,
isco68 == 4101 ~ 1420,
isco68 == 4102 ~ 5211,
isco68 == 4103 ~ 1420,
isco68 == 4104 ~ 3324,
isco68 == 4105 ~ 3324,
isco68 == 4106 ~ 1420,
isco68 == 4107 ~ 9629,
isco68 == 4108 ~ 3333,
isco68 == 4109 ~ 5221,
isco68 == 4200 ~ 1221,
isco68 == 4210 ~ 1221,
isco68 == 4220 ~ 3323,
isco68 == 4221 ~ 3323,
isco68 == 4222 ~ 3323,
isco68 == 4229 ~ 3323,
isco68 == 4300 ~ 2433,
isco68 == 4310 ~ 2433,
isco68 == 4311 ~ 3322,
isco68 == 4319 ~ 2433,
isco68 == 4320 ~ 3322,
isco68 == 4400 ~ 3321,
isco68 == 4410 ~ 3321,
isco68 == 4411 ~ 3334,
isco68 == 4412 ~ 3311,
isco68 == 4419 ~ 3321,
isco68 == 4420 ~ 3339,
isco68 == 4430 ~ 3339,
isco68 == 4431 ~ 3315,
isco68 == 4432 ~ 3315,
isco68 == 4439 ~ 3339,
isco68 == 4500 ~ 5200,
isco68 == 4510 ~ 5220,
isco68 == 4511 ~ 5220,
isco68 == 4512 ~ 5245,
isco68 == 4513 ~ 5241,
isco68 == 4514 ~ 5220,
isco68 == 4519 ~ 5220,
isco68 == 4520 ~ 9520,
isco68 == 4521 ~ 9520,
isco68 == 4522 ~ 5244,
isco68 == 4523 ~ 9520,
isco68 == 4524 ~ 5243,
isco68 == 4525 ~ 9520,
isco68 == 4529 ~ 5211,
isco68 == 4900 ~ 5200,
isco68 == 5000 ~ 1410,
isco68 == 5001 ~ 1411,
isco68 == 5002 ~ 1411,
isco68 == 5009 ~ 1412,
isco68 == 5100 ~ 1411,
isco68 == 5101 ~ 1412,
isco68 == 5102 ~ 1411,
isco68 == 5103 ~ 1411,
isco68 == 5104 ~ 1412,
isco68 == 5109 ~ 1412,
isco68 == 5200 ~ 5151,
isco68 == 5201 ~ 5151,
isco68 == 5209 ~ 5151,
isco68 == 5300 ~ 5120,
isco68 == 5310 ~ 5120,
isco68 == 5311 ~ 3434,
isco68 == 5312 ~ 9412,
isco68 == 5319 ~ 5120,
isco68 == 5320 ~ 5131,
isco68 == 5321 ~ 5132,
isco68 == 5322 ~ 5246,
isco68 == 5329 ~ 5131,
isco68 == 5400 ~ 9100,
isco68 == 5401 ~ 5311,
isco68 == 5402 ~ 9112,
isco68 == 5403 ~ 4224,
isco68 == 5409 ~ 5162,
isco68 == 5500 ~ 5153,
isco68 == 5510 ~ 5153,
isco68 == 5511 ~ 5151,
isco68 == 5512 ~ 5153,
isco68 == 5519 ~ 5153,
isco68 == 5520 ~ 9112,
isco68 == 5521 ~ 9123,
isco68 == 5522 ~ 7133,
isco68 == 5529 ~ 9112,
isco68 == 5600 ~ 8154,
isco68 == 5700 ~ 5141,
isco68 == 5701 ~ 5141,
isco68 == 5702 ~ 5141,
isco68 == 5703 ~ 1439,
isco68 == 5709 ~ 5141,
isco68 == 5800 ~ 5410,
isco68 == 5810 ~ 5411,
isco68 == 5820 ~ 5412,
isco68 == 5821 ~ 5412,
isco68 == 5822 ~ 1349,
isco68 == 5823 ~ 5412,
isco68 == 5829 ~ 5412,
isco68 == 5830 ~ 0000,
isco68 == 5831 ~ 0100,
isco68 == 5832 ~ 0200,
isco68 == 5833 ~ 0300,
isco68 == 5839 ~ 0300,
isco68 == 5890 ~ 5414,
isco68 == 5891 ~ 5413,
isco68 == 5892 ~ 3411,
isco68 == 5899 ~ 5414,
isco68 == 5900 ~ 5100,
isco68 == 5910 ~ 5414,
isco68 == 5920 ~ 5163,
isco68 == 5990 ~ 5329,
isco68 == 5990 ~ 5100,
isco68 == 5991 ~ 5414,
isco68 == 5992 ~ 9629,
isco68 == 5993 ~ 9621,
isco68 == 5994 ~ 5414,
isco68 == 5995 ~ 9510,
isco68 == 5996 ~ 5111,
isco68 == 5997 ~ 4212,
isco68 == 5998 ~ 9621,
isco68 == 5999 ~ 5321,
isco68 == 0539 ~ 2131,
isco68 == 6000 ~ 6100,
isco68 == 6001 ~ 6100,
isco68 == 6009 ~ 1311,
isco68 == 6100 ~ 6100,
isco68 == 6110 ~ 6100,
isco68 == 6111 ~ 1311,
isco68 == 6112 ~ 6100,
isco68 == 6113 ~ 6100,
isco68 == 6114 ~ 6100,
isco68 == 6115 ~ 6100,
isco68 == 6116 ~ 6100,
isco68 == 6117 ~ 9210,
isco68 == 6119 ~ 6100,
isco68 == 6120 ~ 6100,
isco68 == 6200 ~ 9210,
isco68 == 6210 ~ 9210,
isco68 == 6211 ~ 9210,
isco68 == 6219 ~ 9210,
isco68 == 6220 ~ 9211,
isco68 == 6230 ~ 9214,
isco68 == 6239 ~ 9214,
isco68 == 6240 ~ 9212,
isco68 == 6250 ~ 9212,
isco68 == 6260 ~ 9212,
isco68 == 6270 ~ 9214,
isco68 == 6280 ~ 8341,
isco68 == 6290 ~ 9210,
isco68 == 6291 ~ 6340,
isco68 == 6299 ~ 6100,
isco68 == 6300 ~ 6210,
isco68 == 6310 ~ 6210,
isco68 == 6311 ~ 6210,
isco68 == 6319 ~ 6210,
isco68 == 6320 ~ 9215,
isco68 == 6321 ~ 6210,
isco68 == 6322 ~ 6113,
isco68 == 6329 ~ 6210,
isco68 == 6400 ~ 6220,
isco68 == 6410 ~ 6220,
isco68 == 6411 ~ 6220,
isco68 == 6419 ~ 6220,
isco68 == 6490 ~ 6220,
isco68 == 6491 ~ 6224,
isco68 == 6499 ~ 6223,
isco68 == 7000 ~ 3120,
isco68 == 7001 ~ 3120,
isco68 == 7009 ~ 3120,
isco68 == 7100 ~ 8110,
isco68 == 7110 ~ 8111,
isco68 == 7111 ~ 8111,
isco68 == 7112 ~ 8111,
isco68 == 7113 ~ 8111,
isco68 == 7119 ~ 8111,
isco68 == 7120 ~ 8112,
isco68 == 7130 ~ 8113,
isco68 == 7139 ~ 8113,
isco68 == 7200 ~ 8120,
isco68 == 7210 ~ 8121,
isco68 == 7220 ~ 8121,
isco68 == 7230 ~ 8121,
isco68 == 7240 ~ 7211,
isco68 == 7250 ~ 7211,
isco68 == 7260 ~ 8121,
isco68 == 7270 ~ 8121,
isco68 == 7280 ~ 8122,
isco68 == 7290 ~ 8120,
isco68 == 7300 ~ 8172,
isco68 == 7310 ~ 8172,
isco68 == 7320 ~ 8172,
isco68 == 7321 ~ 7543,
isco68 == 7329 ~ 8172,
isco68 == 7330 ~ 8171,
isco68 == 7340 ~ 8171,
isco68 == 7400 ~ 8130,
isco68 == 7410 ~ 8131,
isco68 == 7420 ~ 8131,
isco68 == 7430 ~ 8131,
isco68 == 7440 ~ 3134,
isco68 == 7450 ~ 8131,
isco68 == 7490 ~ 8131,
isco68 == 7491 ~ 6210,
isco68 == 7499 ~ 8131,
isco68 == 7500 ~ 8150,
isco68 == 7510 ~ 8151,
isco68 == 7520 ~ 8151,
isco68 == 7530 ~ 8152,
isco68 == 7540 ~ 8152,
isco68 == 7541 ~ 7543,
isco68 == 7549 ~ 8152,
isco68 == 7550 ~ 8152,
isco68 == 7560 ~ 8154,
isco68 == 7590 ~ 8150,
isco68 == 7600 ~ 7535,
isco68 == 7610 ~ 7535,
isco68 == 7620 ~ 7535,
isco68 == 7700 ~ 7515,
isco68 == 7710 ~ 8160,
isco68 == 7711 ~ 8160,
isco68 == 7719 ~ 8160,
isco68 == 7720 ~ 8160,
isco68 == 7730 ~ 7511,
isco68 == 7731 ~ 7511,
isco68 == 7732 ~ 7511,
isco68 == 7739 ~ 7511,
isco68 == 7740 ~ 8160,
isco68 == 7750 ~ 7513,
isco68 == 7760 ~ 7512,
isco68 == 7761 ~ 7512,
isco68 == 7769 ~ 7512,
isco68 == 7770 ~ 7515,
isco68 == 7780 ~ 7515,
isco68 == 7790 ~ 7515,
isco68 == 7799 ~ 7511,
isco68 == 7800 ~ 7516,
isco68 == 7810 ~ 7516,
isco68 == 7820 ~ 7516,
isco68 == 7830 ~ 7516,
isco68 == 7890 ~ 7516,
isco68 == 7899 ~ 7516,
isco68 == 7900 ~ 7531,
isco68 == 7910 ~ 7531,
isco68 == 7911 ~ 7531,
isco68 == 7919 ~ 7531,
isco68 == 7920 ~ 7531,
isco68 == 7930 ~ 7531,
isco68 == 7940 ~ 7532,
isco68 == 7950 ~ 7533,
isco68 == 7960 ~ 7534,
isco68 == 7990 ~ 7531,
isco68 == 8000 ~ 7536,
isco68 == 8010 ~ 7536,
isco68 == 8020 ~ 7536,
isco68 == 8030 ~ 7536,
isco68 == 8100 ~ 7520,
isco68 == 8110 ~ 7522,
isco68 == 8120 ~ 7523,
isco68 == 8190 ~ 7520,
isco68 == 8191 ~ 7522,
isco68 == 8199 ~ 7522,
isco68 == 8200 ~ 7113,
isco68 == 8300 ~ 7220,
isco68 == 8310 ~ 7221,
isco68 == 8311 ~ 7221,
isco68 == 8319 ~ 7221,
isco68 == 8320 ~ 7222,
isco68 == 8321 ~ 7222,
isco68 == 8329 ~ 7222,
isco68 == 8330 ~ 7223,
isco68 == 8331 ~ 7223,
isco68 == 8339 ~ 7223,
isco68 == 8340 ~ 8100,
isco68 == 8350 ~ 7224,
isco68 == 8351 ~ 7224,
isco68 == 8359 ~ 7224,
isco68 == 8390 ~ 7222,
isco68 == 8400 ~ 7230,
isco68 == 8410 ~ 7230,
isco68 == 8411 ~ 7232,
isco68 == 8412 ~ 7223,
isco68 == 8419 ~ 7230,
isco68 == 8420 ~ 7311,
isco68 == 8421 ~ 7311,
isco68 == 8422 ~ 3214,
isco68 == 8429 ~ 7311,
isco68 == 8430 ~ 7231,
isco68 == 8431 ~ 1439,
isco68 == 8439 ~ 7231,
isco68 == 8440 ~ 7232,
isco68 == 8490 ~ 7230,
isco68 == 8491 ~ 7234,
isco68 == 8492 ~ 7230,
isco68 == 8493 ~ 8210,
isco68 == 8494 ~ 9620,
isco68 == 8499 ~ 7230,
isco68 == 8500 ~ 7420,
isco68 == 8510 ~ 7412,
isco68 == 8520 ~ 7421,
isco68 == 8530 ~ 8212,
isco68 == 8540 ~ 7421,
isco68 == 8550 ~ 7411,
isco68 == 8551 ~ 7411,
isco68 == 8559 ~ 7411,
isco68 == 8560 ~ 7422,
isco68 == 8570 ~ 7413,
isco68 == 8590 ~ 7420,
isco68 == 8600 ~ 3521,
isco68 == 8610 ~ 3521,
isco68 == 8620 ~ 3521,
isco68 == 8700 ~ 7126,
isco68 == 8710 ~ 7126,
isco68 == 8711 ~ 7126,
isco68 == 8719 ~ 7126,
isco68 == 8720 ~ 7212,
isco68 == 8730 ~ 7213,
isco68 == 8731 ~ 7213,
isco68 == 8732 ~ 7213,
isco68 == 8733 ~ 7213,
isco68 == 8739 ~ 7213,
isco68 == 8740 ~ 7214,
isco68 == 8800 ~ 7313,
isco68 == 8801 ~ 7313,
isco68 == 8809 ~ 7313,
isco68 == 8900 ~ 7315,
isco68 == 8910 ~ 7315,
isco68 == 8911 ~ 7315,
isco68 == 8919 ~ 7549,
isco68 == 8920 ~ 7314,
isco68 == 8930 ~ 7315,
isco68 == 8940 ~ 7316,
isco68 == 8950 ~ 7316,
isco68 == 8990 ~ 7315,
isco68 == 9000 ~ 8140,
isco68 == 9010 ~ 8140,
isco68 == 9020 ~ 8141,
isco68 == 9100 ~ 8143,
isco68 == 9200 ~ 7320,
isco68 == 9210 ~ 7321,
isco68 == 9211 ~ 7322,
isco68 == 9219 ~ 7322,
isco68 == 9220 ~ 7322,
isco68 == 9230 ~ 7321,
isco68 == 9240 ~ 7321,
isco68 == 9250 ~ 7321,
isco68 == 9260 ~ 7323,
isco68 == 9270 ~ 8132,
isco68 == 9290 ~ 7320,
isco68 == 9300 ~ 7131,
isco68 == 9310 ~ 7131,
isco68 == 9311 ~ 7131,
isco68 == 9319 ~ 7131,
isco68 == 9390 ~ 7132,
isco68 == 9400 ~ 8000,
isco68 == 9410 ~ 7312,
isco68 == 9420 ~ 7317,
isco68 == 9430 ~ 8114,
isco68 == 9490 ~ 7549,
isco68 == 9491 ~ 7317,
isco68 == 9492 ~ 7319,
isco68 == 9493 ~ 7317,
isco68 == 9499 ~ 7543,
isco68 == 9500 ~ 7100,
isco68 == 9510 ~ 7112,
isco68 == 9520 ~ 7114,
isco68 == 9530 ~ 7121,
isco68 == 9540 ~ 7115,
isco68 == 9541 ~ 7115,
isco68 == 9542 ~ 7115,
isco68 == 9549 ~ 7115,
isco68 == 9550 ~ 7123,
isco68 == 9551 ~ 7123,
isco68 == 9559 ~ 7123,
isco68 == 9560 ~ 7124,
isco68 == 9570 ~ 7125,
isco68 == 9590 ~ 7119,
isco68 == 9591 ~ 7131,
isco68 == 9592 ~ 7119,
isco68 == 9593 ~ 7119,
isco68 == 9594 ~ 7119,
isco68 == 9595 ~ 9313,
isco68 == 9596 ~ 7119,
isco68 == 9599 ~ 7131,
isco68 == 9600 ~ 3131,
isco68 == 9610 ~ 3131,
isco68 == 9690 ~ 3131,
isco68 == 9700 ~ 8340,
isco68 == 9710 ~ 9333,
isco68 == 9711 ~ 9333,
isco68 == 9712 ~ 9621,
isco68 == 9713 ~ 9621,
isco68 == 9714 ~ 9321,
isco68 == 9719 ~ 9333,
isco68 == 9720 ~ 7215,
isco68 == 9730 ~ 8343,
isco68 == 9731 ~ 8343,
isco68 == 9739 ~ 8343,
isco68 == 9740 ~ 8342,
isco68 == 9790 ~ 8344,
isco68 == 9800 ~ 8300,
isco68 == 9810 ~ 8350,
isco68 == 9811 ~ 8350,
isco68 == 9819 ~ 8350,
isco68 == 9820 ~ 8182,
isco68 == 9830 ~ 8311,
isco68 == 9831 ~ 8311,
isco68 == 9832 ~ 8311,
isco68 == 9839 ~ 8311,
isco68 == 9840 ~ 8312,
isco68 == 9850 ~ 8320,
isco68 == 9851 ~ 8331,
isco68 == 9852 ~ 8332,
isco68 == 9853 ~ 8322,
isco68 == 9854 ~ 9333,
isco68 == 9855 ~ 5165,
isco68 == 9859 ~ 8320,
isco68 == 9860 ~ 9332,
isco68 == 9861 ~ 9332,
isco68 == 9869 ~ 9332,
isco68 == 9890 ~ 8320,
isco68 == 9891 ~ 8312,
isco68 == 9899 ~ 9331,
isco68 == 9900 ~ 9300,
isco68 == 9950 ~ 7000,
isco68 == 9951 ~ 7000,
isco68 == 9959 ~ 7000,
isco68 == 9970 ~ 8000,
isco68 == 9971 ~ 7000,
isco68 == 9979 ~ 8000,
isco68 == 9990 ~ 9300,
isco68 == 9991 ~ 9320,
isco68 == 9992 ~ 9300,
isco68 == 9993 ~ 9300,
isco68 == 9994 ~ 9312,
isco68 == 9995 ~ 9613,
isco68 == 9996 ~ 9611,
isco68 == 9997 ~ 9312,
isco68 == 9999 ~ 9300,
isco68 == 10000 ~ 0000,
isco68 == 10001 ~ 0100,
isco68 == 10002 ~ 0200,
isco68 == 10003 ~ 0300,
isco68 == 10009 ~ 0100,
isco68 == 12000 ~ 9999
)
)
if (display.nas) display.nas(isco, conv.from="isco68", conv.to='isco08')
return(isco$isco08)
}
## {{{ docs }}}
#' Recode ISCO-88 into ISCO-08
#'
#' The function recodes ISCO-88 into ISCO-08.
#'
#' @param isco88 a numeric vector with the ISCO-88 codes
#' @param display.nas boolean. If true (defaul is \code{FALSE}), displays table with unmatched ISCO-88 codes.
#'
#' @return
#' It returns a vector with ISCO-08 codes.
#'
#' @export
## }}}
isco88to08 <- function(isco88, display.nas=FALSE)
{
## RECODE OF ISCO-88 INTO ISCO-08
## DECIMAL DENOTES NUMBER OF ALTERNATIVES DEFINED BY ILO
## IF NO FURTHER INFORMATION AVAILABLE, TRUNCATE DECIMAL
## Conversion Table Version 13 Aug 2015
isco = tibble::tibble(isco88=isco88)
isco = isco %>%
dplyr::mutate(
isco08 = dplyr::case_when(isco88 == 0 ~ 0300.3 ,
isco88 == 10 ~ 0300.3 ,
isco88 == 100 ~ 0300.3 ,
isco88 == 110 ~ 0300.3 ,
isco88 == 1250 ~ 0100.1 ,
isco88 == 3452 ~ 0200.2 ,
isco88 == 1000 ~ 1000.1 ,
isco88 == 1100 ~ 1110.1 ,
isco88 == 1110 ~ 1111.1 ,
isco88 == 1120 ~ 1112.1 ,
isco88 == 1130 ~ 1113.1 ,
isco88 == 1140 ~ 1114.1 ,
isco88 == 1141 ~ 1114.1 ,
isco88 == 1142 ~ 1114.1 ,
isco88 == 1143 ~ 1114.1 ,
isco88 == 1200 ~ 1200.1 ,
isco88 == 1210 ~ 1120.1 ,
isco88 == 1220 ~ 1300.2 ,
isco88 == 1221 ~ 1311.2 ,
isco88 == 1222 ~ 1321.2 ,
isco88 == 1223 ~ 1323.2 ,
isco88 == 1224 ~ 1420.1 ,
isco88 == 1225 ~ 1410.2 ,
isco88 == 1226 ~ 1324.2 ,
isco88 == 1227 ~ 1219.2 ,
isco88 == 1228 ~ 1219.1 ,
isco88 == 1229 ~ 1300.9 ,
isco88 == 1230 ~ 1200.1 ,
isco88 == 1231 ~ 1211.2 ,
isco88 == 1232 ~ 1212.1 ,
isco88 == 1233 ~ 1221.1 ,
isco88 == 1234 ~ 1222.1 ,
isco88 == 1235 ~ 1324.1 ,
isco88 == 1236 ~ 1330.1 ,
isco88 == 1237 ~ 1223.1 ,
isco88 == 1239 ~ 1213.1 ,
isco88 == 1240 ~ 3341.1 ,
isco88 == 1300 ~ 1400.1 ,
isco88 == 1310 ~ 1400.1 ,
isco88 == 1311 ~ 6130.9 ,
isco88 == 1312 ~ 1321.2 ,
isco88 == 1313 ~ 1323.1 ,
isco88 == 1314 ~ 1420.2 ,
isco88 == 1315 ~ 1410.2 ,
isco88 == 1316 ~ 1324.2 ,
isco88 == 1317 ~ 1210.7 ,
isco88 == 1318 ~ 1219.1 ,
isco88 == 1319 ~ 1340.9 ,
isco88 == 2000 ~ 2000.1 ,
isco88 == 2100 ~ 2100.1 ,
isco88 == 2110 ~ 2110.1 ,
isco88 == 2111 ~ 2111.1 ,
isco88 == 2112 ~ 2112.1 ,
isco88 == 2113 ~ 2113.2 ,
isco88 == 2114 ~ 2114.1 ,
isco88 == 2120 ~ 2120.1 ,
isco88 == 2121 ~ 2120.1 ,
isco88 == 2122 ~ 2120.1 ,
isco88 == 2130 ~ 2500.3 ,
isco88 == 2131 ~ 2500.7 ,
isco88 == 2132 ~ 2510.3 ,
isco88 == 2139 ~ 2519.3 ,
isco88 == 2140 ~ 2140.2 ,
isco88 == 2141 ~ 2160.3 ,
isco88 == 2142 ~ 2142.1 ,
isco88 == 2143 ~ 2151.1 ,
isco88 == 2144 ~ 2150.2 ,
isco88 == 2145 ~ 2144.1 ,
isco88 == 2146 ~ 2145.1 ,
isco88 == 2147 ~ 2146.1 ,
isco88 == 2148 ~ 2165.1 ,
isco88 == 2149 ~ 2149.3 ,
isco88 == 2200 ~ 2200.2 ,
isco88 == 2210 ~ 2130.1 ,
isco88 == 2211 ~ 2130.2 ,
isco88 == 2212 ~ 2212.3 ,
isco88 == 2213 ~ 2132.1 ,
isco88 == 2220 ~ 2200.2 ,
isco88 == 2221 ~ 2210.2 ,
isco88 == 2222 ~ 2261.1 ,
isco88 == 2223 ~ 2250.1 ,
isco88 == 2224 ~ 2262.1 ,
isco88 == 2229 ~ 2260.2 ,
isco88 == 2230 ~ 2220.6 ,
isco88 == 2300 ~ 2300.1 ,
isco88 == 2310 ~ 2310.2 ,
isco88 == 2320 ~ 2330.2 ,
isco88 == 2321 ~ 2330.1 ,
isco88 == 2322 ~ 2320.1 ,
isco88 == 2323 ~ 2330.1 ,
isco88 == 2330 ~ 2340.1 ,
isco88 == 2331 ~ 2341.1 ,
isco88 == 2332 ~ 2342.1 ,
isco88 == 2340 ~ 2352.1 ,
isco88 == 2350 ~ 2350.1 ,
isco88 == 2351 ~ 2351.1 ,
isco88 == 2352 ~ 2351.1 ,
isco88 == 2359 ~ 2359.5 ,
isco88 == 2400 ~ 2400.1 ,
isco88 == 2410 ~ 2410.1 ,
isco88 == 2411 ~ 2411.2 ,
isco88 == 2412 ~ 2423.3 ,
isco88 == 2419 ~ 2400.7 ,
isco88 == 2420 ~ 2610.2 ,
isco88 == 2421 ~ 2611.1 ,
isco88 == 2422 ~ 2612.1 ,
isco88 == 2429 ~ 2619.1 ,
isco88 == 2430 ~ 2620.1 ,
isco88 == 2431 ~ 2621.1 ,
isco88 == 2432 ~ 2622.1 ,
isco88 == 2440 ~ 2630.1 ,
isco88 == 2441 ~ 2631.1 ,
isco88 == 2442 ~ 2632.1 ,
isco88 == 2443 ~ 2633.1 ,
isco88 == 2444 ~ 2643.1 ,
isco88 == 2445 ~ 2634.1 ,
isco88 == 2446 ~ 2635.1 ,
isco88 == 2450 ~ 2640.1 ,
isco88 == 2451 ~ 2640.4 ,
isco88 == 2452 ~ 2651.1 ,
isco88 == 2453 ~ 2652.1 ,
isco88 == 2454 ~ 2653.1 ,
isco88 == 2455 ~ 2655.2 ,
isco88 == 2460 ~ 2636.1 ,
isco88 == 2470 ~ 2422.1 ,
isco88 == 3000 ~ 3000.1 ,
isco88 == 3100 ~ 3100.2 ,
isco88 == 3110 ~ 3110.1 ,
isco88 == 3111 ~ 3111.1 ,
isco88 == 3112 ~ 3112.1 ,
isco88 == 3113 ~ 3113.1 ,
isco88 == 3114 ~ 3114.2 ,
isco88 == 3115 ~ 3115.1 ,
isco88 == 3116 ~ 3116.1 ,
isco88 == 3117 ~ 3117.1 ,
isco88 == 3118 ~ 3118.1 ,
isco88 == 3119 ~ 3119.1 ,
isco88 == 3120 ~ 3510.1 ,
isco88 == 3121 ~ 3510.3 ,
isco88 == 3122 ~ 3511.2 ,
isco88 == 3123 ~ 3139.1 ,
isco88 == 3130 ~ 3520.1 ,
isco88 == 3131 ~ 3521.2 ,
isco88 == 3132 ~ 3521.2 ,
isco88 == 3133 ~ 3211.1 ,
isco88 == 3139 ~ 3211.1 ,
isco88 == 3140 ~ 3150.1 ,
isco88 == 3141 ~ 3151.1 ,
isco88 == 3142 ~ 3152.1 ,
isco88 == 3143 ~ 3153.1 ,
isco88 == 3144 ~ 3154.1 ,
isco88 == 3145 ~ 3155.1 ,
isco88 == 3150 ~ 7544.1 ,
isco88 == 3151 ~ 3359.2 ,
isco88 == 3152 ~ 3110.7 ,
isco88 == 3200 ~ 3200.1 ,
isco88 == 3210 ~ 3140.1 ,
isco88 == 3211 ~ 3212.2 ,
isco88 == 3212 ~ 3142.2 ,
isco88 == 3213 ~ 2132.1 ,
isco88 == 3220 ~ 3250.3 ,
isco88 == 3221 ~ 3256.3 ,
isco88 == 3222 ~ 3257.2 ,
isco88 == 3223 ~ 2265.1 ,
isco88 == 3224 ~ 3254.2 ,
isco88 == 3225 ~ 3251.1 ,
isco88 == 3226 ~ 2264.4 ,
isco88 == 3227 ~ 3240.1 ,
isco88 == 3228 ~ 3213.1 ,
isco88 == 3229 ~ 3259.5 ,
isco88 == 3230 ~ 3220.1 ,
isco88 == 3231 ~ 3221.1 ,
isco88 == 3232 ~ 3222.1 ,
isco88 == 3240 ~ 3230.1 ,
isco88 == 3241 ~ 3230.2 ,
isco88 == 3242 ~ 5161.1 ,
isco88 == 3300 ~ 2359.1 ,
isco88 == 3310 ~ 2341.1 ,
isco88 == 3320 ~ 2342.1 ,
isco88 == 3330 ~ 2352.1 ,
isco88 == 3340 ~ 2359.8 ,
isco88 == 3400 ~ 3300.3 ,
isco88 == 3410 ~ 3310.1 ,
isco88 == 3411 ~ 3311.2 ,
isco88 == 3412 ~ 3321.1 ,
isco88 == 3413 ~ 3334.1 ,
isco88 == 3414 ~ 4221.1 ,
isco88 == 3415 ~ 3322.3 ,
isco88 == 3416 ~ 3323.1 ,
isco88 == 3417 ~ 3315.2 ,
isco88 == 3419 ~ 3312.1 ,
isco88 == 3420 ~ 3320.1 ,
isco88 == 3421 ~ 3324.1 ,
isco88 == 3422 ~ 3331.1 ,
isco88 == 3423 ~ 3333.1 ,
isco88 == 3429 ~ 3339.1 ,
isco88 == 3430 ~ 3330.1 ,
isco88 == 3431 ~ 3343.4 ,
isco88 == 3432 ~ 3411.1 ,
isco88 == 3433 ~ 3313.1 ,
isco88 == 3434 ~ 3314.2 ,
isco88 == 3439 ~ 3340.4 ,
isco88 == 3440 ~ 3350.1 ,
isco88 == 3441 ~ 3351.1 ,
isco88 == 3442 ~ 3352.1 ,
isco88 == 3443 ~ 3353.1 ,
isco88 == 3444 ~ 3354.1 ,
isco88 == 3449 ~ 3359.1 ,
isco88 == 3450 ~ 3355.2 ,
isco88 == 3451 ~ 3355.2 ,
isco88 == 3460 ~ 3412.1 ,
isco88 == 3470 ~ 3430.3 ,
isco88 == 3471 ~ 3432.5 ,
isco88 == 3472 ~ 2656.2 ,
isco88 == 3473 ~ 2652.2 ,
isco88 == 3474 ~ 2659.1 ,
isco88 == 3475 ~ 3420.3 ,
isco88 == 3480 ~ 3413.1 ,
isco88 == 4000 ~ 4000.1 ,
isco88 == 4100 ~ 4100.1 ,
isco88 == 4110 ~ 4120.2 ,
isco88 == 4111 ~ 4131.2 ,
isco88 == 4112 ~ 4131.2 ,
isco88 == 4113 ~ 4132.1 ,
isco88 == 4114 ~ 4132.2 ,
isco88 == 4115 ~ 4120.4 ,
isco88 == 4120 ~ 4310.1 ,
isco88 == 4121 ~ 4311.3 ,
isco88 == 4122 ~ 4312.2 ,
isco88 == 4130 ~ 4320.1 ,
isco88 == 4131 ~ 4321.2 ,
isco88 == 4132 ~ 4322.2 ,
isco88 == 4133 ~ 4323.2 ,
isco88 == 4140 ~ 4410.1 ,
isco88 == 4141 ~ 4410.3 ,
isco88 == 4142 ~ 4412.2 ,
isco88 == 4143 ~ 4413.3 ,
isco88 == 4144 ~ 4414.2 ,
isco88 == 4190 ~ 4419.5 ,
isco88 == 4200 ~ 4200.1 ,
isco88 == 4210 ~ 4210.1 ,
isco88 == 4211 ~ 5230.3 ,
isco88 == 4212 ~ 4211.1 ,
isco88 == 4213 ~ 4212.1 ,
isco88 == 4214 ~ 4213.1 ,
isco88 == 4215 ~ 4214.1 ,
isco88 == 4220 ~ 4220.1 ,
isco88 == 4221 ~ 4221.1 ,
isco88 == 4222 ~ 4220.6 ,
isco88 == 4223 ~ 4223.2 ,
isco88 == 5000 ~ 5000.1 ,
isco88 == 5100 ~ 5100.1 ,
isco88 == 5110 ~ 5110.1 ,
isco88 == 5111 ~ 5111.1 ,
isco88 == 5112 ~ 5112.1 ,
isco88 == 5113 ~ 5113.1 ,
isco88 == 5120 ~ 5150.1 ,
isco88 == 5121 ~ 5152.2 ,
isco88 == 5122 ~ 5120.3 ,
isco88 == 5123 ~ 5130.2 ,
isco88 == 5130 ~ 5300.1 ,
isco88 == 5131 ~ 5311.2 ,
isco88 == 5132 ~ 5320.3 ,
isco88 == 5133 ~ 5322.1 ,
isco88 == 5139 ~ 5320.2 ,
isco88 == 5140 ~ 5160.1 ,
isco88 == 5141 ~ 5140.2 ,
isco88 == 5142 ~ 5162.1 ,
isco88 == 5143 ~ 5163.1 ,
isco88 == 5149 ~ 5169.1 ,
isco88 == 5150 ~ 5161.1 ,
isco88 == 5151 ~ 5161.1 ,
isco88 == 5152 ~ 5161.1 ,
isco88 == 5160 ~ 5410.1 ,
isco88 == 5161 ~ 5411.1 ,
isco88 == 5162 ~ 5412.1 ,
isco88 == 5163 ~ 5413.1 ,
isco88 == 5164 ~ 0000.1 ,
isco88 == 5169 ~ 5419.2 ,
isco88 == 5200 ~ 5200.1 ,
isco88 == 5210 ~ 5241.1 ,
isco88 == 5220 ~ 5223.6 ,
isco88 == 5230 ~ 5211.2 ,
isco88 == 6000 ~ 6000.1 ,
isco88 == 6100 ~ 6100.1 ,
isco88 == 6110 ~ 6110.1 ,
isco88 == 6111 ~ 6111.1 ,
isco88 == 6112 ~ 6112.1 ,
isco88 == 6113 ~ 6113.2 ,
isco88 == 6114 ~ 6114.1 ,
isco88 == 6120 ~ 6120.1 ,
isco88 == 6121 ~ 6121.1 ,
isco88 == 6122 ~ 6122.1 ,
isco88 == 6123 ~ 6123.1 ,
isco88 == 6124 ~ 6120.3 ,
isco88 == 6129 ~ 6129.2 ,
isco88 == 6130 ~ 6130.1 ,
isco88 == 6133 ~ 6130.1 ,
isco88 == 6140 ~ 6210.1 ,
isco88 == 6141 ~ 6210.1 ,
isco88 == 6142 ~ 6210.1 ,
isco88 == 6150 ~ 6220.1 ,
isco88 == 6151 ~ 6221.1 ,
isco88 == 6152 ~ 6222.2 ,
isco88 == 6153 ~ 6223.1 ,
isco88 == 6154 ~ 6224.1 ,
isco88 == 6200 ~ 6300.1 ,
isco88 == 6210 ~ 6300.4 ,
isco88 == 7000 ~ 7000.1 ,
isco88 == 7100 ~ 7100.1 ,
isco88 == 7110 ~ 8110.1 ,
isco88 == 7111 ~ 8111.2 ,
isco88 == 7112 ~ 7542.1 ,
isco88 == 7113 ~ 7113.1 ,
isco88 == 7120 ~ 7110.1 ,
isco88 == 7121 ~ 7111.1 ,
isco88 == 7122 ~ 7112.2 ,
isco88 == 7123 ~ 7114.1 ,
isco88 == 7124 ~ 7115.1 ,
isco88 == 7129 ~ 7119.3 ,
isco88 == 7130 ~ 7120.1 ,
isco88 == 7131 ~ 7121.1 ,
isco88 == 7132 ~ 7122.1 ,
isco88 == 7133 ~ 7123.1 ,
isco88 == 7134 ~ 7124.1 ,
isco88 == 7135 ~ 7125.1 ,
isco88 == 7136 ~ 7126.1 ,
isco88 == 7137 ~ 7411.1 ,
isco88 == 7139 ~ 7119.1 ,
isco88 == 7140 ~ 7130.1 ,
isco88 == 7141 ~ 7131.1 ,
isco88 == 7142 ~ 7132.1 ,
isco88 == 7143 ~ 7133.2 ,
isco88 == 7200 ~ 7200.1 ,
isco88 == 7210 ~ 7210.1 ,
isco88 == 7211 ~ 7211.1 ,
isco88 == 7212 ~ 7212.1 ,
isco88 == 7213 ~ 7213.1 ,
isco88 == 7214 ~ 7214.1 ,
isco88 == 7215 ~ 7215.1 ,
isco88 == 7216 ~ 7541.1 ,
isco88 == 7220 ~ 7220.1 ,
isco88 == 7221 ~ 7221.1 ,
isco88 == 7222 ~ 7222.1 ,
isco88 == 7223 ~ 7223.1 ,
isco88 == 7224 ~ 7224.1 ,
isco88 == 7230 ~ 7230.1 ,
isco88 == 7231 ~ 7231.2 ,
isco88 == 7232 ~ 7232.1 ,
isco88 == 7233 ~ 7233.2 ,
isco88 == 7234 ~ 9620.1 ,
isco88 == 7240 ~ 7400.2 ,
isco88 == 7241 ~ 7412.1 ,
isco88 == 7242 ~ 7421.2 ,
isco88 == 7243 ~ 7421.2 ,
isco88 == 7244 ~ 7422.1 ,
isco88 == 7245 ~ 7413.2 ,
isco88 == 7300 ~ 7300.1 ,
isco88 == 7310 ~ 7311.1 ,
isco88 == 7311 ~ 7311.2 ,
isco88 == 7312 ~ 7312.1 ,
isco88 == 7313 ~ 7313.1 ,
isco88 == 7320 ~ 7314.1 ,
isco88 == 7321 ~ 7314.1 ,
isco88 == 7322 ~ 7315.2 ,
isco88 == 7323 ~ 7316.1 ,
isco88 == 7324 ~ 7316.1 ,
isco88 == 7330 ~ 7310.1 ,
isco88 == 7331 ~ 7317.2 ,
isco88 == 7332 ~ 7318.1 ,
isco88 == 7340 ~ 7320.1 ,
isco88 == 7341 ~ 7320.2 ,
isco88 == 7342 ~ 7321.1 ,
isco88 == 7343 ~ 7321.1 ,
isco88 == 7344 ~ 8132.1 ,
isco88 == 7345 ~ 7323.1 ,
isco88 == 7346 ~ 7322.1 ,
isco88 == 7400 ~ 7540.1 ,
isco88 == 7410 ~ 7510.1 ,
isco88 == 7411 ~ 7511.1 ,
isco88 == 7412 ~ 7512.1 ,
isco88 == 7413 ~ 7513.1 ,
isco88 == 7414 ~ 7514.1 ,
isco88 == 7415 ~ 7515.1 ,
isco88 == 7416 ~ 7516.1 ,
isco88 == 7420 ~ 7520.1 ,
isco88 == 7421 ~ 7521.1 ,
isco88 == 7422 ~ 7522.1 ,
isco88 == 7423 ~ 7523.1 ,
isco88 == 7424 ~ 7317.1 ,
isco88 == 7430 ~ 7530.1 ,
isco88 == 7431 ~ 7318.1 ,
isco88 == 7432 ~ 8152.2 ,
isco88 == 7433 ~ 7531.1 ,
isco88 == 7434 ~ 7531.1 ,
isco88 == 7435 ~ 7532.1 ,
isco88 == 7436 ~ 7533.1 ,
isco88 == 7437 ~ 7534.1 ,
isco88 == 7440 ~ 7536.1 ,
isco88 == 7441 ~ 7535.1 ,
isco88 == 7442 ~ 7536.1 ,
isco88 == 7500 ~ 7210.1 ,
isco88 == 7510 ~ 3120.1 ,
isco88 == 7520 ~ 7000.1 ,
isco88 == 7530 ~ 7000.1 ,
isco88 == 7900 ~ 7549.1 ,
isco88 == 8000 ~ 8000.1 ,
isco88 == 8100 ~ 8100.1 ,
isco88 == 8110 ~ 8110.1 ,
isco88 == 8111 ~ 8111.2 ,
isco88 == 8112 ~ 8112.1 ,
isco88 == 8113 ~ 8113.1 ,
isco88 == 8120 ~ 8120.1 ,
isco88 == 8121 ~ 8121.2 ,
isco88 == 8122 ~ 8121.2 ,
isco88 == 8123 ~ 8121.2 ,
isco88 == 8124 ~ 8121.2 ,
isco88 == 8130 ~ 8181.1 ,
isco88 == 8131 ~ 8181.1 ,
isco88 == 8139 ~ 8181.1 ,
isco88 == 8140 ~ 8170.1 ,
isco88 == 8141 ~ 8172.1 ,
isco88 == 8142 ~ 8171.2 ,
isco88 == 8143 ~ 8171.2 ,
isco88 == 8150 ~ 8131.1 ,
isco88 == 8151 ~ 8131.1 ,
isco88 == 8152 ~ 8131.2 ,
isco88 == 8153 ~ 8131.2 ,
isco88 == 8154 ~ 8131.2 ,
isco88 == 8155 ~ 8131.2 ,
isco88 == 8159 ~ 8131.2 ,
isco88 == 8160 ~ 8180.2 ,
isco88 == 8161 ~ 3131.1 ,
isco88 == 8162 ~ 8182.1 ,
isco88 == 8163 ~ 3132.1 ,
isco88 == 8170 ~ 3130.1 ,
isco88 == 8171 ~ 3139.2 ,
isco88 == 8172 ~ 3139.2 ,
isco88 == 8200 ~ 8100.1 ,
isco88 == 8210 ~ 8120.1 ,
isco88 == 8211 ~ 7223.2 ,
isco88 == 8212 ~ 8114.1 ,
isco88 == 8220 ~ 8130.1 ,
isco88 == 8221 ~ 8131.2 ,
isco88 == 8222 ~ 8131.2 ,
isco88 == 8223 ~ 8122.2 ,
isco88 == 8224 ~ 8132.2 ,
isco88 == 8229 ~ 8131.2 ,
isco88 == 8230 ~ 8140.1 ,
isco88 == 8231 ~ 8141.2 ,
isco88 == 8232 ~ 8142.2 ,
isco88 == 8240 ~ 7523.2 ,
isco88 == 8250 ~ 7323.1 ,
isco88 == 8251 ~ 7322.2 ,
isco88 == 8252 ~ 7323.2 ,
isco88 == 8253 ~ 8143.2 ,
isco88 == 8260 ~ 8150.1 ,
isco88 == 8261 ~ 8151.2 ,
isco88 == 8262 ~ 8152.2 ,
isco88 == 8263 ~ 8153.2 ,
isco88 == 8264 ~ 8154.3 ,
isco88 == 8265 ~ 8155.2 ,
isco88 == 8266 ~ 8156.2 ,
isco88 == 8269 ~ 8159.2 ,
isco88 == 8270 ~ 8160.1 ,
isco88 == 8271 ~ 8160.2 ,
isco88 == 8272 ~ 8160.2 ,
isco88 == 8273 ~ 8160.2 ,
isco88 == 8274 ~ 8160.2 ,
isco88 == 8275 ~ 8160.2 ,
isco88 == 8276 ~ 8160.2 ,
isco88 == 8277 ~ 8160.2 ,
isco88 == 8278 ~ 8160.2 ,
isco88 == 8279 ~ 8160.2 ,
isco88 == 8280 ~ 8210.1 ,
isco88 == 8281 ~ 8211.2 ,
isco88 == 8282 ~ 8212.2 ,
isco88 == 8283 ~ 8212.2 ,
isco88 == 8284 ~ 8219.2 ,
isco88 == 8285 ~ 8219.2 ,
isco88 == 8286 ~ 8219.2 ,
isco88 == 8287 ~ 8219.1 ,
isco88 == 8290 ~ 8189.4 ,
isco88 == 8300 ~ 8300.1 ,
isco88 == 8310 ~ 8310.1 ,
isco88 == 8311 ~ 8311.1 ,
isco88 == 8312 ~ 8312.1 ,
isco88 == 8320 ~ 8330.2 ,
isco88 == 8321 ~ 8321.1 ,
isco88 == 8322 ~ 8322.1 ,
isco88 == 8323 ~ 8331.1 ,
isco88 == 8324 ~ 8332.1 ,
isco88 == 8330 ~ 8340.1 ,
isco88 == 8331 ~ 8341.1 ,
isco88 == 8332 ~ 8342.1 ,
isco88 == 8333 ~ 8343.1 ,
isco88 == 8334 ~ 8344.1 ,
isco88 == 8340 ~ 8350.1 ,
isco88 == 9000 ~ 9000.1 ,
isco88 == 9100 ~ 9620.1 ,
isco88 == 9110 ~ 9520.2 ,
isco88 == 9111 ~ 5212.1 ,
isco88 == 9112 ~ 9520.1 ,
isco88 == 9113 ~ 5244.2 ,
isco88 == 9120 ~ 9510.1 ,
isco88 == 9130 ~ 9110.2 ,
isco88 == 9131 ~ 9111.1 ,
isco88 == 9132 ~ 9112.2 ,
isco88 == 9133 ~ 9121.1 ,
isco88 == 9140 ~ 9120.1 ,
isco88 == 9141 ~ 5153.1 ,
isco88 == 9142 ~ 9120.3 ,
isco88 == 9150 ~ 9621.1 ,
isco88 == 9151 ~ 9621.1 ,
isco88 == 9152 ~ 5414.3 ,
isco88 == 9153 ~ 9623.1 ,
isco88 == 9160 ~ 9610.1 ,
isco88 == 9161 ~ 9610.2 ,
isco88 == 9162 ~ 9613.1 ,
isco88 == 9200 ~ 9200.1 ,
isco88 == 9210 ~ 9210.1 ,
isco88 == 9211 ~ 9210.4 ,
isco88 == 9212 ~ 9215.1 ,
isco88 == 9213 ~ 9216.1 ,
isco88 == 9300 ~ 9300.1 ,
isco88 == 9310 ~ 9310.1 ,
isco88 == 9311 ~ 9311.1 ,
isco88 == 9312 ~ 9312.1 ,
isco88 == 9313 ~ 9313.1 ,
isco88 == 9320 ~ 9320.1 ,
isco88 == 9321 ~ 9329.2 ,
isco88 == 9322 ~ 9329.2 ,
isco88 == 9330 ~ 9330.1 ,
isco88 == 9331 ~ 9331.1 ,
isco88 == 9332 ~ 9332.1 ,
isco88 == 9333 ~ 9333.2
)
) %>% dplyr::mutate(isco08 = as.integer(isco08))
if (display.nas) display.nas(isco, conv.from="isco88", conv.to='isco08')
return(isco$isco08)
}
## =====================================================
## ISCO labels
## =====================================================
## {{{ docs }}}
#' Get labels for ISCO-08
#'
#' The function gets labels for ISCO-08.
#'
#' @param isco08 a numeric vector with the ISCO-08 codes
#' @param display.nas boolean. If true (defaul is \code{FALSE}), displays table with unmatched ISCO-08 codes.
#'
#' @return
#' It returns a vector with ISCO-08 labels.
#'
#' @export
## }}}
isco08labels <- function(isco08, display.nas=FALSE)
{
## RECODE OF ISCO-88 INTO ISCO-08
## DECIMAL DENOTES NUMBER OF ALTERNATIVES DEFINED BY ILO
## IF NO FURTHER INFORMATION AVAILABLE, TRUNCATE DECIMAL
## Conversion Table Version 13 Aug 2015
isco = tibble::tibble(isco08=isco08)
isco = isco %>%
dplyr::mutate(
isco08.label = dplyr::case_when(
isco08 == 0000 ~ "Armed forces occupations",
isco08 == 0010 ~ "Armed forces occupations",
isco08 == 0100 ~ "Commissioned armed forces officers",
isco08 == 0110 ~ "Commissioned armed forces officers",
isco08 == 0200 ~ "Non-commissioned armed forces officers",
isco08 == 0210 ~ "Non-commissioned armed forces officers",
isco08 == 0300 ~ "Armed forces occupations, other ranks",
isco08 == 0310 ~ "Armed forces occupations, other ranks",
isco08 == 1000 ~ "Managers",
isco08 == 1100 ~ "Chief executives, senior officials and legislators",
isco08 == 1110 ~ "Legislators and senior officials",
isco08 == 1111 ~ "Legislators",
isco08 == 1112 ~ "Senior government officials",
isco08 == 1113 ~ "Traditional chiefs and heads of village",
isco08 == 1114 ~ "Senior officials of special-interest organizations",
isco08 == 1120 ~ "Managing directors and chief executives",
isco08 == 1200 ~ "Administrative and commercial managers",
isco08 == 1210 ~ "Business services and administration managers",
isco08 == 1211 ~ "Finance managers",
isco08 == 1212 ~ "Human resource managers",
isco08 == 1213 ~ "Policy and planning managers",
isco08 == 1219 ~ "Business services and administration managers nec",
isco08 == 1220 ~ "Sales, marketing and development managers",
isco08 == 1221 ~ "Sales and marketing managers",
isco08 == 1222 ~ "Advertising and public relations managers",
isco08 == 1223 ~ "Research and development managers",
isco08 == 1300 ~ "Production and specialized services managers",
isco08 == 1310 ~ "Production managers in agriculture, forestry and fisheries",
isco08 == 1311 ~ "Agricultural and forestry production managers",
isco08 == 1312 ~ "Aquaculture and fisheries production managers",
isco08 == 1320 ~ "Manufacture, mining, construction, distribution managers",
isco08 == 1321 ~ "Manufacturing managers",
isco08 == 1322 ~ "Mining managers",
isco08 == 1323 ~ "Construction managers",
isco08 == 1324 ~ "Supply, distribution and related managers",
isco08 == 1330 ~ "ICT service managers",
isco08 == 1340 ~ "Professional services managers",
isco08 == 1341 ~ "Child care services managers",
isco08 == 1342 ~ "Health services managers",
isco08 == 1343 ~ "Aged care services managers",
isco08 == 1344 ~ "Social welfare managers",
isco08 == 1345 ~ "Education managers",
isco08 == 1346 ~ "Financial and insurance services branch managers",
isco08 == 1349 ~ "Professional services managers nec",
isco08 == 1400 ~ "Hospitality, retail and other services managers",
isco08 == 1410 ~ "Hotel and restaurant managers",
isco08 == 1411 ~ "Hotel managers",
isco08 == 1412 ~ "Restaurant managers",
isco08 == 1420 ~ "Retail and wholesale trade managers",
isco08 == 1430 ~ "Other services managers",
isco08 == 1431 ~ "Sports, recreation and cultural centre managers",
isco08 == 1439 ~ "Services managers nec",
isco08 == 2000 ~ "Professionals",
isco08 == 2100 ~ "Science and engineering professionals",
isco08 == 2110 ~ "Physical and earth science professionals",
isco08 == 2111 ~ "Physicists and astronomers",
isco08 == 2112 ~ "Meteorologists",
isco08 == 2113 ~ "Chemists",
isco08 == 2114 ~ "Geologists and geophysicists",
isco08 == 2120 ~ "Mathematicians, actuaries and statisticians",
isco08 == 2130 ~ "Life science professionals",
isco08 == 2131 ~ "Biologists, botanists, zoologists and related professionals",
isco08 == 2132 ~ "Farming, forestry and fisheries advisers",
isco08 == 2133 ~ "Environmental protection professionals",
isco08 == 2140 ~ "Engineering professionals [excluding electrotechnology]",
isco08 == 2141 ~ "Industrial and production engineers",
isco08 == 2142 ~ "Civil engineers",
isco08 == 2143 ~ "Environmental engineers",
isco08 == 2144 ~ "Mechanical engineers",
isco08 == 2145 ~ "Chemical engineers",
isco08 == 2146 ~ "Mining engineers, metallurgists and related professionals",
isco08 == 2149 ~ "Engineering professionals nec",
isco08 == 2150 ~ "Electrotechnology engineers",
isco08 == 2151 ~ "Electrical engineers",
isco08 == 2152 ~ "Electronics engineers",
isco08 == 2153 ~ "Telecommunications engineers",
isco08 == 2160 ~ "Architects, planners, surveyors and designers",
isco08 == 2161 ~ "Building architects",
isco08 == 2162 ~ "Landscape architects",
isco08 == 2163 ~ "Product and garment designers",
isco08 == 2164 ~ "Town and traffic planners",
isco08 == 2165 ~ "Cartographers and surveyors",
isco08 == 2166 ~ "Graphic and multimedia designers",
isco08 == 2200 ~ "Health professionals",
isco08 == 2210 ~ "Medical doctors",
isco08 == 2211 ~ "Generalist medical practitioners",
isco08 == 2212 ~ "Specialist medical practitioners",
isco08 == 2220 ~ "Nursing and midwifery professionals",
isco08 == 2221 ~ "Nursing professionals",
isco08 == 2222 ~ "Midwifery professionals",
isco08 == 2230 ~ "Traditional and complementary medicine professionals",
isco08 == 2240 ~ "Paramedical practitioners",
isco08 == 2250 ~ "Veterinarians",
isco08 == 2260 ~ "Other health professionals",
isco08 == 2261 ~ "Dentists",
isco08 == 2262 ~ "Pharmacists",
isco08 == 2263 ~ "Environmental & occupational health-hygiene professionals",
isco08 == 2264 ~ "Physiotherapists",
isco08 == 2265 ~ "Dieticians and nutritionists",
isco08 == 2266 ~ "Audiologists and speech therapists",
isco08 == 2267 ~ "Optometrists and ophthalmic opticians",
isco08 == 2269 ~ "Health professionals nec",
isco08 == 2300 ~ "Teaching professionals",
isco08 == 2310 ~ "University and higher education teachers",
isco08 == 2320 ~ "Vocational education teachers",
isco08 == 2330 ~ "Secondary education teachers",
isco08 == 2340 ~ "Primary school and early childhood teachers",
isco08 == 2341 ~ "Primary school teachers",
isco08 == 2342 ~ "Early childhood educators",
isco08 == 2350 ~ "Other teaching professionals",
isco08 == 2351 ~ "Education methods specialists",
isco08 == 2352 ~ "Special needs teachers",
isco08 == 2353 ~ "Other language teachers",
isco08 == 2354 ~ "Other music teachers",
isco08 == 2355 ~ "Other arts teachers",
isco08 == 2356 ~ "Information technology trainers",
isco08 == 2359 ~ "Teaching professionals nec",
isco08 == 2400 ~ "Business and administration professionals",
isco08 == 2410 ~ "Finance professionals",
isco08 == 2411 ~ "Accountants",
isco08 == 2412 ~ "Financial and investment advisers",
isco08 == 2413 ~ "Financial analysts",
isco08 == 2420 ~ "Administration professionals",
isco08 == 2421 ~ "Management and organization analysts",
isco08 == 2422 ~ "Policy administration professionals",
isco08 == 2423 ~ "Personnel and careers professionals",
isco08 == 2424 ~ "Training and staff development professionals",
isco08 == 2430 ~ "Sales, marketing and public relations professionals",
isco08 == 2431 ~ "Advertising and marketing professionals",
isco08 == 2432 ~ "Public relations professionals",
isco08 == 2433 ~ "Technical and medical sales professionals [excluding ICT]",
isco08 == 2434 ~ "ICT sales professionals",
isco08 == 2500 ~ "ICT professionals",
isco08 == 2510 ~ "Software and applications developers and analysts",
isco08 == 2511 ~ "Systems analysts",
isco08 == 2512 ~ "Software developers",
isco08 == 2513 ~ "Web and multimedia developers",
isco08 == 2514 ~ "Applications programmers",
isco08 == 2519 ~ "Software and applications developers and analysts nec",
isco08 == 2520 ~ "Database and network professionals",
isco08 == 2521 ~ "Database designers and administrators",
isco08 == 2522 ~ "Systems administrators",
isco08 == 2523 ~ "Computer network professionals",
isco08 == 2529 ~ "Database and network professionals nec",
isco08 == 2600 ~ "Legal, social and cultural professionals",
isco08 == 2610 ~ "Legal professionals",
isco08 == 2611 ~ "Lawyers",
isco08 == 2612 ~ "Judges",
isco08 == 2619 ~ "Legal professionals nec",
isco08 == 2620 ~ "Librarians, archivists and curators",
isco08 == 2621 ~ "Archivists and curators",
isco08 == 2622 ~ "Librarians and related information professionals",
isco08 == 2630 ~ "Social and religious professionals",
isco08 == 2631 ~ "Economists",
isco08 == 2632 ~ "Sociologists, anthropologists and related professionals",
isco08 == 2633 ~ "Philosophers, historians and political scientists",
isco08 == 2634 ~ "Psychologists",
isco08 == 2635 ~ "Social work and counselling professionals",
isco08 == 2636 ~ "Religious professionals",
isco08 == 2640 ~ "Authors, journalists and linguists",
isco08 == 2641 ~ "Authors and related writers",
isco08 == 2642 ~ "Journalists",
isco08 == 2643 ~ "Translators, interpreters and other linguists",
isco08 == 2650 ~ "Creative and performing artists",
isco08 == 2651 ~ "Visual artists",
isco08 == 2652 ~ "Musicians, singers and composers",
isco08 == 2653 ~ "Dancers and choreographers",
isco08 == 2654 ~ "Film, stage and related directors and producers",
isco08 == 2655 ~ "Actors",
isco08 == 2656 ~ "Announcers on radio, television and other media",
isco08 == 2659 ~ "Creative and performing artists nec",
isco08 == 3000 ~ "Technicians and associate professionals",
isco08 == 3100 ~ "Science and engineering associate professionals",
isco08 == 3110 ~ "Physical and engineering science technicians",
isco08 == 3111 ~ "Chemical and physical science technicians",
isco08 == 3112 ~ "Civil engineering technicians",
isco08 == 3113 ~ "Electrical engineering technicians",
isco08 == 3114 ~ "Electronics engineering technicians",
isco08 == 3115 ~ "Mechanical engineering technicians",
isco08 == 3116 ~ "Chemical engineering technicians",
isco08 == 3117 ~ "Mining and metallurgical technicians",
isco08 == 3118 ~ "Draughtspersons",
isco08 == 3119 ~ "Physical and engineering science technicians nec",
isco08 == 3120 ~ "Mining, manufacturing and construction supervisors",
isco08 == 3121 ~ "Mining supervisors",
isco08 == 3122 ~ "Manufacturing supervisors",
isco08 == 3123 ~ "Construction supervisors",
isco08 == 3130 ~ "Process control technicians",
isco08 == 3131 ~ "Power production plant operators",
isco08 == 3132 ~ "Incinerator and water treatment plant operators",
isco08 == 3133 ~ "Chemical processing plant controllers",
isco08 == 3134 ~ "Petroleum and natural gas refining plant operators",
isco08 == 3135 ~ "Metal production process controllers",
isco08 == 3139 ~ "Process control technicians nec",
isco08 == 3140 ~ "Life science technicians and related associate professionals",
isco08 == 3141 ~ "Life science technicians [excluding medical]",
isco08 == 3142 ~ "Agricultural technicians",
isco08 == 3143 ~ "Forestry technicians",
isco08 == 3150 ~ "Ship and aircraft controllers and technicians",
isco08 == 3151 ~ "Ships engineers",
isco08 == 3152 ~ "Ships deck officers and pilots",
isco08 == 3153 ~ "Aircraft pilots and related associate professionals",
isco08 == 3154 ~ "Air traffic controllers",
isco08 == 3155 ~ "Air traffic safety electronics technicians",
isco08 == 3200 ~ "Health associate professionals",
isco08 == 3210 ~ "Medical and pharmaceutical technicians",
isco08 == 3211 ~ "Medical imaging and therapeutic equipment technicians",
isco08 == 3212 ~ "Medical and pathology laboratory technicians",
isco08 == 3213 ~ "Pharmaceutical technicians and assistants",
isco08 == 3214 ~ "Medical and dental prosthetic technicians",
isco08 == 3220 ~ "Nursing and midwifery associate professionals",
isco08 == 3221 ~ "Nursing associate professionals",
isco08 == 3222 ~ "Midwifery associate professionals",
isco08 == 3230 ~ "Traditional-complementary medicine assoc professionals",
isco08 == 3240 ~ "Veterinary technicians and assistants",
isco08 == 3250 ~ "Other health associate professionals",
isco08 == 3251 ~ "Dental assistants and therapists",
isco08 == 3252 ~ "Medical records and health information technicians",
isco08 == 3253 ~ "Community health workers",
isco08 == 3254 ~ "Dispensing opticians",
isco08 == 3255 ~ "Physiotherapy technicians and assistants",
isco08 == 3256 ~ "Medical assistants",
isco08 == 3257 ~ "Environmental-occupational health inspectors etc",
isco08 == 3258 ~ "Ambulance workers",
isco08 == 3259 ~ "Health associate professionals nec",
isco08 == 3300 ~ "Business and administration associate professionals",
isco08 == 3310 ~ "Financial and mathematical associate professionals",
isco08 == 3311 ~ "Securities and finance dealers and brokers",
isco08 == 3312 ~ "Credit and loans officers",
isco08 == 3313 ~ "Accounting associate professionals",
isco08 == 3314 ~ "Statistical, mathematical ar associate professionals",
isco08 == 3315 ~ "Valuers and loss assessors",
isco08 == 3320 ~ "Sales and purchasing agents and brokers",
isco08 == 3321 ~ "Insurance representatives",
isco08 == 3322 ~ "Commercial sales representatives",
isco08 == 3323 ~ "Buyers",
isco08 == 3324 ~ "Trade brokers",
isco08 == 3330 ~ "Business services agents",
isco08 == 3331 ~ "Clearing and forwarding agents",
isco08 == 3332 ~ "Conference and event planners",
isco08 == 3333 ~ "Employment agents and contractors",
isco08 == 3334 ~ "Real estate agents and property managers",
isco08 == 3339 ~ "Business services agents nec",
isco08 == 3340 ~ "Administrative and specialized secretaries",
isco08 == 3341 ~ "Office supervisors",
isco08 == 3342 ~ "Legal secretaries",
isco08 == 3343 ~ "Administrative and executive secretaries",
isco08 == 3344 ~ "Medical secretaries",
isco08 == 3350 ~ "Regulatory government associate professionals",
isco08 == 3351 ~ "Customs and border inspectors",
isco08 == 3352 ~ "Government tax and excise officials",
isco08 == 3353 ~ "Government social benefits officials",
isco08 == 3354 ~ "Government licensing officials",
isco08 == 3355 ~ "Police inspectors and detectives",
isco08 == 3359 ~ "Regulatory government associate professionals nec",
isco08 == 3400 ~ "Legal, social, cultural and related associate professionals",
isco08 == 3410 ~ "Legal, social and religious associate professionals",
isco08 == 3411 ~ "Legal and related associate professionals",
isco08 == 3412 ~ "Social work associate professionals",
isco08 == 3413 ~ "Religious associate professionals",
isco08 == 3420 ~ "Sports and fitness workers",
isco08 == 3421 ~ "Athletes and sports players",
isco08 == 3422 ~ "Sports coaches, instructors and officials",
isco08 == 3423 ~ "Fitness and recreation instructors and program leaders",
isco08 == 3430 ~ "Artistic, cultural and culinary associate professionals",
isco08 == 3431 ~ "Photographers",
isco08 == 3432 ~ "Interior designers and decorators",
isco08 == 3433 ~ "Gallery, museum and library technicians",
isco08 == 3434 ~ "Chefs",
isco08 == 3435 ~ "Other artistic and cultural associate professionals",
isco08 == 3500 ~ "Information and communications technicians",
isco08 == 3510 ~ "ICT operations and user support technicians",
isco08 == 3511 ~ "ICT operations technicians",
isco08 == 3512 ~ "ICT user support technicians",
isco08 == 3513 ~ "Computer network and systems technicians",
isco08 == 3514 ~ "Web technicians",
isco08 == 3520 ~ "Telecommunications and broadcasting technicians",
isco08 == 3521 ~ "Broadcasting and audio-visual technicians",
isco08 == 3522 ~ "Telecommunications engineering technicians",
isco08 == 4000 ~ "Clerical support workers",
isco08 == 4100 ~ "General and keyboard clerks",
isco08 == 4110 ~ "General office clerks",
isco08 == 4120 ~ "Secretaries [general]",
isco08 == 4130 ~ "Keyboard operators",
isco08 == 4131 ~ "Typists and word processing operators",
isco08 == 4132 ~ "Data entry clerks",
isco08 == 4200 ~ "Customer services clerks",
isco08 == 4210 ~ "Tellers, money collectors and related clerks",
isco08 == 4211 ~ "Bank tellers and related clerks",
isco08 == 4212 ~ "Bookmakers, croupiers and related gaming workers",
isco08 == 4213 ~ "Pawnbrokers and money-lenders",
isco08 == 4214 ~ "Debt-collectors arw",
isco08 == 4220 ~ "Client information workers",
isco08 == 4221 ~ "Travel consultants and clerks",
isco08 == 4222 ~ "Contact centre information clerks",
isco08 == 4223 ~ "Telephone switchboard operators",
isco08 == 4224 ~ "Hotel receptionists",
isco08 == 4225 ~ "Enquiry clerks",
isco08 == 4226 ~ "Receptionists [general]",
isco08 == 4227 ~ "Survey and market research interviewers",
isco08 == 4229 ~ "Client information workers nec",
isco08 == 4300 ~ "Numerical and material recording clerks",
isco08 == 4310 ~ "Numerical clerks",
isco08 == 4311 ~ "Accounting and bookkeeping clerks",
isco08 == 4312 ~ "Statistical, finance and insurance clerks",
isco08 == 4313 ~ "Payroll clerks",
isco08 == 4320 ~ "Material-recording and transport clerks",
isco08 == 4321 ~ "Stock clerks",
isco08 == 4322 ~ "Production clerks",
isco08 == 4323 ~ "Transport clerks",
isco08 == 4400 ~ "Other clerical support workers",
isco08 == 4410 ~ "Other clerical support workers",
isco08 == 4411 ~ "Library clerks",
isco08 == 4412 ~ "Mail carriers and sorting clerks",
isco08 == 4413 ~ "Coding, proof-reading and related clerks",
isco08 == 4414 ~ "Scribes arw",
isco08 == 4415 ~ "Filing and copying clerks",
isco08 == 4416 ~ "Personnel clerks",
isco08 == 4419 ~ "Clerical support workers nec",
isco08 == 5000 ~ "Service and sales workers",
isco08 == 5100 ~ "Personal service workers",
isco08 == 5110 ~ "Travel attendants, conductors and guides",
isco08 == 5111 ~ "Travel attendants and travel stewards",
isco08 == 5112 ~ "Transport conductors",
isco08 == 5113 ~ "Travel guides",
isco08 == 5120 ~ "Cooks",
isco08 == 5130 ~ "Waiters and bartenders",
isco08 == 5131 ~ "Waiters",
isco08 == 5132 ~ "Bartenders",
isco08 == 5140 ~ "Hairdressers, beauticians arw",
isco08 == 5141 ~ "Hairdressers",
isco08 == 5142 ~ "Beauticians arw",
isco08 == 5150 ~ "Building and housekeeping supervisors",
isco08 == 5151 ~ "Cleaning and housekeeping supervisors in offices, hotels etc",
isco08 == 5152 ~ "Domestic housekeepers",
isco08 == 5153 ~ "Building caretakers",
isco08 == 5160 ~ "Other personal services workers",
isco08 == 5161 ~ "Astrologers, fortune-tellers arw",
isco08 == 5162 ~ "Companions and valets",
isco08 == 5163 ~ "Undertakers and embalmers",
isco08 == 5164 ~ "Pet groomers and animal care workers",
isco08 == 5165 ~ "Driving instructors",
isco08 == 5169 ~ "Personal services workers nec",
isco08 == 5200 ~ "Sales workers",
isco08 == 5210 ~ "Street and market salespersons",
isco08 == 5211 ~ "Stall and market salespersons",
isco08 == 5212 ~ "Street food salespersons",
isco08 == 5220 ~ "Shop salespersons",
isco08 == 5221 ~ "Shop keepers",
isco08 == 5222 ~ "Shop supervisors",
isco08 == 5223 ~ "Shop sales assistants",
isco08 == 5230 ~ "Cashiers and ticket clerks",
isco08 == 5240 ~ "Other sales workers",
isco08 == 5241 ~ "Fashion and other models",
isco08 == 5242 ~ "Sales demonstrators",
isco08 == 5243 ~ "Door to door salespersons",
isco08 == 5244 ~ "Contact centre salespersons",
isco08 == 5245 ~ "Service station attendants",
isco08 == 5246 ~ "Food service counter attendants",
isco08 == 5249 ~ "Sales workers nec",
isco08 == 5300 ~ "Personal care workers",
isco08 == 5310 ~ "Child care workers and teachers aides",
isco08 == 5311 ~ "Child care workers",
isco08 == 5312 ~ "Teachers aides",
isco08 == 5320 ~ "Personal care workers in health services",
isco08 == 5321 ~ "Health care assistants",
isco08 == 5322 ~ "Home-based personal care workers",
isco08 == 5329 ~ "Personal care workers in health services nec",
isco08 == 5400 ~ "Protective services workers",
isco08 == 5410 ~ "Protective services workers",
isco08 == 5411 ~ "Fire-fighters",
isco08 == 5412 ~ "Police officers",
isco08 == 5413 ~ "Prison guards",
isco08 == 5414 ~ "Security guards",
isco08 == 5419 ~ "Protective services workers nec",
isco08 == 6000 ~ "Skilled agricultural, forestry and fishery workers",
isco08 == 6100 ~ "Market-oriented skilled agricultural workers",
isco08 == 6110 ~ "Market gardeners and crop growers",
isco08 == 6111 ~ "Field crop and vegetable growers",
isco08 == 6112 ~ "Tree and shrub crop growers",
isco08 == 6113 ~ "Gardeners, horticultural and nursery growers",
isco08 == 6114 ~ "Mixed crop growers",
isco08 == 6120 ~ "Animal producers",
isco08 == 6121 ~ "Livestock and dairy producers",
isco08 == 6122 ~ "Poultry producers",
isco08 == 6123 ~ "Apiarists and sericulturists",
isco08 == 6129 ~ "Animal producers nec",
isco08 == 6130 ~ "Mixed crop and animal producers",
isco08 == 6200 ~ "Market-oriented skilled forestry, fishery, hunting wrkrs",
isco08 == 6210 ~ "Forestry arw",
isco08 == 6220 ~ "Fishery workers, hunters and trappers",
isco08 == 6221 ~ "Aquaculture workers",
isco08 == 6222 ~ "Inland and coastal waters fishery workers",
isco08 == 6223 ~ "Deep-sea fishery workers",
isco08 == 6224 ~ "Hunters and trappers",
isco08 == 6300 ~ "Subsistence farmers, fishers, hunters and gatherers",
isco08 == 6310 ~ "Subsistence crop farmers",
isco08 == 6320 ~ "Subsistence livestock farmers",
isco08 == 6330 ~ "Subsistence mixed crop and livestock farmers",
isco08 == 6340 ~ "Subsistence fishers, hunters, trappers and gatherers",
isco08 == 7000 ~ "Craft ar trades wrkrs",
isco08 == 7100 ~ "Building ar trades wrkrs, excluding electricians",
isco08 == 7110 ~ "Building frame ar trades wrkrs",
isco08 == 7111 ~ "House builders",
isco08 == 7112 ~ "Bricklayers arw",
isco08 == 7113 ~ "Stonemasons, stone cutters, splitters and carvers",
isco08 == 7114 ~ "Concrete placers, concrete finishers arw",
isco08 == 7115 ~ "Carpenters and joiners",
isco08 == 7119 ~ "Building frame ar trades wrkrs nec",
isco08 == 7120 ~ "Building finishers ar trades wrkrs",
isco08 == 7121 ~ "Roofers",
isco08 == 7122 ~ "Floor layers and tile setters",
isco08 == 7123 ~ "Plasterers",
isco08 == 7124 ~ "Insulation workers",
isco08 == 7125 ~ "Glaziers",
isco08 == 7126 ~ "Plumbers and pipe fitters",
isco08 == 7127 ~ "Air conditioning and refrigeration mechanics",
isco08 == 7130 ~ "Painters, building structure cleaners ar trades wrkrs",
isco08 == 7131 ~ "Painters arw",
isco08 == 7132 ~ "Spray painters and varnishers",
isco08 == 7133 ~ "Building structure cleaners",
isco08 == 7200 ~ "Metal, machinery ar trades wrkrs",
isco08 == 7210 ~ "Sheet-structural metal wekrs, moulders and welders, arw",
isco08 == 7211 ~ "Metal moulders and coremakers",
isco08 == 7212 ~ "Welders and flamecutters",
isco08 == 7213 ~ "Sheet-metal workers",
isco08 == 7214 ~ "Structural-metal preparers and erectors",
isco08 == 7215 ~ "Riggers and cable splicers",
isco08 == 7220 ~ "Blacksmiths, toolmakers ar trades wrkrs",
isco08 == 7221 ~ "Blacksmiths, hammersmiths and forging press workers",
isco08 == 7222 ~ "Toolmakers arw",
isco08 == 7223 ~ "Metal working machine tool setters and operators",
isco08 == 7224 ~ "Metal polishers, wheel grinders and tool sharpeners",
isco08 == 7230 ~ "Machinery mechanics and repairers",
isco08 == 7231 ~ "Motor vehicle mechanics and repairers",
isco08 == 7232 ~ "Aircraft engine mechanics and repairers",
isco08 == 7233 ~ "Agricultural-industrial machinery mechanics & repairers",
isco08 == 7234 ~ "Bicycle and related repairers",
isco08 == 7300 ~ "Handicraft and printing workers",
isco08 == 7310 ~ "Handicraft workers",
isco08 == 7311 ~ "Precision-instrument makers and repairers",
isco08 == 7312 ~ "Musical instrument makers and tuners",
isco08 == 7313 ~ "Jewellery and precious-metal workers",
isco08 == 7314 ~ "Potters arw",
isco08 == 7315 ~ "Glass makers, cutters, grinders and finishers",
isco08 == 7316 ~ "Sign writers, decorative painters, engravers and etchers",
isco08 == 7317 ~ "Handicraft workers in wood, basketry and related materials",
isco08 == 7318 ~ "Handicraft workers in textile, leather and related materials",
isco08 == 7319 ~ "Handicraft workers nec",
isco08 == 7320 ~ "Printing trades workers",
isco08 == 7321 ~ "Pre-press technicians",
isco08 == 7322 ~ "Printers",
isco08 == 7323 ~ "Print finishing and binding workers",
isco08 == 7400 ~ "Electrical and electronic trades workers",
isco08 == 7410 ~ "Electrical equipment installers and repairers",
isco08 == 7411 ~ "Building and related electricians",
isco08 == 7412 ~ "Electrical mechanics and fitters",
isco08 == 7413 ~ "Electrical line installers and repairers",
isco08 == 7420 ~ "Electronics and telecommunications installers and repairers",
isco08 == 7421 ~ "Electronics mechanics and servicers",
isco08 == 7422 ~ "ICT installers and servicers",
isco08 == 7500 ~ "Food processing, wood working, garment ar craft-trades wrks",
isco08 == 7510 ~ "Food processing ar trades wrkrs",
isco08 == 7511 ~ "Butchers, fishmongers and related food preparers",
isco08 == 7512 ~ "Bakers, pastry-cooks and confectionery makers",
isco08 == 7513 ~ "Dairy-products makers",
isco08 == 7514 ~ "Fruit, vegetable and related preservers",
isco08 == 7515 ~ "Food and beverage tasters and graders",
isco08 == 7516 ~ "Tobacco preparers and tobacco products makers",
isco08 == 7520 ~ "Wood treaters, cabinet-makers ar trades wrkrs",
isco08 == 7521 ~ "Wood treaters",
isco08 == 7522 ~ "Cabinet-makers arw",
isco08 == 7523 ~ "Woodworking-machine tool setters and operators",
isco08 == 7530 ~ "Garment ar trades wrkrs",
isco08 == 7531 ~ "Tailors, dressmakers, furriers and hatters",
isco08 == 7532 ~ "Garment and related pattern-makers and cutters",
isco08 == 7533 ~ "Sewing, embroidery arw",
isco08 == 7534 ~ "Upholsterers arw",
isco08 == 7535 ~ "Pelt dressers, tanners and fellmongers",
isco08 == 7536 ~ "Shoemakers arw",
isco08 == 7540 ~ "Other craft arw",
isco08 == 7541 ~ "Underwater divers",
isco08 == 7542 ~ "Shotfirers and blasters",
isco08 == 7543 ~ "Product graders and testers [excluding foods and beverages]",
isco08 == 7544 ~ "Fumigators and other pest and weed controllers",
isco08 == 7549 ~ "Craft arw nec",
isco08 == 8000 ~ "Plant and machine operators, and assemblers",
isco08 == 8100 ~ "Stationary plant and machine operators",
isco08 == 8110 ~ "Mining and mineral processing plant operators",
isco08 == 8111 ~ "Miners and quarriers",
isco08 == 8112 ~ "Mineral and stone processing plant operators",
isco08 == 8113 ~ "Well drillers and borers arw",
isco08 == 8114 ~ "Cement, stone and other mineral products machine operators",
isco08 == 8120 ~ "Metal processing and finishing plant operators",
isco08 == 8121 ~ "Metal processing plant operators",
isco08 == 8122 ~ "Metal finishing, plating and coating machine operators",
isco08 == 8130 ~ "Chemical-photograph products plant and machine operators",
isco08 == 8131 ~ "Chemical products plant and machine operators",
isco08 == 8132 ~ "Photographic products machine operators",
isco08 == 8140 ~ "Rubber, plastic and paper products machine operators",
isco08 == 8141 ~ "Rubber products machine operators",
isco08 == 8142 ~ "Plastic products machine operators",
isco08 == 8143 ~ "Paper products machine operators",
isco08 == 8150 ~ "Textile, fur and leather products machine operators",
isco08 == 8151 ~ "Fibre preparing, spinning and winding machine operators",
isco08 == 8152 ~ "Weaving and knitting machine operators",
isco08 == 8153 ~ "Sewing machine operators",
isco08 == 8154 ~ "Bleaching, dyeing and fabric cleaning machine operators",
isco08 == 8155 ~ "Fur and leather preparing machine operators",
isco08 == 8156 ~ "Shoemaking and related machine operators",
isco08 == 8157 ~ "Laundry machine operators",
isco08 == 8159 ~ "Textile, fur and leather products machine operators nec",
isco08 == 8160 ~ "Food and related products machine operators",
isco08 == 8170 ~ "Wood processing and papermaking plant operators",
isco08 == 8171 ~ "Pulp and papermaking plant operators",
isco08 == 8172 ~ "Wood processing plant operators",
isco08 == 8180 ~ "Other stationary plant and machine operators",
isco08 == 8181 ~ "Glass and ceramics plant operators",
isco08 == 8182 ~ "Steam engine and boiler operators",
isco08 == 8183 ~ "Packing, bottling and labelling machine operators",
isco08 == 8189 ~ "Stationary plant and machine operators nec",
isco08 == 8200 ~ "Assemblers",
isco08 == 8210 ~ "Assemblers",
isco08 == 8211 ~ "Mechanical machinery assemblers",
isco08 == 8212 ~ "Electrical and electronic equipment assemblers",
isco08 == 8219 ~ "Assemblers nec",
isco08 == 8300 ~ "Drivers and mobile plant operators",
isco08 == 8310 ~ "Locomotive engine drivers arw",
isco08 == 8311 ~ "Locomotive engine drivers",
isco08 == 8312 ~ "Railway brake, signal and switch operators",
isco08 == 8320 ~ "Car, van and motorcycle drivers",
isco08 == 8321 ~ "Motorcycle drivers",
isco08 == 8322 ~ "Car, taxi and van drivers",
isco08 == 8330 ~ "Heavy truck and bus drivers",
isco08 == 8331 ~ "Bus and tram drivers",
isco08 == 8332 ~ "Heavy truck and lorry drivers",
isco08 == 8340 ~ "Mobile plant operators",
isco08 == 8341 ~ "Mobile farm and forestry plant operators",
isco08 == 8342 ~ "Earthmoving and related plant operators",
isco08 == 8343 ~ "Crane, hoist and related plant operators",
isco08 == 8344 ~ "Lifting truck operators",
isco08 == 8350 ~ "Ships deck crews arw",
isco08 == 9000 ~ "Elementary occupations",
isco08 == 9100 ~ "Cleaners and helpers",
isco08 == 9110 ~ "Domestic, hotel and office cleaners and helpers",
isco08 == 9111 ~ "Domestic cleaners and helpers",
isco08 == 9112 ~ "Cleaners and helpers in offices, hotels etc",
isco08 == 9120 ~ "Vehicle, window, laundry and other hand cleaning workers",
isco08 == 9121 ~ "Hand launderers and pressers",
isco08 == 9122 ~ "Vehicle cleaners",
isco08 == 9123 ~ "Window cleaners",
isco08 == 9129 ~ "Other cleaning workers",
isco08 == 9200 ~ "Agricultural, forestry and fishery labourers",
isco08 == 9210 ~ "Agricultural, forestry and fishery labourers",
isco08 == 9211 ~ "Crop farm labourers",
isco08 == 9212 ~ "Livestock farm labourers",
isco08 == 9213 ~ "Mixed crop and livestock farm labourers",
isco08 == 9214 ~ "Garden and horticultural labourers",
isco08 == 9215 ~ "Forestry labourers",
isco08 == 9216 ~ "Fishery and aquaculture labourers",
isco08 == 9300 ~ "Labourers mining, construction, manufactur & transport",
isco08 == 9310 ~ "Mining and construction labourers",
isco08 == 9311 ~ "Mining and quarrying labourers",
isco08 == 9312 ~ "Civil engineering labourers",
isco08 == 9313 ~ "Building construction labourers",
isco08 == 9320 ~ "Manufacturing labourers",
isco08 == 9321 ~ "Hand packers",
isco08 == 9329 ~ "Manufacturing labourers nec",
isco08 == 9330 ~ "Transport and storage labourers",
isco08 == 9331 ~ "Hand and pedal vehicle drivers",
isco08 == 9332 ~ "Drivers of animal-drawn vehicles and machinery",
isco08 == 9333 ~ "Freight handlers",
isco08 == 9334 ~ "Shelf fillers",
isco08 == 9400 ~ "Food preparation assistants",
isco08 == 9410 ~ "Food preparation assistants",
isco08 == 9411 ~ "Fast food preparers",
isco08 == 9412 ~ "Kitchen helpers",
isco08 == 9500 ~ "Street and related sales and service workers",
isco08 == 9510 ~ "Street and related service workers",
isco08 == 9520 ~ "Street vendors [excluding food]",
isco08 == 9600 ~ "Refuse workers and other elementary workers",
isco08 == 9610 ~ "Refuse workers",
isco08 == 9611 ~ "Garbage and recycling collectors",
isco08 == 9612 ~ "Refuse sorters",
isco08 == 9613 ~ "Sweepers and related labourers",
isco08 == 9620 ~ "Other elementary workers",
isco08 == 9621 ~ "Messengers, package deliverers and luggage porters",
isco08 == 9622 ~ "Odd job persons",
isco08 == 9623 ~ "Meter readers and vending-machine collectors",
isco08 == 9624 ~ "Water and firewood collectors",
isco08 == 9629 ~ "Elementary workers not elsewhere classified~ ",
))
if (display.nas) display.nas(isco, conv.from="isco08", conv.to='isco08.label')
return(isco$isco08.label)
}
## =====================================================
## Occupation schemes: ISCO, EGP, ESEC, ISEC
## =====================================================
## {{{ Info: general }}}
## Info:
## - http://www.harryganzeboom.nl/ISCO08/qa-isei-08.htm
## - connelly2016review
## - Ganzeboom, Harry B.G.; Treiman, Donald J. (2003). "Three Internationally Standardised Measures for Comparative Research on Occupational Status." Pp. 159-193 in Jürgen H.P. Hoffmeyer-Zlotnik & Christof Wolf (Eds.), Advances in Cross-National Comparison. A European Working Book for Demographic and Socio-Economic Variables. New York: Kluwer Academic Press. Pp. 159-193. (6.1Mb)
## - Ganzeboom, Harry B.G.; Treiman, Donald J. (1996). “Internationally Comparable Measures of Occupational Status for the 1988 International Standard Classification of Occupations”. Social Science Research (25), pp. 201-239. (3.9 Mb)
## - Ganzeboom, Harry B.G.; De Graaf, Paul; Treiman, Donald J.; (with De Leeuw, Jan) (1992). "A Standard International Socio-Economic Index of Occupational Status", Social Science Research (21-1), pp. 1-56. (3.5Mb)
## - Ganzeboom, Harry B.G., Luijkx, Ruud; Treiman, Donald J. (1989). "Intergenerational Class Mobility in Comparative Perspective", Research in Social Stratification and Mobility (8), pp. 3-79.
##
## Schemes are:
## EGP (Erikson, Goldthorpe and Portocarero, 1979)
## ESeC (European Socio-Economic Classification as proposed by Rose and Harrison, 2009)
## ISEC-08 (International Socio-Economic Classes 2008),
## it is a categorization of occupational information coded in the ISCO-08. It gives information on
## status-in-employment into a 13 category social class scheme than contains well-known social class
## schemes as EGP and ESEC as special cases. The ISEC categories are:
## SIOPS (Standard International Occupation Prestige Score)
## - a.k.a Treiman-scale
## ISEI-08 (International Socio-Economic Index of occupational status)
## - continuous hierarchical scale
## - constructed on a database of 198500 men and women with valid education,
## occupation and (personal) incomes derived from the combined 2002-2007 issues of the
## International Social Survey Programme [ISSP].
## - while the aim of the new ISEI was to produce socio-economic status scores for ISCO-08,
## it was in fact calculated on occupations classified in ISCO-88 and then converted to
## ISCO-08 occupations.
##
## Differences:
## - ISEI is empirically constructed, while EGP and ESEC are a-priori constructions
## that are at best validated on empirical data.
## It only uses occupational data (i.e. occupation as classified by ISCO), whereas EGP and ESEC
## heavily use status-in-employment (self-employment and supervision)
## indicators to construct socio-economic classes.
## - Despite the differences ISEI and EGP (and presumably ESEC) are empirically strongly correlated (0.90),
## much more strongly than ISEI and SIOPS. If optimally scaled using a single dimension,
## EGP scores are virtually identical to their ISEI means.
##
## }}}
## {{{ Info EGP 7 }}}
## EGP (Erikson, Goldthorpe and Portocarero, 1979)
## Goldthorpe (1987) created a scheme for British data, which was restricted to the roman numerals and
## contained SEVEN classes:
## 1 I Service class I
## 2 II Service class II
## 3 III Routine non-manual
## 4 IV Self-employed
## 5 V Manual supervisors/Lower grade technicians
## 6 VI Skilled workers
## 7 VII Unskilled workers/Farm labours
## }}}
## {{{ Info EGP 11 }}}
## The scheme was extended into ELEVEN classes (Erikson and Goldthorpe, 1992)
## 1 I Service class I
## 2 II Service class II
## 3 III.a Routine non-manual higher grade
## 4 III.b Routine non-manual lower grade
## 5 IV.a Self-employed with employees
## 6 IV.b Self-employed with no empoyees
## 7 IV.c Self-employed Farmers etc
## 8 V Manual supervisors/Lower grade technicians
## 9 VI Skilled workers
## 10 VII.a Unskilled workers
## 11 VII.b Farm labours
## }}}
## {{{ Info EGP 5 }}}
## Other versions are FIVE classes scheme
## 1 I-III White-collar workers
## 2 IV.a+IV.b Petty bourgeoisie
## 3 IV.c+VII.b Farm workers
## 4 V+VI Skilled workers
## 5 VII.a Non-skilled workers
## }}}
## {{{ Info EGP 3 }}}
## and THREE class scheme
## 1 I-II+IV.a-b Non-manual workers
## 2 IV.c+VII.b Farm workers
## 3 V+VI+VI.a Manual workers
## }}}
## {{{ Info ISEC-08 }}}
## I-a Higher level professionals 1
## I-b Higher level managers and entrepreneurs 2
## II-a Lower level professionals 3
## II-b Lower level managers 4
## III-a Clerical Routine Non-manual Workers 5
## III-b Sales and Service Routine Non-manual Workers 6
## IV-a Small Self-employed with employees 7
## IV-b Small Self-employed without employers 8
## IV-c Small Self-employed in agriculture 9
## V Manual Supervisors 10
## VI Skilled Manual Workers 11
## VII-a Semi- and Unskilled Manual Workers 12
## VII-b Agricultural Labourers 13
## }}}
## ---------------------------------------
## Converting ISCO into Occupation Schemes
## ---------------------------------------
## {{{ docs }}}
#' Recode occupation to EGP class scheme
#'
#' The function creates a factor with the EGP class scheme
#'
#'
#' @param isco88 numeric vector with the isco88 4 digit code.
#' @param n.classes either 11, 7, 5, or 3, indicating the number of EGP classes to use ()
#' @inheritParams isco88toESeC
#' @param collapse deprecated
#'
#' @details
#' The number of classes to use in the EGP scheme is based on
#' - Connelly, R., Gayle, V., & Lambert, P. S., (2016) A review of occupation-based social classifications for social survey research, Methodological Innovations, v.9, p.1-14.
#'
#' @export
## }}}
isco88toEGP <- function(isco88, n.employees=NULL, self.employed=NULL, collapse=FALSE, n.classes=11)
{
## Recode ISCO88 to EGP using Ganzebooms' code
egp = rep(NA, length(isco88))
## Code the simple version, based on 4 digit ISCO88 values
## CLASS 1
egp[isco88 %in% c(1000, 2000, 1100, 2100, 1110, 2110, 1120, 2111, 2112,
2113, 2114, 2120, 2121, 1200, 2122, 1210, 2130, 1220, 2131, 1222, 1223,
2140, 1224, 2141, 1225, 2142, 1226, 2143, 1227, 2144, 1228, 2145, 1229,
2146, 1230, 2147, 1231, 1232, 2149, 1233, 2200, 3143, 1234, 2210, 3144,
1235, 2211, 1236, 2212, 1237, 2213, 1239, 2220, 2221, 1250, 2222, 1251,
2223, 2224, 2229, 2310, 2350, 2351, 2352, 2400, 2411, 2420, 2421, 2422,
2429, 2440, 2441, 2442, 2443, 2445)] <- 1 ## CLASS 1
## CLASS 2
egp[isco88 %in% c(3000, 3100, 3110, 3111, 1130, 3112, 1140, 3113, 1141,
3114, 1142, 3115, 5121, 1143, 3116, 3117, 3118, 3119, 2132, 3120, 2139,
3121, 3122, 3123, 3130, 3131, 3132, 3133, 3139, 5150, 3140, 5151, 2148,
3141, 5152, 3142, 3145, 3150, 3151, 3152, 1240, 3200, 3210, 3211, 1252,
3212, 1300, 3213, 1310, 2230, 3220, 2300, 3221, 1312, 3222, 1313, 2320,
3223, 1314, 2321, 3224, 1315, 2322, 3225, 1316, 2323, 3226, 1317, 2330,
3227, 1318, 2331, 3228, 1319, 2332, 3229, 2340, 3240, 2359, 3241, 3242,
2410, 2412, 2419, 3400, 3410, 3411, 2430, 3412, 2431, 3413, 2432, 3414,
3415, 3416, 3417, 3419, 2444, 3420, 3421, 2446, 3422, 2450, 3423, 2451,
3429, 2452, 2453, 3431, 2454, 3432, 2455, 2460, 3434, 3440, 3441, 3442,
3443, 3444, 3449, 3450, 3451, 3470, 3471, 3472, 3473, 3474,
3475)] <- 2 ## CLASS 2
## EGP CLASS 3
egp[isco88 %in% c(4000, 4100, 4122, 9100, 4110, 9110, 4111, 9111, 4112, 9112,
4113, 9113, 4114, 4115, 4120, 4121, 3230, 3231, 3232, 3300, 3310, 3320, 3330,
3340, 3430, 3433, 3439, 3460, 3480)] <- 3
## EGP CLASS 4
egp[isco88 %in% c(5000, 5100, 5110, 5111, 5112, 5113, 5120, 4130, 5131,
4131, 4132, 5133, 4133, 4140, 4141, 4143, 4144, 4190, 4200, 4210, 4211,
4212, 4213, 4214, 4215, 4220, 4221, 5200, 4222, 5210, 4223, 5220, 5230)] <- 4
## CLASSES 5 and 5, see below
## CLASS 7
egp[isco88 %in% c(3452, 7510)] <- 7 ## CLASS 7
## CLASS 8
egp[isco88 %in% c(7000, 7120, 5122, 7124, 7129, 7130, 7132, 5140, 7133, 5141, 7134, 5143, 7136, 8150, 7137,
8151, 7140, 8152, 7141, 8153, 8154, 8155, 5161, 7200, 8159,
5162, 7210, 8160, 7211, 8161, 5164, 7212, 8162, 7213, 8163, 7214, 8170, 7215, 8171, 7216,
8172, 7220, 7221, 7222, 7223, 7224, 7230, 7231, 7232, 7233, 7240, 7241, 7242,
7243, 7244, 7245, 7300, 7310, 7311, 7312, 7313, 7323, 7324, 7340, 7341, 7342, 7343, 7344,
7345, 7346, 7400, 7410, 7411, 7412, 7413, 7414, 7415, 7416, 7420, 7422, 8311,
7423, 7430, 7433, 7434, 7435, 7436, 8332, 7437, 8333, 7440, 7441, 7442, 7500, 7520)] <- 8
## CLASS 9
egp[isco88 %in% c(8000, 9000, 7100, 8100, 7110, 8110, 7111, 8111, 7112, 8112, 7113, 8113, 8120, 9120, 7121,
8121, 9130, 7122, 8122, 9131, 5123, 7123, 8123, 9132, 5130,
8124, 9133, 8130, 9140, 5132, 8131, 9141, 7131, 8139, 9142, 5139, 8140, 9150, 8141, 9151,
8142, 9152, 4142, 5142, 7135, 8143, 9153, 9160, 5149, 9161, 9162, 9200, 7142,
5160, 7143, 5163, 9300, 9310, 5169, 9311, 9312, 9313, 9320, 8200, 9321, 8210, 9322, 8211,
9330, 8212, 9331, 8220, 9332, 8221, 9333, 8222, 8223, 8224, 7234, 8229, 8230,
8231, 8232, 8240, 8250, 8251, 8252, 8253, 8260, 8261, 8262, 7320, 8263, 7321, 8264, 7322,
8265, 8266, 8269, 7330, 8270, 7331, 8271, 7332, 8272, 8273, 8274, 8275, 8276,
8277, 8278, 8279, 8280, 8281, 8282, 8283, 8284, 8285, 8286, 8290, 8300, 7421, 8310, 8312,
7424, 8320, 8321, 7431, 8322, 7432, 8323, 8324, 8330, 8334, 8340, 8400,
7530)] <- 9
## CLASS 10
egp[isco88 %in% c(6000, 6100, 6110, 6111, 6112, 6113, 6114, 6120, 6121, 6122, 6123, 6124, 6129, 6130, 6134,
6140, 6141, 6142, 6150, 6151, 9210, 6152, 9211, 6153, 9212,
6154, 9213, 8331)] <- 10
## CLASS 11
egp[isco88 %in% c(1221, 6131, 6132, 6133, 6200, 6210, 1311)] <- 11
## CLASSES 5 and 6
if (!is.null(self.employed) & !is.null(n.employees)) {
n.employees[is.na(n.employees)] = 0
self.employed[is.na(self.employed)] = 0
## CLASS 5
egp[self.employed == 1 & n.employees > 0 ] = 5
## CLASS 6
egp[self.employed == 1 & n.employees == 0 ] = 6
}
egp = egp_get_n_classes(egp, n.classes)
return(egp)
}
egp_get_n_classes <- function(egp, n.classes)
{
if (n.classes==11) {
egp = factor(egp, levels=1:11, labels=c("I Service class I",
"II Service class II",
"III.a Routine non-manual, higher grade",
"III.b Routine non-manual, lower grade",
"IV.a Self-employed with employees",
"IV.b Self-employed with no empoyees",
"IV.c Self-employed Farmers etc",
"V Manual supervisors/Lower grade technicians",
"VI Skilled workers",
"VII.a Unskilled workers",
"VII.b Farm labours"))
}
if (n.classes==7) {
egp[egp %in% c(1)] = 1
egp[egp %in% c(2)] = 2
egp[egp %in% c(3:4)] = 3
egp[egp %in% c(5:7)] = 4
egp[egp %in% c(8)] = 5
egp[egp %in% c(9)] = 6
egp[egp %in% c(10:11)] = 7
egp = factor(egp, levels=1:7, labels=c("I Service class I",
"II Service class II",
"III Routine non-manual",
## "III.a Routine non-manual, higher grade",
## "III.b Routine non-manual, lower grade",
"IV Self-employed",
## "IV.a Self-employed with employees",
## "IV.b Self-employed with no empoyees",
## "IV.c Self-employed Farmers etc",
"V Manual supervisors/Lower grade technicians",
"VI Skilled workers",
"VII Unskilled workers/Farm labours"
## "VII.a Unskilled workers",
## "VII.b Farm labours"
))
}
if (n.classes==5) {
egp[egp %in% c(1:4)] = 1
egp[egp %in% c(5:6)] = 2
egp[egp %in% c(7, 11)] = 3
egp[egp %in% c(8:9)] = 4
egp[egp %in% c(10)] = 5
egp = factor(egp, levels=1:5, labels=c(
"I-III White-collar workers",
"IV.a+IV.b Petty bourgeoisie",
"IV.c+VII.b Farm workers",
"V+VI Skilled workers",
"VII.a Non-skilled workers"
))
}
if (n.classes==3) {
egp[egp %in% c(1:6)] = 1
egp[egp %in% c(7, 11)] = 2
egp[egp %in% c(8:10)] = 3
egp = factor(egp, levels=1:3, labels=c(
"I-II+IV.a-b Non-manual workers",
"IV.c+VII.b Farm workers",
"V+VI+VI.a Manual workers"
))
}
return(egp)
}
## {{{ docs }}}
#' Recode ISCO-08 into ISEI-08
#'
#' The function recodes ISCO-08 into ISEI-08.
#'
#' @param isco08 a numeric vector with the ISCO-08 codes
#' @param display.nas boolean. If true (defaul is \code{FALSE}), displays table with unmatched ISCO-08 codes.
#'
#' @return
#' It returns a vector with ISEI-08 codes.
#'
#' @export
## }}}
isco08toISEI08 <- function(isco08, display.nas=FALSE)
{
isei = tibble::tibble(isco08=isco08)
isei = isei %>%
dplyr::mutate(isei08 = dplyr::case_when(
isco08 == 0 ~ 51.25,
isco08 == 100 ~ 60.92,
isco08 == 110 ~ 60.92,
isco08 == 200 ~ 51.63,
isco08 == 210 ~ 51.63,
isco08 == 300 ~ 29.18,
isco08 == 310 ~ 29.18,
isco08 == 1000 ~ 65.12,
isco08 == 1100 ~ 71.72,
isco08 == 1110 ~ 74.50,
isco08 == 1111 ~ 68.77,
isco08 == 1112 ~ 78.76,
isco08 == 1113 ~ 64.98,
isco08 == 1114 ~ 71.29,
isco08 == 1120 ~ 70.34,
isco08 == 1200 ~ 72.94,
isco08 == 1210 ~ 72.24,
isco08 == 1211 ~ 73.38,
isco08 == 1212 ~ 74.79,
isco08 == 1213 ~ 70.57,
isco08 == 1219 ~ 68.54,
isco08 == 1220 ~ 73.71,
isco08 == 1221 ~ 71.39,
isco08 == 1222 ~ 75.25,
isco08 == 1223 ~ 81.92,
isco08 == 1300 ~ 65.25,
isco08 == 1310 ~ 49.48,
isco08 == 1311 ~ 49.48,
isco08 == 1312 ~ 49.48,
isco08 == 1320 ~ 61.57,
isco08 == 1321 ~ 65.42,
isco08 == 1322 ~ 61.57,
isco08 == 1323 ~ 59.89,
isco08 == 1324 ~ 58.07,
isco08 == 1330 ~ 78.86,
isco08 == 1340 ~ 65.01,
isco08 == 1341 ~ 65.01,
isco08 == 1342 ~ 65.01,
isco08 == 1343 ~ 65.01,
isco08 == 1344 ~ 65.01,
isco08 == 1345 ~ 65.01,
isco08 == 1346 ~ 65.01,
isco08 == 1349 ~ 65.01,
isco08 == 1400 ~ 51.01,
isco08 == 1410 ~ 43.85,
isco08 == 1411 ~ 43.85,
isco08 == 1412 ~ 43.85,
isco08 == 1420 ~ 51.56,
isco08 == 1430 ~ 51.01,
isco08 == 1431 ~ 51.01,
isco08 == 1439 ~ 51.01,
isco08 == 2000 ~ 76.24,
isco08 == 2100 ~ 79.49,
isco08 == 2110 ~ 84.16,
isco08 == 2111 ~ 84.61,
isco08 == 2112 ~ 84.61,
isco08 == 2113 ~ 83.50,
isco08 == 2114 ~ 86.81,
isco08 == 2120 ~ 81.78,
isco08 == 2130 ~ 80.46,
isco08 == 2131 ~ 80.46,
isco08 == 2132 ~ 78.17,
isco08 == 2133 ~ 80.46,
isco08 == 2140 ~ 79.05,
isco08 == 2141 ~ 79.05,
isco08 == 2142 ~ 81.40,
isco08 == 2143 ~ 79.05,
isco08 == 2144 ~ 77.10,
isco08 == 2145 ~ 82.31,
isco08 == 2146 ~ 79.31,
isco08 == 2149 ~ 78.69,
isco08 == 2150 ~ 80.75,
isco08 == 2151 ~ 80.78,
isco08 == 2152 ~ 80.75,
isco08 == 2153 ~ 80.75,
isco08 == 2160 ~ 79.74,
isco08 == 2161 ~ 79.74,
isco08 == 2162 ~ 79.74,
isco08 == 2163 ~ 79.74,
isco08 == 2164 ~ 79.74,
isco08 == 2165 ~ 72.96,
isco08 == 2166 ~ 79.74,
isco08 == 2200 ~ 76.98,
isco08 == 2210 ~ 88.70,
isco08 == 2211 ~ 88.70,
isco08 == 2212 ~ 81.92,
isco08 == 2220 ~ 68.70,
isco08 == 2221 ~ 68.70,
isco08 == 2222 ~ 68.70,
isco08 == 2230 ~ 76.98,
isco08 == 2240 ~ 76.98,
isco08 == 2250 ~ 84.14,
isco08 == 2260 ~ 75.43,
isco08 == 2261 ~ 88.31,
isco08 == 2262 ~ 81.13,
isco08 == 2263 ~ 75.43,
isco08 == 2264 ~ 67.94,
isco08 == 2265 ~ 65.23,
isco08 == 2266 ~ 75.43,
isco08 == 2267 ~ 75.43,
isco08 == 2269 ~ 75.43,
isco08 == 2300 ~ 75.54,
isco08 == 2310 ~ 85.41,
isco08 == 2320 ~ 72.30,
isco08 == 2330 ~ 82.41,
isco08 == 2340 ~ 71.45,
isco08 == 2341 ~ 76.49,
isco08 == 2342 ~ 58.77,
isco08 == 2350 ~ 68.88,
isco08 == 2351 ~ 77.88,
isco08 == 2352 ~ 70.89,
isco08 == 2353 ~ 68.88,
isco08 == 2354 ~ 68.88,
isco08 == 2355 ~ 68.88,
isco08 == 2356 ~ 68.88,
isco08 == 2359 ~ 66.42,
isco08 == 2400 ~ 73.91,
isco08 == 2410 ~ 75.50,
isco08 == 2411 ~ 76.65,
isco08 == 2412 ~ 75.50,
isco08 == 2413 ~ 75.50,
isco08 == 2420 ~ 70.09,
isco08 == 2421 ~ 70.09,
isco08 == 2422 ~ 72.94,
isco08 == 2423 ~ 68.55,
isco08 == 2424 ~ 70.09,
isco08 == 2430 ~ 73.91,
isco08 == 2431 ~ 73.91,
isco08 == 2432 ~ 73.91,
isco08 == 2433 ~ 73.91,
isco08 == 2434 ~ 73.91,
isco08 == 2500 ~ 75.13,
isco08 == 2510 ~ 74.66,
isco08 == 2511 ~ 74.66,
isco08 == 2512 ~ 74.66,
isco08 == 2513 ~ 74.66,
isco08 == 2514 ~ 74.66,
isco08 == 2519 ~ 74.70,
isco08 == 2520 ~ 75.13,
isco08 == 2521 ~ 75.13,
isco08 == 2522 ~ 75.13,
isco08 == 2523 ~ 75.13,
isco08 == 2529 ~ 75.13,
isco08 == 2600 ~ 75.67,
isco08 == 2610 ~ 85.13,
isco08 == 2611 ~ 86.72,
isco08 == 2612 ~ 88.96,
isco08 == 2619 ~ 81.05,
isco08 == 2620 ~ 71.55,
isco08 == 2621 ~ 77.19,
isco08 == 2622 ~ 70.40,
isco08 == 2630 ~ 77.24,
isco08 == 2631 ~ 80.92,
isco08 == 2632 ~ 83.09,
isco08 == 2633 ~ 83.81,
isco08 == 2634 ~ 85.85,
isco08 == 2635 ~ 70.50,
isco08 == 2636 ~ 71.55,
isco08 == 2640 ~ 72.83,
isco08 == 2641 ~ 72.83,
isco08 == 2642 ~ 72.83,
isco08 == 2643 ~ 80.92,
isco08 == 2650 ~ 63.31,
isco08 == 2651 ~ 61.82,
isco08 == 2652 ~ 64.44,
isco08 == 2653 ~ 61.82,
isco08 == 2654 ~ 63.31,
isco08 == 2655 ~ 70.10,
isco08 == 2656 ~ 54.00,
isco08 == 2659 ~ 37.59,
isco08 == 3000 ~ 56.03,
isco08 == 3100 ~ 52.40,
isco08 == 3110 ~ 53.60,
isco08 == 3111 ~ 55.03,
isco08 == 3112 ~ 59.35,
isco08 == 3113 ~ 51.92,
isco08 == 3114 ~ 56.38,
isco08 == 3115 ~ 53.77,
isco08 == 3116 ~ 59.45,
isco08 == 3117 ~ 62.79,
isco08 == 3118 ~ 50.73,
isco08 == 3119 ~ 51.35,
isco08 == 3120 ~ 38.18,
isco08 == 3121 ~ 37.83,
isco08 == 3122 ~ 40.54,
isco08 == 3123 ~ 37.83,
isco08 == 3130 ~ 33.66,
isco08 == 3131 ~ 46.73,
isco08 == 3132 ~ 37.22,
isco08 == 3133 ~ 33.66,
isco08 == 3134 ~ 33.66,
isco08 == 3135 ~ 33.66,
isco08 == 3139 ~ 31.46,
isco08 == 3140 ~ 54.86,
isco08 == 3141 ~ 54.86,
isco08 == 3142 ~ 58.05,
isco08 == 3143 ~ 54.86,
isco08 == 3150 ~ 63.29,
isco08 == 3151 ~ 56.41,
isco08 == 3152 ~ 52.70,
isco08 == 3153 ~ 73.71,
isco08 == 3154 ~ 69.24,
isco08 == 3155 ~ 67.04,
isco08 == 3200 ~ 55.40,
isco08 == 3210 ~ 54.92,
isco08 == 3211 ~ 57.04,
isco08 == 3212 ~ 57.37,
isco08 == 3213 ~ 48.66,
isco08 == 3214 ~ 54.92,
isco08 == 3220 ~ 56.98,
isco08 == 3221 ~ 56.00,
isco08 == 3222 ~ 51.93,
isco08 == 3230 ~ 51.57,
isco08 == 3240 ~ 24.79,
isco08 == 3250 ~ 53.15,
isco08 == 3251 ~ 47.83,
isco08 == 3252 ~ 53.15,
isco08 == 3253 ~ 53.15,
isco08 == 3254 ~ 59.85,
isco08 == 3255 ~ 53.15,
isco08 == 3256 ~ 44.92,
isco08 == 3257 ~ 57.25,
isco08 == 3258 ~ 53.15,
isco08 == 3259 ~ 61.91,
isco08 == 3300 ~ 57.64,
isco08 == 3310 ~ 57.13,
isco08 == 3311 ~ 72.27,
isco08 == 3312 ~ 59.76,
isco08 == 3313 ~ 55.25,
isco08 == 3314 ~ 69.76,
isco08 == 3315 ~ 57.68,
isco08 == 3320 ~ 57.97,
isco08 == 3321 ~ 60.29,
isco08 == 3322 ~ 57.03,
isco08 == 3323 ~ 56.35,
isco08 == 3324 ~ 61.18,
isco08 == 3330 ~ 56.64,
isco08 == 3331 ~ 54.62,
isco08 == 3332 ~ 56.64,
isco08 == 3333 ~ 60.44,
isco08 == 3334 ~ 62.39,
isco08 == 3339 ~ 59.89,
isco08 == 3340 ~ 57.99,
isco08 == 3341 ~ 62.13,
isco08 == 3342 ~ 57.99,
isco08 == 3343 ~ 54.55,
isco08 == 3344 ~ 57.99,
isco08 == 3350 ~ 61.60,
isco08 == 3351 ~ 65.64,
isco08 == 3352 ~ 67.11,
isco08 == 3353 ~ 54.27,
isco08 == 3354 ~ 59.18,
isco08 == 3355 ~ 63.03,
isco08 == 3359 ~ 64.40,
isco08 == 3400 ~ 52.57,
isco08 == 3410 ~ 54.35,
isco08 == 3411 ~ 57.00,
isco08 == 3412 ~ 52.72,
isco08 == 3413 ~ 54.54,
isco08 == 3420 ~ 50.90,
isco08 == 3421 ~ 50.90,
isco08 == 3422 ~ 50.90,
isco08 == 3423 ~ 50.90,
isco08 == 3430 ~ 50.15,
isco08 == 3431 ~ 50.15,
isco08 == 3432 ~ 57.64,
isco08 == 3433 ~ 50.15,
isco08 == 3434 ~ 50.15,
isco08 == 3435 ~ 50.15,
isco08 == 3500 ~ 60.93,
isco08 == 3510 ~ 62.45,
isco08 == 3511 ~ 61.07,
isco08 == 3512 ~ 62.45,
isco08 == 3513 ~ 62.45,
isco08 == 3514 ~ 62.45,
isco08 == 3520 ~ 56.50,
isco08 == 3521 ~ 56.57,
isco08 == 3522 ~ 56.50,
isco08 == 4000 ~ 43.51,
isco08 == 4100 ~ 43.33,
isco08 == 4110 ~ 43.33,
isco08 == 4120 ~ 44.94,
isco08 == 4130 ~ 44.87,
isco08 == 4131 ~ 48.27,
isco08 == 4132 ~ 40.56,
isco08 == 4200 ~ 41.22,
isco08 == 4210 ~ 43.06,
isco08 == 4211 ~ 48.10,
isco08 == 4212 ~ 48.82,
isco08 == 4213 ~ 50.05,
isco08 == 4214 ~ 50.05,
isco08 == 4220 ~ 39.02,
isco08 == 4221 ~ 49.30,
isco08 == 4222 ~ 39.02,
isco08 == 4223 ~ 38.58,
isco08 == 4224 ~ 39.02,
isco08 == 4225 ~ 39.02,
isco08 == 4226 ~ 39.02,
isco08 == 4227 ~ 39.02,
isco08 == 4229 ~ 39.02,
isco08 == 4300 ~ 44.08,
isco08 == 4310 ~ 50.57,
isco08 == 4311 ~ 50.37,
isco08 == 4312 ~ 57.38,
isco08 == 4313 ~ 50.57,
isco08 == 4320 ~ 36.10,
isco08 == 4321 ~ 32.50,
isco08 == 4322 ~ 41.63,
isco08 == 4323 ~ 41.27,
isco08 == 4400 ~ 42.30,
isco08 == 4410 ~ 42.30,
isco08 == 4411 ~ 42.30,
isco08 == 4412 ~ 27.52,
isco08 == 4413 ~ 51.77,
isco08 == 4414 ~ 54.67,
isco08 == 4415 ~ 42.30,
isco08 == 4416 ~ 42.30,
isco08 == 4419 ~ 44.72,
isco08 == 5000 ~ 29.32,
isco08 == 5100 ~ 27.57,
isco08 == 5110 ~ 45.46,
isco08 == 5111 ~ 46.76,
isco08 == 5112 ~ 38.44,
isco08 == 5113 ~ 47.42,
isco08 == 5120 ~ 24.53,
isco08 == 5130 ~ 25.04,
isco08 == 5131 ~ 25.04,
isco08 == 5132 ~ 25.04,
isco08 == 5140 ~ 31.08,
isco08 == 5141 ~ 31.08,
isco08 == 5142 ~ 31.08,
isco08 == 5150 ~ 25.46,
isco08 == 5151 ~ 25.20,
isco08 == 5152 ~ 32.20,
isco08 == 5153 ~ 21.82,
isco08 == 5160 ~ 30.59,
isco08 == 5161 ~ 32.75,
isco08 == 5162 ~ 24.07,
isco08 == 5163 ~ 34.25,
isco08 == 5164 ~ 30.59,
isco08 == 5165 ~ 30.59,
isco08 == 5169 ~ 32.75,
isco08 == 5200 ~ 29.73,
isco08 == 5210 ~ 26.64,
isco08 == 5211 ~ 28.84,
isco08 == 5212 ~ 23.53,
isco08 == 5220 ~ 29.47,
isco08 == 5221 ~ 35.34,
isco08 == 5222 ~ 44.14,
isco08 == 5223 ~ 28.48,
isco08 == 5230 ~ 30.90,
isco08 == 5240 ~ 39.04,
isco08 == 5241 ~ 39.73,
isco08 == 5242 ~ 39.04,
isco08 == 5243 ~ 39.04,
isco08 == 5244 ~ 38.88,
isco08 == 5245 ~ 39.04,
isco08 == 5246 ~ 39.04,
isco08 == 5249 ~ 39.04,
isco08 == 5300 ~ 25.09,
isco08 == 5310 ~ 24.98,
isco08 == 5311 ~ 24.98,
isco08 == 5312 ~ 24.98,
isco08 == 5320 ~ 26.64,
isco08 == 5321 ~ 26.64,
isco08 == 5322 ~ 21.64,
isco08 == 5329 ~ 26.64,
isco08 == 5400 ~ 36.86,
isco08 == 5410 ~ 36.86,
isco08 == 5411 ~ 46.38,
isco08 == 5412 ~ 51.50,
isco08 == 5413 ~ 48.13,
isco08 == 5414 ~ 23.80,
isco08 == 5419 ~ 33.83,
isco08 == 6000 ~ 19.20,
isco08 == 6100 ~ 19.41,
isco08 == 6110 ~ 16.34,
isco08 == 6111 ~ 11.56,
isco08 == 6112 ~ 18.95,
isco08 == 6113 ~ 20.91,
isco08 == 6114 ~ 12.87,
isco08 == 6120 ~ 22.21,
isco08 == 6121 ~ 21.13,
isco08 == 6122 ~ 19.83,
isco08 == 6123 ~ 28.04,
isco08 == 6129 ~ 28.04,
isco08 == 6130 ~ 17.79,
isco08 == 6200 ~ 18.29,
isco08 == 6210 ~ 19.78,
isco08 == 6220 ~ 16.33,
isco08 == 6221 ~ 17.00,
isco08 == 6222 ~ 13.35,
isco08 == 6223 ~ 20.69,
isco08 == 6224 ~ 11.01,
isco08 == 6300 ~ 11.01,
isco08 == 6310 ~ 11.01,
isco08 == 6320 ~ 11.01,
isco08 == 6330 ~ 11.01,
isco08 == 6340 ~ 11.01,
isco08 == 7000 ~ 28.53,
isco08 == 7100 ~ 25.39,
isco08 == 7110 ~ 25.94,
isco08 == 7111 ~ 33.76,
isco08 == 7112 ~ 22.57,
isco08 == 7113 ~ 23.96,
isco08 == 7114 ~ 21.96,
isco08 == 7115 ~ 26.62,
isco08 == 7119 ~ 26.92,
isco08 == 7120 ~ 25.26,
isco08 == 7121 ~ 22.16,
isco08 == 7122 ~ 22.75,
isco08 == 7123 ~ 18.02,
isco08 == 7124 ~ 27.81,
isco08 == 7125 ~ 24.09,
isco08 == 7126 ~ 29.16,
isco08 == 7127 ~ 25.26,
isco08 == 7130 ~ 23.63,
isco08 == 7131 ~ 22.77,
isco08 == 7132 ~ 24.49,
isco08 == 7133 ~ 30.47,
isco08 == 7200 ~ 29.81,
isco08 == 7210 ~ 27.61,
isco08 == 7211 ~ 28.03,
isco08 == 7212 ~ 28.52,
isco08 == 7213 ~ 25.51,
isco08 == 7214 ~ 26.60,
isco08 == 7215 ~ 28.60,
isco08 == 7220 ~ 29.84,
isco08 == 7221 ~ 25.63,
isco08 == 7222 ~ 33.16,
isco08 == 7223 ~ 28.70,
isco08 == 7224 ~ 33.90,
isco08 == 7230 ~ 31.15,
isco08 == 7231 ~ 30.78,
isco08 == 7232 ~ 47.74,
isco08 == 7233 ~ 31.72,
isco08 == 7234 ~ 31.15,
isco08 == 7300 ~ 31.00,
isco08 == 7310 ~ 30.35,
isco08 == 7311 ~ 35.70,
isco08 == 7312 ~ 35.66,
isco08 == 7313 ~ 28.12,
isco08 == 7314 ~ 24.43,
isco08 == 7315 ~ 25.78,
isco08 == 7316 ~ 30.14,
isco08 == 7317 ~ 28.95,
isco08 == 7318 ~ 28.97,
isco08 == 7319 ~ 30.35,
isco08 == 7320 ~ 31.50,
isco08 == 7321 ~ 35.33,
isco08 == 7322 ~ 30.49,
isco08 == 7323 ~ 28.24,
isco08 == 7400 ~ 37.34,
isco08 == 7410 ~ 36.97,
isco08 == 7411 ~ 36.35,
isco08 == 7412 ~ 36.92,
isco08 == 7413 ~ 39.45,
isco08 == 7420 ~ 41.68,
isco08 == 7421 ~ 43.76,
isco08 == 7422 ~ 36.92,
isco08 == 7500 ~ 23.97,
isco08 == 7510 ~ 23.46,
isco08 == 7511 ~ 20.95,
isco08 == 7512 ~ 23.57,
isco08 == 7513 ~ 27.30,
isco08 == 7514 ~ 22.79,
isco08 == 7515 ~ 34.12,
isco08 == 7516 ~ 26.96,
isco08 == 7520 ~ 23.65,
isco08 == 7521 ~ 21.81,
isco08 == 7522 ~ 25.23,
isco08 == 7523 ~ 20.78,
isco08 == 7530 ~ 22.03,
isco08 == 7531 ~ 23.47,
isco08 == 7532 ~ 24.88,
isco08 == 7533 ~ 21.24,
isco08 == 7534 ~ 22.25,
isco08 == 7535 ~ 28.08,
isco08 == 7536 ~ 18.07,
isco08 == 7540 ~ 43.19,
isco08 == 7541 ~ 27.30,
isco08 == 7542 ~ 27.30,
isco08 == 7543 ~ 43.19,
isco08 == 7544 ~ 55.96,
isco08 == 7549 ~ 43.19,
isco08 == 8000 ~ 25.45,
isco08 == 8100 ~ 23.41,
isco08 == 8110 ~ 31.44,
isco08 == 8111 ~ 35.07,
isco08 == 8112 ~ 25.11,
isco08 == 8113 ~ 35.82,
isco08 == 8114 ~ 26.13,
isco08 == 8120 ~ 25.91,
isco08 == 8121 ~ 30.32,
isco08 == 8122 ~ 22.36,
isco08 == 8130 ~ 29.30,
isco08 == 8131 ~ 29.14,
isco08 == 8132 ~ 31.34,
isco08 == 8140 ~ 25.49,
isco08 == 8141 ~ 23.09,
isco08 == 8142 ~ 24.85,
isco08 == 8143 ~ 32.67,
isco08 == 8150 ~ 16.80,
isco08 == 8151 ~ 17.85,
isco08 == 8152 ~ 18.03,
isco08 == 8153 ~ 13.24,
isco08 == 8154 ~ 16.08,
isco08 == 8155 ~ 20.35,
isco08 == 8156 ~ 20.35,
isco08 == 8157 ~ 16.80,
isco08 == 8159 ~ 21.20,
isco08 == 8160 ~ 18.13,
isco08 == 8170 ~ 22.40,
isco08 == 8171 ~ 27.25,
isco08 == 8172 ~ 19.08,
isco08 == 8180 ~ 24.15,
isco08 == 8181 ~ 21.13,
isco08 == 8182 ~ 23.19,
isco08 == 8183 ~ 24.15,
isco08 == 8189 ~ 24.16,
isco08 == 8200 ~ 24.93,
isco08 == 8210 ~ 24.93,
isco08 == 8211 ~ 27.91,
isco08 == 8212 ~ 23.88,
isco08 == 8219 ~ 24.68,
isco08 == 8300 ~ 26.80,
isco08 == 8310 ~ 38.80,
isco08 == 8311 ~ 45.76,
isco08 == 8312 ~ 29.80,
isco08 == 8320 ~ 30.11,
isco08 == 8321 ~ 28.48,
isco08 == 8322 ~ 30.34,
isco08 == 8330 ~ 25.71,
isco08 == 8331 ~ 26.85,
isco08 == 8332 ~ 25.95,
isco08 == 8340 ~ 21.08,
isco08 == 8341 ~ 13.34,
isco08 == 8342 ~ 24.45,
isco08 == 8343 ~ 24.80,
isco08 == 8344 ~ 18.08,
isco08 == 8350 ~ 37.92,
isco08 == 9000 ~ 16.50,
isco08 == 9100 ~ 14.64,
isco08 == 9110 ~ 14.64,
isco08 == 9111 ~ 16.38,
isco08 == 9112 ~ 14.21,
isco08 == 9120 ~ 14.57,
isco08 == 9121 ~ 14.82,
isco08 == 9122 ~ 14.57,
isco08 == 9123 ~ 14.57,
isco08 == 9129 ~ 14.57,
isco08 == 9200 ~ 11.87,
isco08 == 9210 ~ 11.74,
isco08 == 9211 ~ 11.74,
isco08 == 9212 ~ 11.74,
isco08 == 9213 ~ 11.74,
isco08 == 9214 ~ 11.74,
isco08 == 9215 ~ 12.01,
isco08 == 9216 ~ 12.34,
isco08 == 9300 ~ 17.53,
isco08 == 9310 ~ 16.39,
isco08 == 9311 ~ 15.35,
isco08 == 9312 ~ 17.56,
isco08 == 9313 ~ 15.35,
isco08 == 9320 ~ 17.55,
isco08 == 9321 ~ 17.55,
isco08 == 9329 ~ 16.36,
isco08 == 9330 ~ 19.66,
isco08 == 9331 ~ 20.27,
isco08 == 9332 ~ 16.89,
isco08 == 9333 ~ 17.69,
isco08 == 9334 ~ 19.66,
isco08 == 9400 ~ 16.50,
isco08 == 9410 ~ 16.50,
isco08 == 9411 ~ 16.50,
isco08 == 9412 ~ 16.50,
isco08 == 9500 ~ 23.43,
isco08 == 9510 ~ 13.72,
isco08 == 9520 ~ 25.20,
isco08 == 9600 ~ 24.07,
isco08 == 9610 ~ 14.39,
isco08 == 9611 ~ 14.39,
isco08 == 9612 ~ 14.39,
isco08 == 9613 ~ 13.87,
isco08 == 9620 ~ 27.91,
isco08 == 9621 ~ 25.06,
isco08 == 9622 ~ 27.91,
isco08 == 9623 ~ 30.99,
isco08 == 9624 ~ 27.91,
isco08 == 9629 ~ 27.91,
)
)
if (display.nas) display.nas(isco, conv.from="isco08", conv.to='isei08')
return(isei$isei08)
}
## {{{ docs }}}
#' Compute ESeC
#'
#' This function returns the ESeC (European Socio-economic classification) scheme
#'
#'
#' @param isco88 a vector with the isco88 codes
#' @param employed a vector containing the value 1 whenever the person is employed
#' @param unemployed a vector containing the value 1 whenever the person is unemployed
#' @param self.employed a vector containing the value 1 whenever the person is self-employed
#' @param supervisor a vector containing the value 1 whenever the person is a supervisor
#' @param n.employees a vector containing the number of employees.
#' @param n.cat either one of the following integers: 10 (default), 6 ,5, or 3 indicating the number of categories to be used inthe ESEeC scheme
#' @param isco88.armed.forces numeric vector with the code for armed forces (usually isco88 major code 0)
#'
#' @return It returns a list with two elements, the ESec code and its label
#'
#' @export
## }}}
isco88toESeC <- function(isco88, employed=NULL, unemployed=NULL, self.employed=NULL, supervisor=NULL, n.employees=NULL, n.cat=10, isco88.armed.forces=NULL)
{
## check https://www.iser.essex.ac.uk/archives/esec/user-guide
## recode armed forces
## -------------------
if (!is.null(isco88.armed.forces)) {
isco88[isco88 %in% isco88.armed.forces] = 10
}else{
on.exit(cat("\n\nNo code provided for armed forces in the parameter isco88.armed.forces"))
}
## error control
## -------------
if (any(isco88[(!is.na(isco88)) & isco88 != 10] %>% nchar < 4)) {
stop("\n\nPlease, provide isco88 with 4 digits for all cases. Check isco88 for armed foreces and provide it in the parameter isco88.armed.forces! \n\n")
}
if (is.null(employed) | is.null(unemployed) | is.null(self.employed) | is.null(supervisor) | is.null(n.employees)) {
stop("\n\nThe parameters employed, unemployed, self.employed, supervisor, and n.employees must be non-NULL.\n\n")
}
## reduces isco88 to 3 digits
## --------------------------
isco88 = isco88 %>% stringr::str_replace(string=., pattern=".$", replacement="")
## set indicator variables
## -----------------------
self.employed[self.employed != 1 | is.na(self.employed)] = 0
unemployed [unemployed != 1 | is.na(unemployed) ] = 0
employed [employed != 1 | is.na(employed) ] = 0
supervisor [supervisor != 1 | is.na(supervisor) ] = 0
## Compute employment status categories
## ------------------------------------
status = rep(NA, length(isco88))
status[self.employed == 1 & n.employees > 9] <- 1 #### 1: self-employed 10+ employees
status[self.employed == 1 & n.employees %in% 1:9] <- 2 #### 2: small employers <10
status[self.employed == 1 & n.employees == 0] <- 3 #### 3: self-employed, no employees
status[self.employed != 1 & employed == 1 & supervisor == 1] <- 4 #### 4: supervisors
status[self.employed != 1 & employed == 1 & supervisor != 1] <- 5 #### 5: employee
status[unemployed == 1] <- 6 #### 5: unemployed
## Compute ESeC based on status categories
## ---------------------------------------
## ESeC status categories:
## 1 Large employers, higher grade professional, administrative and managerial occupations /Higher salariat
## 2 Lower grade professionals, administrative and managerial occupations and higher grade technician and supervisory occupations /Lower salariat
## 3 Intermediate occupations /Higher grade white collar workers
## 4 Small employers and self-employed occupations(non-agriculture) /Petit bourgeoisie or independents
## 5 Small employers and self-employed occupations (agriculture) /Petit bourgeoisie or independents (agriculture)
## 6 Lower supervisors and technicians /Higher grade blue collar workers
## 7 Lower services, sales and clerical occupations /Lower grade white collar workers
## 8 Lower technical occupations /Skilled workers
## 9 Routine occupations /semi- and non-skilled workers
## 10 Never worked and long-term unemployed /Unemployed
esec = rep(NA, length(isco88))
## ------------------------------------------
## 1) Self-employed 10+ employees. Defaults to 1
## ------------------------------------------
esec[status == 1] <- 1
esec[status == 1 & isco88 %in% c(344, 345)] <- 2
esec[status == 1 & isco88 %in% c(011, 516)] <- 3
esec[status == 1 & isco88 == 621] <- 5
## ------------------------------------------
## 2) Small employers <10. Defaults to 4
## ------------------------------------------
esec[status == 2] <- 4
esec[status == 2 & isco88 %in% c(010, 110, 111, 114, 200, 210, 211, 212, 213, 214, 220, 221, 222, 231, 235, 240, 241, 242)] <- 1
esec[status == 2 & isco88 %in% c(223, 230, 232, 233, 234, 243, 244, 245, 246, 247, 310, 311, 312, 314, 320, 321, 322, 323, 334, 342, 344, 345, 348)] <- 2
esec[status == 2 & isco88 %in% c(011, 516)] <- 3
esec[status == 2 & isco88 %in% c(600, 610, 611, 612, 613, 614, 615, 621, 920, 921)] <- 5
## ------------------------------------------
## 3) Self-employed with no employees. Defaults to 4
## ------------------------------------------
esec[status == 3] <- 4
esec[status == 3 & isco88 %in% c(010, 110, 111, 114, 200, 210, 211, 212, 213, 214, 220, 221, 222, 231, 235, 240, 241, 242)] <- 1
esec[status == 3 & isco88 %in% c(223, 230, 232, 233, 234, 243, 244, 245, 246, 247, 310, 311, 312, 314, 320, 321, 322, 323, 334, 342, 344, 345, 348)] <- 2
esec[status == 3 & isco88 %in% c(011,516)] <- 3
esec[status == 3 & isco88 %in% c(600, 610, 611, 612, 613, 614, 615, 621, 920, 921)] <- 5
## ------------------------------------------
## 4) Supervisors. Defaults to 6
## ------------------------------------------
esec[status == 4] <- 6
esec[status == 4 & isco88 %in% c(010, 100, 110, 111, 114, 120, 121, 123, 200, 210, 211, 212, 213, 214, 220, 221, 222, 231, 235, 240, 241, 242)] <- 1
esec[status == 4 & isco88 %in% c(011, 122, 130,131, 223, 230, 232, 233, 234, 243, 244, 245, 246, 247, 300, 310, 311, 312, 313, 314, 320, 321, 322, 323, 330, 331, 332, 333, 334, 340,341, 342, 343,
344, 345, 346, 347, 348, 400, 410, 411, 412, 419, 420, 521)] <- 2
esec[status == 4 & isco88 == 621] <- 5
## ------------------------------------------
## 5) Employees
## ------------------------------------------
esec[status == 5 & isco88 %in% c(010, 100,110,111,114,120, 121, 123, 200, 210, 211, 212, 213, 214, 220, 221, 222, 231, 235, 240, 241, 242)] <- 1
esec[status == 5 & isco88 %in% c(122,130,131, 223, 230, 232, 233, 234, 243, 244, 245, 246, 247, 310, 311, 312, 314, 320, 321, 322, 323, 334, 342, 344, 345, 348, 521)] <- 2
esec[status == 5 & isco88 %in% c(011, 300, 330, 331, 332, 333, 340, 341, 343, 346, 347, 400, 410, 411, 412, 419, 420)] <- 3
esec[status == 5 & isco88 == 621] <- 5
esec[status == 5 & isco88 %in% c(313, 315, 730,731)] <- 6
esec[status == 5 & isco88 %in% c(413, 421, 422, 500, 510, 511, 513, 514, 516, 520, 522, 911)] <- 7
esec[status == 5 & isco88 %in% c(600, 610, 611, 612, 613, 614, 615, 700, 710, 711, 712, 713, 714, 720, 721, 722, 723, 724, 732, 733, 734, 740, 741, 742, 743, 744, 825, 831, 834)] <- 8
esec[status == 5 & isco88 %in% c(414, 512, 800, 810, 811, 812, 813, 814, 815, 816, 817, 820, 821, 822, 823, 824, 826, 827, 828, 829, 830, 832, 833,900, 910, 912, 913, 914, 915, 916, 920, 921, 930, 931, 932, 933)] <- 9
## ------------------------------------------
## 6) Unemployed
## ------------------------------------------
esec[status == 6] <- 10
## Harrison & Rose, 2006, "(ESeC) User Guide", pg. 9-10
## ----------------------------------------------------
## The 10 class model may be collapsed to 6, 5 or 3 classes.
##
## - 6-class:
## - classes 1 and 2 = class 1 "the salariat"
## - classes 3 and 6 = "intermediate employee" class 2
## - classes 4 and 5 = class 3 "small employers and self-employed"
## - class 7 becomes class 4;
## - class 8 becomes class 5;
## - class 9 becomes class 6.
##
## - 5-class model:
## - classes 5 and 6 in the sidata class model:
## "lower technical and routine occupations".
##
## - the three class model:
## - classes 1 and 2=salariat;
## - 3, 4, 5 and 6=intermediate;
## - 7, 8 and 9=working class.
##
## - Class 10 may be added as an additional in any of the models,
## if desired.;
## Collapse 7 class
if (n.cat == 7) {
esec[esec %in% 1:2] <- 1
esec[esec %in% c(3,6)] <- 2
esec[esec %in% c(4,5)] <- 3
esec[esec == 7] <- 4
esec[esec == 8] <- 5
esec[esec == 9] <- 6
esec[esec == 10] <- 7
}
## Collapse 6 class
if (n.cat == 6) {
esec[esec %in% 1:2] <- 1
esec[esec %in% c(3,6)] <- 2
esec[esec %in% c(4,5)] <- 3
esec[esec == 7] <- 4
esec[esec %in% 8:9] <- 5
esec[esec %in% 10] <- 6
}
## Collapse 4 class
if (n.cat == 4) {
esec[esec %in% 1:2] <- 1
esec[esec %in% 3:6] <- 2
esec[esec %in% 7:9] <- 3
esec[esec == 10] <- 4
}
esec = set.esec.labels(esec, n.cat=n.cat)
return(esec)
}
set.esec.labels <- function(esec, n.cat=NULL)
{
if (n.cat == 10) {
labels = factor(esec, levels=1:10, labels = c(
'Higher salariat', # 1
'Lower salariat', # 2
'Higher grade white collar workers', # 3
'Petit bourgeoisie', # 4
'Petit bourgeoisie (agriculture)', # 5
'Higher grade blue collar workers', # 6
'Lower grade white collar workers', # 7
'Skilled workers', # 8
'Semi- and non-skilled workers', # 9
'Unemployed' # 10
))
}
if (n.cat == 7) {
labels = factor(esec, levels=1:7, labels = c(
'Salariat', # 1
'Intermediate employee', # 2
'Small/self employers', # 3
'Lower grade white collar workers', # 4
'Skilled workers', # 5
'Semi- and non-skilled workers' , # 6
'Unemployed' # 10
))
}
if (n.cat == 6) {
labels = factor(esec, levels=1:6, labels = c(
'Salariat', # 1
'Intermediate employee', # 2
'Small/self employers', # 3
'Lower grade white collar workers', # 4
'Skilled and semi- and non-skilled workers',# 5
'Unemployed' # 6
))
}
if (n.cat == 4) {
labels = factor(esec, levels=1:4, labels = c('Salariat', 'Intermediate employee/small employers', 'Working class', 'Unemployed'))
}
return(labels)
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.