R/convert_from_ISCO08_to_ISCO88_3d.R

In SocialPosition: Social Position Indicators Construction Toolbox

convert_from_ISCO08_to_ISCO88_3d <-
function(ISCO08, data){
data$ISCO88_3d[ISCO08 %in% c(0)] <-10
data$ISCO88_3d[ISCO08 %in% c(01)] <-10
data$ISCO88_3d[ISCO08 %in% c(011)] <-10
data$ISCO88_3d[ISCO08 %in% c(0110)] <-10
data$ISCO88_3d[ISCO08 %in% c(02)] <-10
data$ISCO88_3d[ISCO08 %in% c(021)] <-10
data$ISCO88_3d[ISCO08 %in% c(0210)] <-10
data$ISCO88_3d[ISCO08 %in% c(03)] <-10
data$ISCO88_3d[ISCO08 %in% c(031)] <-10
data$ISCO88_3d[ISCO08 %in% c(0310)] <-10
data$ISCO88_3d[ISCO08 %in% c(1)] <-100
data$ISCO88_3d[ISCO08 %in% c(10)] <-100
data$ISCO88_3d[ISCO08 %in% c(100)] <-100
data$ISCO88_3d[ISCO08 %in% c(1000)] <-100
data$ISCO88_3d[ISCO08 %in% c(11)] <-110
data$ISCO88_3d[ISCO08 %in% c(110)] <-110
data$ISCO88_3d[ISCO08 %in% c(1100)] <-110
data$ISCO88_3d[ISCO08 %in% c(111)] <-110
data$ISCO88_3d[ISCO08 %in% c(1110)] <-110
data$ISCO88_3d[ISCO08 %in% c(1111)] <-111
data$ISCO88_3d[ISCO08 %in% c(1112)] <-111
data$ISCO88_3d[ISCO08 %in% c(1113)] <-113
data$ISCO88_3d[ISCO08 %in% c(1114)] <-111
data$ISCO88_3d[ISCO08 %in% c(112)] <-121
data$ISCO88_3d[ISCO08 %in% c(1120)] <-121
data$ISCO88_3d[ISCO08 %in% c(12)] <-120
data$ISCO88_3d[ISCO08 %in% c(120)] <-120
data$ISCO88_3d[ISCO08 %in% c(1200)] <-120
data$ISCO88_3d[ISCO08 %in% c(121)] <-120
data$ISCO88_3d[ISCO08 %in% c(1210)] <-120
data$ISCO88_3d[ISCO08 %in% c(1211)] <-123
data$ISCO88_3d[ISCO08 %in% c(1212)] <-123
data$ISCO88_3d[ISCO08 %in% c(1213)] <-123
data$ISCO88_3d[ISCO08 %in% c(1219)] <-123
data$ISCO88_3d[ISCO08 %in% c(122)] <-122
data$ISCO88_3d[ISCO08 %in% c(1220)] <-122
data$ISCO88_3d[ISCO08 %in% c(1221)] <-122
data$ISCO88_3d[ISCO08 %in% c(1222)] <-122
data$ISCO88_3d[ISCO08 %in% c(1223)] <-122
data$ISCO88_3d[ISCO08 %in% c(13)] <-122
data$ISCO88_3d[ISCO08 %in% c(130)] <-122
data$ISCO88_3d[ISCO08 %in% c(1300)] <-122
data$ISCO88_3d[ISCO08 %in% c(131)] <-122
data$ISCO88_3d[ISCO08 %in% c(1310)] <-122
data$ISCO88_3d[ISCO08 %in% c(1311)] <-611
data$ISCO88_3d[ISCO08 %in% c(1312)] <-122
data$ISCO88_3d[ISCO08 %in% c(132)] <-122
data$ISCO88_3d[ISCO08 %in% c(1320)] <-122
data$ISCO88_3d[ISCO08 %in% c(1321)] <-122
data$ISCO88_3d[ISCO08 %in% c(1322)] <-122
data$ISCO88_3d[ISCO08 %in% c(1323)] <-214
data$ISCO88_3d[ISCO08 %in% c(1324)] <-122
data$ISCO88_3d[ISCO08 %in% c(133)] <-122
data$ISCO88_3d[ISCO08 %in% c(1330)] <-122
data$ISCO88_3d[ISCO08 %in% c(134)] <-122
data$ISCO88_3d[ISCO08 %in% c(1340)] <-122
data$ISCO88_3d[ISCO08 %in% c(1341)] <-122
data$ISCO88_3d[ISCO08 %in% c(1342)] <-122
data$ISCO88_3d[ISCO08 %in% c(1343)] <-122
data$ISCO88_3d[ISCO08 %in% c(1344)] <-122
data$ISCO88_3d[ISCO08 %in% c(1345)] <-122
data$ISCO88_3d[ISCO08 %in% c(1346)] <-122
data$ISCO88_3d[ISCO08 %in% c(1349)] <-832
data$ISCO88_3d[ISCO08 %in% c(14)] <-131
data$ISCO88_3d[ISCO08 %in% c(140)] <-131
data$ISCO88_3d[ISCO08 %in% c(1400)] <-131
data$ISCO88_3d[ISCO08 %in% c(141)] <-131
data$ISCO88_3d[ISCO08 %in% c(1410)] <-131
data$ISCO88_3d[ISCO08 %in% c(1411)] <-131
data$ISCO88_3d[ISCO08 %in% c(1412)] <-131
data$ISCO88_3d[ISCO08 %in% c(142)] <-122
data$ISCO88_3d[ISCO08 %in% c(1420)] <-122
data$ISCO88_3d[ISCO08 %in% c(143)] <-340
data$ISCO88_3d[ISCO08 %in% c(1430)] <-340
data$ISCO88_3d[ISCO08 %in% c(1431)] <-346
data$ISCO88_3d[ISCO08 %in% c(1439)] <-341
data$ISCO88_3d[ISCO08 %in% c(2)] <-200
data$ISCO88_3d[ISCO08 %in% c(20)] <-200
data$ISCO88_3d[ISCO08 %in% c(200)] <-200
data$ISCO88_3d[ISCO08 %in% c(2000)] <-200
data$ISCO88_3d[ISCO08 %in% c(21)] <-211
data$ISCO88_3d[ISCO08 %in% c(210)] <-211
data$ISCO88_3d[ISCO08 %in% c(2100)] <-211
data$ISCO88_3d[ISCO08 %in% c(211)] <-211
data$ISCO88_3d[ISCO08 %in% c(2110)] <-211
data$ISCO88_3d[ISCO08 %in% c(2111)] <-211
data$ISCO88_3d[ISCO08 %in% c(2112)] <-211
data$ISCO88_3d[ISCO08 %in% c(2113)] <-211
data$ISCO88_3d[ISCO08 %in% c(2114)] <-211
data$ISCO88_3d[ISCO08 %in% c(212)] <-212
data$ISCO88_3d[ISCO08 %in% c(2120)] <-212
data$ISCO88_3d[ISCO08 %in% c(213)] <-221
data$ISCO88_3d[ISCO08 %in% c(2130)] <-221
data$ISCO88_3d[ISCO08 %in% c(2131)] <-221
data$ISCO88_3d[ISCO08 %in% c(2132)] <-221
data$ISCO88_3d[ISCO08 %in% c(2133)] <-221
data$ISCO88_3d[ISCO08 %in% c(214)] <-214
data$ISCO88_3d[ISCO08 %in% c(2140)] <-214
data$ISCO88_3d[ISCO08 %in% c(2141)] <-214
data$ISCO88_3d[ISCO08 %in% c(2142)] <-247
data$ISCO88_3d[ISCO08 %in% c(2143)] <-221
data$ISCO88_3d[ISCO08 %in% c(2144)] <-214
data$ISCO88_3d[ISCO08 %in% c(2145)] <-214
data$ISCO88_3d[ISCO08 %in% c(2146)] <-214
data$ISCO88_3d[ISCO08 %in% c(2149)] <-214
data$ISCO88_3d[ISCO08 %in% c(215)] <-214
data$ISCO88_3d[ISCO08 %in% c(2150)] <-214
data$ISCO88_3d[ISCO08 %in% c(2151)] <-214
data$ISCO88_3d[ISCO08 %in% c(2152)] <-214
data$ISCO88_3d[ISCO08 %in% c(2153)] <-213
data$ISCO88_3d[ISCO08 %in% c(216)] <-214
data$ISCO88_3d[ISCO08 %in% c(2160)] <-214
data$ISCO88_3d[ISCO08 %in% c(2161)] <-214
data$ISCO88_3d[ISCO08 %in% c(2162)] <-611
data$ISCO88_3d[ISCO08 %in% c(2163)] <-347
data$ISCO88_3d[ISCO08 %in% c(2164)] <-214
data$ISCO88_3d[ISCO08 %in% c(2165)] <-214
data$ISCO88_3d[ISCO08 %in% c(2166)] <-347
data$ISCO88_3d[ISCO08 %in% c(22)] <-322
data$ISCO88_3d[ISCO08 %in% c(220)] <-322
data$ISCO88_3d[ISCO08 %in% c(2200)] <-322
data$ISCO88_3d[ISCO08 %in% c(221)] <-222
data$ISCO88_3d[ISCO08 %in% c(2210)] <-222
data$ISCO88_3d[ISCO08 %in% c(2211)] <-222
data$ISCO88_3d[ISCO08 %in% c(2212)] <-222
data$ISCO88_3d[ISCO08 %in% c(222)] <-323
data$ISCO88_3d[ISCO08 %in% c(2220)] <-323
data$ISCO88_3d[ISCO08 %in% c(2221)] <-323
data$ISCO88_3d[ISCO08 %in% c(2222)] <-323
data$ISCO88_3d[ISCO08 %in% c(223)] <-322
data$ISCO88_3d[ISCO08 %in% c(2230)] <-322
data$ISCO88_3d[ISCO08 %in% c(224)] <-322
data$ISCO88_3d[ISCO08 %in% c(2240)] <-322
data$ISCO88_3d[ISCO08 %in% c(225)] <-222
data$ISCO88_3d[ISCO08 %in% c(2250)] <-222
data$ISCO88_3d[ISCO08 %in% c(226)] <-322
data$ISCO88_3d[ISCO08 %in% c(2260)] <-322
data$ISCO88_3d[ISCO08 %in% c(2261)] <-222
data$ISCO88_3d[ISCO08 %in% c(2262)] <-222
data$ISCO88_3d[ISCO08 %in% c(2263)] <-222
data$ISCO88_3d[ISCO08 %in% c(2264)] <-322
data$ISCO88_3d[ISCO08 %in% c(2265)] <-322
data$ISCO88_3d[ISCO08 %in% c(2266)] <-322
data$ISCO88_3d[ISCO08 %in% c(2267)] <-322
data$ISCO88_3d[ISCO08 %in% c(2269)] <-322
data$ISCO88_3d[ISCO08 %in% c(23)] <-232
data$ISCO88_3d[ISCO08 %in% c(230)] <-232
data$ISCO88_3d[ISCO08 %in% c(2300)] <-232
data$ISCO88_3d[ISCO08 %in% c(231)] <-231
data$ISCO88_3d[ISCO08 %in% c(2310)] <-231
data$ISCO88_3d[ISCO08 %in% c(232)] <-232
data$ISCO88_3d[ISCO08 %in% c(2320)] <-232
data$ISCO88_3d[ISCO08 %in% c(233)] <-232
data$ISCO88_3d[ISCO08 %in% c(2330)] <-232
data$ISCO88_3d[ISCO08 %in% c(234)] <-233
data$ISCO88_3d[ISCO08 %in% c(2340)] <-233
data$ISCO88_3d[ISCO08 %in% c(2341)] <-233
data$ISCO88_3d[ISCO08 %in% c(2342)] <-333
data$ISCO88_3d[ISCO08 %in% c(235)] <-235
data$ISCO88_3d[ISCO08 %in% c(2350)] <-235
data$ISCO88_3d[ISCO08 %in% c(2351)] <-235
data$ISCO88_3d[ISCO08 %in% c(2352)] <-333
data$ISCO88_3d[ISCO08 %in% c(2353)] <-235
data$ISCO88_3d[ISCO08 %in% c(2354)] <-235
data$ISCO88_3d[ISCO08 %in% c(2355)] <-231
data$ISCO88_3d[ISCO08 %in% c(2356)] <-235
data$ISCO88_3d[ISCO08 %in% c(2359)] <-334
data$ISCO88_3d[ISCO08 %in% c(24)] <-240
data$ISCO88_3d[ISCO08 %in% c(240)] <-240
data$ISCO88_3d[ISCO08 %in% c(2400)] <-240
data$ISCO88_3d[ISCO08 %in% c(241)] <-241
data$ISCO88_3d[ISCO08 %in% c(2410)] <-241
data$ISCO88_3d[ISCO08 %in% c(2411)] <-241
data$ISCO88_3d[ISCO08 %in% c(2412)] <-241
data$ISCO88_3d[ISCO08 %in% c(2413)] <-122
data$ISCO88_3d[ISCO08 %in% c(242)] <-241
data$ISCO88_3d[ISCO08 %in% c(2420)] <-241
data$ISCO88_3d[ISCO08 %in% c(2421)] <-247
data$ISCO88_3d[ISCO08 %in% c(2422)] <-247
data$ISCO88_3d[ISCO08 %in% c(2423)] <-241
data$ISCO88_3d[ISCO08 %in% c(2424)] <-241
data$ISCO88_3d[ISCO08 %in% c(243)] <-241
data$ISCO88_3d[ISCO08 %in% c(2430)] <-241
data$ISCO88_3d[ISCO08 %in% c(2431)] <-241
data$ISCO88_3d[ISCO08 %in% c(2432)] <-241
data$ISCO88_3d[ISCO08 %in% c(2433)] <-214
data$ISCO88_3d[ISCO08 %in% c(2434)] <-213
data$ISCO88_3d[ISCO08 %in% c(25)] <-213
data$ISCO88_3d[ISCO08 %in% c(250)] <-213
data$ISCO88_3d[ISCO08 %in% c(2500)] <-213
data$ISCO88_3d[ISCO08 %in% c(251)] <-213
data$ISCO88_3d[ISCO08 %in% c(2510)] <-213
data$ISCO88_3d[ISCO08 %in% c(2511)] <-213
data$ISCO88_3d[ISCO08 %in% c(2512)] <-213
data$ISCO88_3d[ISCO08 %in% c(2513)] <-213
data$ISCO88_3d[ISCO08 %in% c(2514)] <-213
data$ISCO88_3d[ISCO08 %in% c(2519)] <-213
data$ISCO88_3d[ISCO08 %in% c(252)] <-213
data$ISCO88_3d[ISCO08 %in% c(2520)] <-213
data$ISCO88_3d[ISCO08 %in% c(2521)] <-213
data$ISCO88_3d[ISCO08 %in% c(2522)] <-213
data$ISCO88_3d[ISCO08 %in% c(2523)] <-213
data$ISCO88_3d[ISCO08 %in% c(2529)] <-213
data$ISCO88_3d[ISCO08 %in% c(26)] <-240
data$ISCO88_3d[ISCO08 %in% c(260)] <-240
data$ISCO88_3d[ISCO08 %in% c(2600)] <-240
data$ISCO88_3d[ISCO08 %in% c(261)] <-242
data$ISCO88_3d[ISCO08 %in% c(2610)] <-242
data$ISCO88_3d[ISCO08 %in% c(2611)] <-242
data$ISCO88_3d[ISCO08 %in% c(2612)] <-242
data$ISCO88_3d[ISCO08 %in% c(2619)] <-242
data$ISCO88_3d[ISCO08 %in% c(262)] <-243
data$ISCO88_3d[ISCO08 %in% c(2620)] <-243
data$ISCO88_3d[ISCO08 %in% c(2621)] <-243
data$ISCO88_3d[ISCO08 %in% c(2622)] <-243
data$ISCO88_3d[ISCO08 %in% c(263)] <-244
data$ISCO88_3d[ISCO08 %in% c(2630)] <-244
data$ISCO88_3d[ISCO08 %in% c(2631)] <-244
data$ISCO88_3d[ISCO08 %in% c(2632)] <-244
data$ISCO88_3d[ISCO08 %in% c(2633)] <-244
data$ISCO88_3d[ISCO08 %in% c(2634)] <-244
data$ISCO88_3d[ISCO08 %in% c(2635)] <-346
data$ISCO88_3d[ISCO08 %in% c(2636)] <-246
data$ISCO88_3d[ISCO08 %in% c(264)] <-245
data$ISCO88_3d[ISCO08 %in% c(2640)] <-245
data$ISCO88_3d[ISCO08 %in% c(2641)] <-245
data$ISCO88_3d[ISCO08 %in% c(2642)] <-245
data$ISCO88_3d[ISCO08 %in% c(2643)] <-244
data$ISCO88_3d[ISCO08 %in% c(265)] <-245
data$ISCO88_3d[ISCO08 %in% c(2650)] <-245
data$ISCO88_3d[ISCO08 %in% c(2651)] <-245
data$ISCO88_3d[ISCO08 %in% c(2652)] <-245
data$ISCO88_3d[ISCO08 %in% c(2653)] <-347
data$ISCO88_3d[ISCO08 %in% c(2654)] <-122
data$ISCO88_3d[ISCO08 %in% c(2655)] <-245
data$ISCO88_3d[ISCO08 %in% c(2656)] <-347
data$ISCO88_3d[ISCO08 %in% c(2659)] <-245
data$ISCO88_3d[ISCO08 %in% c(3)] <-300
data$ISCO88_3d[ISCO08 %in% c(30)] <-300
data$ISCO88_3d[ISCO08 %in% c(300)] <-300
data$ISCO88_3d[ISCO08 %in% c(3000)] <-300
data$ISCO88_3d[ISCO08 %in% c(31)] <-310
data$ISCO88_3d[ISCO08 %in% c(310)] <-310
data$ISCO88_3d[ISCO08 %in% c(3100)] <-310
data$ISCO88_3d[ISCO08 %in% c(311)] <-310
data$ISCO88_3d[ISCO08 %in% c(3110)] <-310
data$ISCO88_3d[ISCO08 %in% c(3111)] <-311
data$ISCO88_3d[ISCO08 %in% c(3112)] <-311
data$ISCO88_3d[ISCO08 %in% c(3113)] <-311
data$ISCO88_3d[ISCO08 %in% c(3114)] <-311
data$ISCO88_3d[ISCO08 %in% c(3115)] <-723
data$ISCO88_3d[ISCO08 %in% c(3116)] <-311
data$ISCO88_3d[ISCO08 %in% c(3117)] <-311
data$ISCO88_3d[ISCO08 %in% c(3118)] <-311
data$ISCO88_3d[ISCO08 %in% c(3119)] <-311
data$ISCO88_3d[ISCO08 %in% c(312)] <-712
data$ISCO88_3d[ISCO08 %in% c(3120)] <-712
data$ISCO88_3d[ISCO08 %in% c(3121)] <-811
data$ISCO88_3d[ISCO08 %in% c(3122)] <-311
data$ISCO88_3d[ISCO08 %in% c(3123)] <-712
data$ISCO88_3d[ISCO08 %in% c(313)] <-311
data$ISCO88_3d[ISCO08 %in% c(3130)] <-311
data$ISCO88_3d[ISCO08 %in% c(3131)] <-724
data$ISCO88_3d[ISCO08 %in% c(3132)] <-311
data$ISCO88_3d[ISCO08 %in% c(3133)] <-311
data$ISCO88_3d[ISCO08 %in% c(3134)] <-815
data$ISCO88_3d[ISCO08 %in% c(3135)] <-812
data$ISCO88_3d[ISCO08 %in% c(3139)] <-311
data$ISCO88_3d[ISCO08 %in% c(314)] <-321
data$ISCO88_3d[ISCO08 %in% c(3140)] <-321
data$ISCO88_3d[ISCO08 %in% c(3141)] <-321
data$ISCO88_3d[ISCO08 %in% c(3142)] <-321
data$ISCO88_3d[ISCO08 %in% c(3143)] <-321
data$ISCO88_3d[ISCO08 %in% c(315)] <-314
data$ISCO88_3d[ISCO08 %in% c(3150)] <-314
data$ISCO88_3d[ISCO08 %in% c(3151)] <-314
data$ISCO88_3d[ISCO08 %in% c(3152)] <-314
data$ISCO88_3d[ISCO08 %in% c(3153)] <-314
data$ISCO88_3d[ISCO08 %in% c(3154)] <-344
data$ISCO88_3d[ISCO08 %in% c(3155)] <-314
data$ISCO88_3d[ISCO08 %in% c(32)] <-322
data$ISCO88_3d[ISCO08 %in% c(320)] <-322
data$ISCO88_3d[ISCO08 %in% c(3200)] <-322
data$ISCO88_3d[ISCO08 %in% c(321)] <-321
data$ISCO88_3d[ISCO08 %in% c(3210)] <-321
data$ISCO88_3d[ISCO08 %in% c(3211)] <-321
data$ISCO88_3d[ISCO08 %in% c(3212)] <-321
data$ISCO88_3d[ISCO08 %in% c(3213)] <-322
data$ISCO88_3d[ISCO08 %in% c(3214)] <-322
data$ISCO88_3d[ISCO08 %in% c(322)] <-323
data$ISCO88_3d[ISCO08 %in% c(3220)] <-323
data$ISCO88_3d[ISCO08 %in% c(3221)] <-323
data$ISCO88_3d[ISCO08 %in% c(3222)] <-323
data$ISCO88_3d[ISCO08 %in% c(323)] <-324
data$ISCO88_3d[ISCO08 %in% c(3230)] <-324
data$ISCO88_3d[ISCO08 %in% c(324)] <-322
data$ISCO88_3d[ISCO08 %in% c(3240)] <-322
data$ISCO88_3d[ISCO08 %in% c(325)] <-322
data$ISCO88_3d[ISCO08 %in% c(3250)] <-322
data$ISCO88_3d[ISCO08 %in% c(3251)] <-322
data$ISCO88_3d[ISCO08 %in% c(3252)] <-414
data$ISCO88_3d[ISCO08 %in% c(3253)] <-322
data$ISCO88_3d[ISCO08 %in% c(3254)] <-322
data$ISCO88_3d[ISCO08 %in% c(3255)] <-322
data$ISCO88_3d[ISCO08 %in% c(3256)] <-344
data$ISCO88_3d[ISCO08 %in% c(3257)] <-315
data$ISCO88_3d[ISCO08 %in% c(3258)] <-513
data$ISCO88_3d[ISCO08 %in% c(3259)] <-322
data$ISCO88_3d[ISCO08 %in% c(33)] <-344
data$ISCO88_3d[ISCO08 %in% c(330)] <-344
data$ISCO88_3d[ISCO08 %in% c(3300)] <-344
data$ISCO88_3d[ISCO08 %in% c(3310)] <-341
data$ISCO88_3d[ISCO08 %in% c(3311)] <-343
data$ISCO88_3d[ISCO08 %in% c(3312)] <-343
data$ISCO88_3d[ISCO08 %in% c(3313)] <-343
data$ISCO88_3d[ISCO08 %in% c(3314)] <-343
data$ISCO88_3d[ISCO08 %in% c(3315)] <-341
data$ISCO88_3d[ISCO08 %in% c(332)] <-341
data$ISCO88_3d[ISCO08 %in% c(3320)] <-341
data$ISCO88_3d[ISCO08 %in% c(3321)] <-341
data$ISCO88_3d[ISCO08 %in% c(3322)] <-341
data$ISCO88_3d[ISCO08 %in% c(3323)] <-341
data$ISCO88_3d[ISCO08 %in% c(3324)] <-131
data$ISCO88_3d[ISCO08 %in% c(333)] <-342
data$ISCO88_3d[ISCO08 %in% c(3330)] <-342
data$ISCO88_3d[ISCO08 %in% c(3331)] <-342
data$ISCO88_3d[ISCO08 %in% c(3332)] <-343
data$ISCO88_3d[ISCO08 %in% c(3333)] <-342
data$ISCO88_3d[ISCO08 %in% c(3334)] <-131
data$ISCO88_3d[ISCO08 %in% c(3339)] <-341
data$ISCO88_3d[ISCO08 %in% c(334)] <-343
data$ISCO88_3d[ISCO08 %in% c(3340)] <-343
data$ISCO88_3d[ISCO08 %in% c(3341)] <-343
data$ISCO88_3d[ISCO08 %in% c(3342)] <-343
data$ISCO88_3d[ISCO08 %in% c(3343)] <-343
data$ISCO88_3d[ISCO08 %in% c(3344)] <-411
data$ISCO88_3d[ISCO08 %in% c(335)] <-344
data$ISCO88_3d[ISCO08 %in% c(3350)] <-344
data$ISCO88_3d[ISCO08 %in% c(3351)] <-344
data$ISCO88_3d[ISCO08 %in% c(3352)] <-344
data$ISCO88_3d[ISCO08 %in% c(3353)] <-344
data$ISCO88_3d[ISCO08 %in% c(3354)] <-344
data$ISCO88_3d[ISCO08 %in% c(3355)] <-345
data$ISCO88_3d[ISCO08 %in% c(3359)] <-344
data$ISCO88_3d[ISCO08 %in% c(34)] <-346
data$ISCO88_3d[ISCO08 %in% c(340)] <-346
data$ISCO88_3d[ISCO08 %in% c(3400)] <-346
data$ISCO88_3d[ISCO08 %in% c(341)] <-346
data$ISCO88_3d[ISCO08 %in% c(3410)] <-346
data$ISCO88_3d[ISCO08 %in% c(3411)] <-344
data$ISCO88_3d[ISCO08 %in% c(3412)] <-346
data$ISCO88_3d[ISCO08 %in% c(3413)] <-348
data$ISCO88_3d[ISCO08 %in% c(342)] <-346
data$ISCO88_3d[ISCO08 %in% c(3420)] <-346
data$ISCO88_3d[ISCO08 %in% c(3421)] <-347
data$ISCO88_3d[ISCO08 %in% c(3422)] <-334
data$ISCO88_3d[ISCO08 %in% c(3423)] <-346
data$ISCO88_3d[ISCO08 %in% c(343)] <-347
data$ISCO88_3d[ISCO08 %in% c(3430)] <-347
data$ISCO88_3d[ISCO08 %in% c(3431)] <-313
data$ISCO88_3d[ISCO08 %in% c(3432)] <-347
data$ISCO88_3d[ISCO08 %in% c(3433)] <-347
data$ISCO88_3d[ISCO08 %in% c(3434)] <-512
data$ISCO88_3d[ISCO08 %in% c(3435)] <-347
data$ISCO88_3d[ISCO08 %in% c(35)] <-312
data$ISCO88_3d[ISCO08 %in% c(350)] <-312
data$ISCO88_3d[ISCO08 %in% c(3500)] <-312
data$ISCO88_3d[ISCO08 %in% c(351)] <-312
data$ISCO88_3d[ISCO08 %in% c(3510)] <-312
data$ISCO88_3d[ISCO08 %in% c(3511)] <-312
data$ISCO88_3d[ISCO08 %in% c(3512)] <-312
data$ISCO88_3d[ISCO08 %in% c(3513)] <-312
data$ISCO88_3d[ISCO08 %in% c(3514)] <-312
data$ISCO88_3d[ISCO08 %in% c(352)] <-311
data$ISCO88_3d[ISCO08 %in% c(3520)] <-311
data$ISCO88_3d[ISCO08 %in% c(3521)] <-313
data$ISCO88_3d[ISCO08 %in% c(3522)] <-311
data$ISCO88_3d[ISCO08 %in% c(4)] <-400
data$ISCO88_3d[ISCO08 %in% c(40)] <-400
data$ISCO88_3d[ISCO08 %in% c(400)] <-400
data$ISCO88_3d[ISCO08 %in% c(4000)] <-400
data$ISCO88_3d[ISCO08 %in% c(41)] <-410
data$ISCO88_3d[ISCO08 %in% c(410)] <-410
data$ISCO88_3d[ISCO08 %in% c(4100)] <-410
data$ISCO88_3d[ISCO08 %in% c(411)] <-419
data$ISCO88_3d[ISCO08 %in% c(4110)] <-419
data$ISCO88_3d[ISCO08 %in% c(412)] <-411
data$ISCO88_3d[ISCO08 %in% c(4120)] <-411
data$ISCO88_3d[ISCO08 %in% c(413)] <-411
data$ISCO88_3d[ISCO08 %in% c(4130)] <-411
data$ISCO88_3d[ISCO08 %in% c(4131)] <-411
data$ISCO88_3d[ISCO08 %in% c(4132)] <-411
data$ISCO88_3d[ISCO08 %in% c(42)] <-421
data$ISCO88_3d[ISCO08 %in% c(420)] <-421
data$ISCO88_3d[ISCO08 %in% c(4200)] <-421
data$ISCO88_3d[ISCO08 %in% c(421)] <-421
data$ISCO88_3d[ISCO08 %in% c(4210)] <-421
data$ISCO88_3d[ISCO08 %in% c(4211)] <-421
data$ISCO88_3d[ISCO08 %in% c(4212)] <-910
data$ISCO88_3d[ISCO08 %in% c(4213)] <-421
data$ISCO88_3d[ISCO08 %in% c(4214)] <-421
data$ISCO88_3d[ISCO08 %in% c(422)] <-422
data$ISCO88_3d[ISCO08 %in% c(4220)] <-422
data$ISCO88_3d[ISCO08 %in% c(4221)] <-422
data$ISCO88_3d[ISCO08 %in% c(4222)] <-422
data$ISCO88_3d[ISCO08 %in% c(4223)] <-422
data$ISCO88_3d[ISCO08 %in% c(4224)] <-913
data$ISCO88_3d[ISCO08 %in% c(4225)] <-422
data$ISCO88_3d[ISCO08 %in% c(4226)] <-422
data$ISCO88_3d[ISCO08 %in% c(4227)] <-419
data$ISCO88_3d[ISCO08 %in% c(4229)] <-422
data$ISCO88_3d[ISCO08 %in% c(43)] <-400
data$ISCO88_3d[ISCO08 %in% c(43)] <-400
data$ISCO88_3d[ISCO08 %in% c(4300)] <-400
data$ISCO88_3d[ISCO08 %in% c(431)] <-421
data$ISCO88_3d[ISCO08 %in% c(4310)] <-421
data$ISCO88_3d[ISCO08 %in% c(4311)] <-410
data$ISCO88_3d[ISCO08 %in% c(4312)] <-421
data$ISCO88_3d[ISCO08 %in% c(4313)] <-421
data$ISCO88_3d[ISCO08 %in% c(432)] <-413
data$ISCO88_3d[ISCO08 %in% c(4320)] <-413
data$ISCO88_3d[ISCO08 %in% c(4321)] <-413
data$ISCO88_3d[ISCO08 %in% c(4322)] <-413
data$ISCO88_3d[ISCO08 %in% c(4323)] <-413
data$ISCO88_3d[ISCO08 %in% c(44)] <-414
data$ISCO88_3d[ISCO08 %in% c(440)] <-414
data$ISCO88_3d[ISCO08 %in% c(4400)] <-414
data$ISCO88_3d[ISCO08 %in% c(441)] <-414
data$ISCO88_3d[ISCO08 %in% c(4410)] <-414
data$ISCO88_3d[ISCO08 %in% c(4411)] <-414
data$ISCO88_3d[ISCO08 %in% c(4412)] <-414
data$ISCO88_3d[ISCO08 %in% c(4413)] <-414
data$ISCO88_3d[ISCO08 %in% c(4414)] <-414
data$ISCO88_3d[ISCO08 %in% c(4415)] <-414
data$ISCO88_3d[ISCO08 %in% c(4416)] <-419
data$ISCO88_3d[ISCO08 %in% c(4419)] <-410
data$ISCO88_3d[ISCO08 %in% c(5)] <-500
data$ISCO88_3d[ISCO08 %in% c(50)] <-500
data$ISCO88_3d[ISCO08 %in% c(500)] <-500
data$ISCO88_3d[ISCO08 %in% c(5000)] <-500
data$ISCO88_3d[ISCO08 %in% c(51)] <-510
data$ISCO88_3d[ISCO08 %in% c(510)] <-510
data$ISCO88_3d[ISCO08 %in% c(5100)] <-510
data$ISCO88_3d[ISCO08 %in% c(511)] <-511
data$ISCO88_3d[ISCO08 %in% c(5110)] <-511
data$ISCO88_3d[ISCO08 %in% c(5111)] <-511
data$ISCO88_3d[ISCO08 %in% c(5112)] <-511
data$ISCO88_3d[ISCO08 %in% c(5113)] <-511
data$ISCO88_3d[ISCO08 %in% c(512)] <-512
data$ISCO88_3d[ISCO08 %in% c(5120)] <-512
data$ISCO88_3d[ISCO08 %in% c(513)] <-512
data$ISCO88_3d[ISCO08 %in% c(5130)] <-512
data$ISCO88_3d[ISCO08 %in% c(5131)] <-512
data$ISCO88_3d[ISCO08 %in% c(5132)] <-512
data$ISCO88_3d[ISCO08 %in% c(514)] <-514
data$ISCO88_3d[ISCO08 %in% c(5140)] <-514
data$ISCO88_3d[ISCO08 %in% c(5141)] <-514
data$ISCO88_3d[ISCO08 %in% c(5142)] <-514
data$ISCO88_3d[ISCO08 %in% c(515)] <-512
data$ISCO88_3d[ISCO08 %in% c(5150)] <-512
data$ISCO88_3d[ISCO08 %in% c(5151)] <-512
data$ISCO88_3d[ISCO08 %in% c(5152)] <-512
data$ISCO88_3d[ISCO08 %in% c(5153)] <-915
data$ISCO88_3d[ISCO08 %in% c(516)] <-514
data$ISCO88_3d[ISCO08 %in% c(5160)] <-514
data$ISCO88_3d[ISCO08 %in% c(5161)] <-131
data$ISCO88_3d[ISCO08 %in% c(5162)] <-514
data$ISCO88_3d[ISCO08 %in% c(5163)] <-910
data$ISCO88_3d[ISCO08 %in% c(5164)] <-513
data$ISCO88_3d[ISCO08 %in% c(5165)] <-334
data$ISCO88_3d[ISCO08 %in% c(5169)] <-131
data$ISCO88_3d[ISCO08 %in% c(52)] <-520
data$ISCO88_3d[ISCO08 %in% c(520)] <-520
data$ISCO88_3d[ISCO08 %in% c(5200)] <-520
data$ISCO88_3d[ISCO08 %in% c(521)] <-520
data$ISCO88_3d[ISCO08 %in% c(5210)] <-520
data$ISCO88_3d[ISCO08 %in% c(5211)] <-522
data$ISCO88_3d[ISCO08 %in% c(5212)] <-911
data$ISCO88_3d[ISCO08 %in% c(522)] <-522
data$ISCO88_3d[ISCO08 %in% c(5220)] <-522
data$ISCO88_3d[ISCO08 %in% c(5221)] <-131
data$ISCO88_3d[ISCO08 %in% c(5222)] <-522
data$ISCO88_3d[ISCO08 %in% c(5223)] <-522
data$ISCO88_3d[ISCO08 %in% c(523)] <-421
data$ISCO88_3d[ISCO08 %in% c(5230)] <-421
data$ISCO88_3d[ISCO08 %in% c(524)] <-522
data$ISCO88_3d[ISCO08 %in% c(5240)] <-522
data$ISCO88_3d[ISCO08 %in% c(5241)] <-521
data$ISCO88_3d[ISCO08 %in% c(5242)] <-522
data$ISCO88_3d[ISCO08 %in% c(5243)] <-911
data$ISCO88_3d[ISCO08 %in% c(5244)] <-522
data$ISCO88_3d[ISCO08 %in% c(5245)] <-522
data$ISCO88_3d[ISCO08 %in% c(5246)] <-523
data$ISCO88_3d[ISCO08 %in% c(5249)] <-522
data$ISCO88_3d[ISCO08 %in% c(53)] <-513
data$ISCO88_3d[ISCO08 %in% c(530)] <-513
data$ISCO88_3d[ISCO08 %in% c(5300)] <-513
data$ISCO88_3d[ISCO08 %in% c(531)] <-513
data$ISCO88_3d[ISCO08 %in% c(5310)] <-513
data$ISCO88_3d[ISCO08 %in% c(5311)] <-513
data$ISCO88_3d[ISCO08 %in% c(5312)] <-913
data$ISCO88_3d[ISCO08 %in% c(532)] <-513
data$ISCO88_3d[ISCO08 %in% c(5320)] <-513
data$ISCO88_3d[ISCO08 %in% c(5321)] <-513
data$ISCO88_3d[ISCO08 %in% c(5322)] <-513
data$ISCO88_3d[ISCO08 %in% c(5329)] <-513
data$ISCO88_3d[ISCO08 %in% c(54)] <-516
data$ISCO88_3d[ISCO08 %in% c(540)] <-516
data$ISCO88_3d[ISCO08 %in% c(5400)] <-516
data$ISCO88_3d[ISCO08 %in% c(541)] <-516
data$ISCO88_3d[ISCO08 %in% c(5410)] <-516
data$ISCO88_3d[ISCO08 %in% c(5411)] <-516
data$ISCO88_3d[ISCO08 %in% c(5412)] <-516
data$ISCO88_3d[ISCO08 %in% c(5413)] <-516
data$ISCO88_3d[ISCO08 %in% c(5414)] <-915
data$ISCO88_3d[ISCO08 %in% c(5419)] <-915
data$ISCO88_3d[ISCO08 %in% c(6)] <-600
data$ISCO88_3d[ISCO08 %in% c(60)] <-600
data$ISCO88_3d[ISCO08 %in% c(600)] <-600
data$ISCO88_3d[ISCO08 %in% c(6000)] <-600
data$ISCO88_3d[ISCO08 %in% c(61)] <-610
data$ISCO88_3d[ISCO08 %in% c(610)] <-610
data$ISCO88_3d[ISCO08 %in% c(6100)] <-610
data$ISCO88_3d[ISCO08 %in% c(611)] <-611
data$ISCO88_3d[ISCO08 %in% c(6110)] <-611
data$ISCO88_3d[ISCO08 %in% c(6111)] <-611
data$ISCO88_3d[ISCO08 %in% c(6112)] <-611
data$ISCO88_3d[ISCO08 %in% c(6113)] <-611
data$ISCO88_3d[ISCO08 %in% c(6114)] <-131
data$ISCO88_3d[ISCO08 %in% c(612)] <-612
data$ISCO88_3d[ISCO08 %in% c(6120)] <-612
data$ISCO88_3d[ISCO08 %in% c(6121)] <-612
data$ISCO88_3d[ISCO08 %in% c(6122)] <-612
data$ISCO88_3d[ISCO08 %in% c(6123)] <-612
data$ISCO88_3d[ISCO08 %in% c(6129)] <-613
data$ISCO88_3d[ISCO08 %in% c(613)] <-613
data$ISCO88_3d[ISCO08 %in% c(6130)] <-613
data$ISCO88_3d[ISCO08 %in% c(62)] <-615
data$ISCO88_3d[ISCO08 %in% c(620)] <-615
data$ISCO88_3d[ISCO08 %in% c(6200)] <-615
data$ISCO88_3d[ISCO08 %in% c(621)] <-614
data$ISCO88_3d[ISCO08 %in% c(6210)] <-614
data$ISCO88_3d[ISCO08 %in% c(622)] <-615
data$ISCO88_3d[ISCO08 %in% c(6220)] <-615
data$ISCO88_3d[ISCO08 %in% c(6221)] <-615
data$ISCO88_3d[ISCO08 %in% c(6222)] <-615
data$ISCO88_3d[ISCO08 %in% c(6223)] <-615
data$ISCO88_3d[ISCO08 %in% c(6224)] <-615
data$ISCO88_3d[ISCO08 %in% c(63)] <-621
data$ISCO88_3d[ISCO08 %in% c(630)] <-621
data$ISCO88_3d[ISCO08 %in% c(6300)] <-621
data$ISCO88_3d[ISCO08 %in% c(631)] <-621
data$ISCO88_3d[ISCO08 %in% c(6310)] <-621
data$ISCO88_3d[ISCO08 %in% c(632)] <-621
data$ISCO88_3d[ISCO08 %in% c(6320)] <-621
data$ISCO88_3d[ISCO08 %in% c(633)] <-621
data$ISCO88_3d[ISCO08 %in% c(6330)] <-621
data$ISCO88_3d[ISCO08 %in% c(634)] <-621
data$ISCO88_3d[ISCO08 %in% c(6340)] <-621
data$ISCO88_3d[ISCO08 %in% c(7)] <-700
data$ISCO88_3d[ISCO08 %in% c(70)] <-700
data$ISCO88_3d[ISCO08 %in% c(700)] <-700
data$ISCO88_3d[ISCO08 %in% c(7000)] <-700
data$ISCO88_3d[ISCO08 %in% c(71)] <-710
data$ISCO88_3d[ISCO08 %in% c(710)] <-710
data$ISCO88_3d[ISCO08 %in% c(7100)] <-710
data$ISCO88_3d[ISCO08 %in% c(711)] <-712
data$ISCO88_3d[ISCO08 %in% c(7110)] <-712
data$ISCO88_3d[ISCO08 %in% c(7111)] <-712
data$ISCO88_3d[ISCO08 %in% c(7112)] <-712
data$ISCO88_3d[ISCO08 %in% c(7113)] <-711
data$ISCO88_3d[ISCO08 %in% c(7114)] <-712
data$ISCO88_3d[ISCO08 %in% c(7115)] <-712
data$ISCO88_3d[ISCO08 %in% c(7119)] <-713
data$ISCO88_3d[ISCO08 %in% c(712)] <-713
data$ISCO88_3d[ISCO08 %in% c(7120)] <-713
data$ISCO88_3d[ISCO08 %in% c(7121)] <-713
data$ISCO88_3d[ISCO08 %in% c(7122)] <-714
data$ISCO88_3d[ISCO08 %in% c(7123)] <-714
data$ISCO88_3d[ISCO08 %in% c(7124)] <-713
data$ISCO88_3d[ISCO08 %in% c(7125)] <-714
data$ISCO88_3d[ISCO08 %in% c(7126)] <-713
data$ISCO88_3d[ISCO08 %in% c(7127)] <-723
data$ISCO88_3d[ISCO08 %in% c(713)] <-714
data$ISCO88_3d[ISCO08 %in% c(7130)] <-714
data$ISCO88_3d[ISCO08 %in% c(7131)] <-714
data$ISCO88_3d[ISCO08 %in% c(7132)] <-714
data$ISCO88_3d[ISCO08 %in% c(7133)] <-714
data$ISCO88_3d[ISCO08 %in% c(72)] <-720
data$ISCO88_3d[ISCO08 %in% c(720)] <-720
data$ISCO88_3d[ISCO08 %in% c(7200)] <-720
data$ISCO88_3d[ISCO08 %in% c(721)] <-721
data$ISCO88_3d[ISCO08 %in% c(7210)] <-721
data$ISCO88_3d[ISCO08 %in% c(7211)] <-720
data$ISCO88_3d[ISCO08 %in% c(7212)] <-828
data$ISCO88_3d[ISCO08 %in% c(7213)] <-721
data$ISCO88_3d[ISCO08 %in% c(7214)] <-721
data$ISCO88_3d[ISCO08 %in% c(7215)] <-721
data$ISCO88_3d[ISCO08 %in% c(722)] <-722
data$ISCO88_3d[ISCO08 %in% c(7220)] <-722
data$ISCO88_3d[ISCO08 %in% c(7221)] <-721
data$ISCO88_3d[ISCO08 %in% c(7222)] <-722
data$ISCO88_3d[ISCO08 %in% c(7223)] <-722
data$ISCO88_3d[ISCO08 %in% c(7224)] <-821
data$ISCO88_3d[ISCO08 %in% c(723)] <-723
data$ISCO88_3d[ISCO08 %in% c(7230)] <-723
data$ISCO88_3d[ISCO08 %in% c(7231)] <-723
data$ISCO88_3d[ISCO08 %in% c(7232)] <-723
data$ISCO88_3d[ISCO08 %in% c(7233)] <-723
data$ISCO88_3d[ISCO08 %in% c(7234)] <-723
data$ISCO88_3d[ISCO08 %in% c(73)] <-730
data$ISCO88_3d[ISCO08 %in% c(730)] <-730
data$ISCO88_3d[ISCO08 %in% c(7300)] <-730
data$ISCO88_3d[ISCO08 %in% c(731)] <-732
data$ISCO88_3d[ISCO08 %in% c(7310)] <-732
data$ISCO88_3d[ISCO08 %in% c(7311)] <-740
data$ISCO88_3d[ISCO08 %in% c(7312)] <-731
data$ISCO88_3d[ISCO08 %in% c(7313)] <-731
data$ISCO88_3d[ISCO08 %in% c(7314)] <-732
data$ISCO88_3d[ISCO08 %in% c(7315)] <-732
data$ISCO88_3d[ISCO08 %in% c(7316)] <-732
data$ISCO88_3d[ISCO08 %in% c(7317)] <-733
data$ISCO88_3d[ISCO08 %in% c(7318)] <-733
data$ISCO88_3d[ISCO08 %in% c(7319)] <-730
data$ISCO88_3d[ISCO08 %in% c(732)] <-734
data$ISCO88_3d[ISCO08 %in% c(7320)] <-734
data$ISCO88_3d[ISCO08 %in% c(7321)] <-734
data$ISCO88_3d[ISCO08 %in% c(7322)] <-734
data$ISCO88_3d[ISCO08 %in% c(7323)] <-825
data$ISCO88_3d[ISCO08 %in% c(74)] <-724
data$ISCO88_3d[ISCO08 %in% c(740)] <-724
data$ISCO88_3d[ISCO08 %in% c(7400)] <-724
data$ISCO88_3d[ISCO08 %in% c(741)] <-724
data$ISCO88_3d[ISCO08 %in% c(7410)] <-724
data$ISCO88_3d[ISCO08 %in% c(7411)] <-724
data$ISCO88_3d[ISCO08 %in% c(7412)] <-724
data$ISCO88_3d[ISCO08 %in% c(7413)] <-828
data$ISCO88_3d[ISCO08 %in% c(742)] <-724
data$ISCO88_3d[ISCO08 %in% c(7420)] <-724
data$ISCO88_3d[ISCO08 %in% c(7421)] <-724
data$ISCO88_3d[ISCO08 %in% c(7422)] <-724
data$ISCO88_3d[ISCO08 %in% c(750)] <-740
data$ISCO88_3d[ISCO08 %in% c(7500)] <-740
data$ISCO88_3d[ISCO08 %in% c(751)] <-741
data$ISCO88_3d[ISCO08 %in% c(7510)] <-741
data$ISCO88_3d[ISCO08 %in% c(7511)] <-741
data$ISCO88_3d[ISCO08 %in% c(7512)] <-741
data$ISCO88_3d[ISCO08 %in% c(7513)] <-741
data$ISCO88_3d[ISCO08 %in% c(7514)] <-741
data$ISCO88_3d[ISCO08 %in% c(7515)] <-741
data$ISCO88_3d[ISCO08 %in% c(7516)] <-741
data$ISCO88_3d[ISCO08 %in% c(752)] <-712
data$ISCO88_3d[ISCO08 %in% c(7520)] <-712
data$ISCO88_3d[ISCO08 %in% c(7521)] <-712
data$ISCO88_3d[ISCO08 %in% c(7522)] <-742
data$ISCO88_3d[ISCO08 %in% c(7523)] <-712
data$ISCO88_3d[ISCO08 %in% c(753)] <-743
data$ISCO88_3d[ISCO08 %in% c(7530)] <-743
data$ISCO88_3d[ISCO08 %in% c(7531)] <-743
data$ISCO88_3d[ISCO08 %in% c(7532)] <-743
data$ISCO88_3d[ISCO08 %in% c(7533)] <-743
data$ISCO88_3d[ISCO08 %in% c(7534)] <-743
data$ISCO88_3d[ISCO08 %in% c(7535)] <-743
data$ISCO88_3d[ISCO08 %in% c(7536)] <-744
data$ISCO88_3d[ISCO08 %in% c(754)] <-740
data$ISCO88_3d[ISCO08 %in% c(7540)] <-740
data$ISCO88_3d[ISCO08 %in% c(7541)] <-615
data$ISCO88_3d[ISCO08 %in% c(7542)] <-711
data$ISCO88_3d[ISCO08 %in% c(7543)] <-315
data$ISCO88_3d[ISCO08 %in% c(7544)] <-714
data$ISCO88_3d[ISCO08 %in% c(7549)] <-700
data$ISCO88_3d[ISCO08 %in% c(8)] <-800
data$ISCO88_3d[ISCO08 %in% c(80)] <-800
data$ISCO88_3d[ISCO08 %in% c(800)] <-800
data$ISCO88_3d[ISCO08 %in% c(8000)] <-800
data$ISCO88_3d[ISCO08 %in% c(81)] <-811
data$ISCO88_3d[ISCO08 %in% c(810)] <-811
data$ISCO88_3d[ISCO08 %in% c(8100)] <-811
data$ISCO88_3d[ISCO08 %in% c(811)] <-811
data$ISCO88_3d[ISCO08 %in% c(8110)] <-811
data$ISCO88_3d[ISCO08 %in% c(8111)] <-811
data$ISCO88_3d[ISCO08 %in% c(8112)] <-811
data$ISCO88_3d[ISCO08 %in% c(8113)] <-811
data$ISCO88_3d[ISCO08 %in% c(8114)] <-821
data$ISCO88_3d[ISCO08 %in% c(812)] <-812
data$ISCO88_3d[ISCO08 %in% c(8120)] <-812
data$ISCO88_3d[ISCO08 %in% c(8121)] <-812
data$ISCO88_3d[ISCO08 %in% c(8122)] <-722
data$ISCO88_3d[ISCO08 %in% c(813)] <-822
data$ISCO88_3d[ISCO08 %in% c(8130)] <-822
data$ISCO88_3d[ISCO08 %in% c(8131)] <-815
data$ISCO88_3d[ISCO08 %in% c(8132)] <-822
data$ISCO88_3d[ISCO08 %in% c(814)] <-815
data$ISCO88_3d[ISCO08 %in% c(8140)] <-815
data$ISCO88_3d[ISCO08 %in% c(8141)] <-815
data$ISCO88_3d[ISCO08 %in% c(8142)] <-815
data$ISCO88_3d[ISCO08 %in% c(8143)] <-815
data$ISCO88_3d[ISCO08 %in% c(815)] <-826
data$ISCO88_3d[ISCO08 %in% c(8150)] <-826
data$ISCO88_3d[ISCO08 %in% c(8151)] <-826
data$ISCO88_3d[ISCO08 %in% c(8152)] <-826
data$ISCO88_3d[ISCO08 %in% c(8153)] <-826
data$ISCO88_3d[ISCO08 %in% c(8154)] <-743
data$ISCO88_3d[ISCO08 %in% c(8155)] <-826
data$ISCO88_3d[ISCO08 %in% c(8156)] <-826
data$ISCO88_3d[ISCO08 %in% c(8157)] <-826
data$ISCO88_3d[ISCO08 %in% c(8159)] <-826
data$ISCO88_3d[ISCO08 %in% c(816)] <-827
data$ISCO88_3d[ISCO08 %in% c(8160)] <-827
data$ISCO88_3d[ISCO08 %in% c(817)] <-814
data$ISCO88_3d[ISCO08 %in% c(8170)] <-814
data$ISCO88_3d[ISCO08 %in% c(8171)] <-814
data$ISCO88_3d[ISCO08 %in% c(8172)] <-814
data$ISCO88_3d[ISCO08 %in% c(818)] <-816
data$ISCO88_3d[ISCO08 %in% c(8180)] <-816
data$ISCO88_3d[ISCO08 %in% c(8181)] <-813
data$ISCO88_3d[ISCO08 %in% c(8182)] <-816
data$ISCO88_3d[ISCO08 %in% c(8183)] <-829
data$ISCO88_3d[ISCO08 %in% c(8189)] <-814
data$ISCO88_3d[ISCO08 %in% c(82)] <-828
data$ISCO88_3d[ISCO08 %in% c(820)] <-828
data$ISCO88_3d[ISCO08 %in% c(8200)] <-828
data$ISCO88_3d[ISCO08 %in% c(821)] <-828
data$ISCO88_3d[ISCO08 %in% c(8210)] <-828
data$ISCO88_3d[ISCO08 %in% c(8211)] <-828
data$ISCO88_3d[ISCO08 %in% c(8212)] <-828
data$ISCO88_3d[ISCO08 %in% c(8219)] <-723
data$ISCO88_3d[ISCO08 %in% c(83)] <-830
data$ISCO88_3d[ISCO08 %in% c(830)] <-830
data$ISCO88_3d[ISCO08 %in% c(8300)] <-830
data$ISCO88_3d[ISCO08 %in% c(831)] <-831
data$ISCO88_3d[ISCO08 %in% c(8310)] <-831
data$ISCO88_3d[ISCO08 %in% c(8311)] <-831
data$ISCO88_3d[ISCO08 %in% c(8312)] <-831
data$ISCO88_3d[ISCO08 %in% c(832)] <-832
data$ISCO88_3d[ISCO08 %in% c(8320)] <-832
data$ISCO88_3d[ISCO08 %in% c(8321)] <-832
data$ISCO88_3d[ISCO08 %in% c(8322)] <-832
data$ISCO88_3d[ISCO08 %in% c(833)] <-832
data$ISCO88_3d[ISCO08 %in% c(8330)] <-832
data$ISCO88_3d[ISCO08 %in% c(8331)] <-832
data$ISCO88_3d[ISCO08 %in% c(8332)] <-832
data$ISCO88_3d[ISCO08 %in% c(834)] <-833
data$ISCO88_3d[ISCO08 %in% c(8340)] <-833
data$ISCO88_3d[ISCO08 %in% c(8341)] <-833
data$ISCO88_3d[ISCO08 %in% c(8342)] <-833
data$ISCO88_3d[ISCO08 %in% c(8343)] <-833
data$ISCO88_3d[ISCO08 %in% c(8344)] <-833
data$ISCO88_3d[ISCO08 %in% c(835)] <-834
data$ISCO88_3d[ISCO08 %in% c(8350)] <-834
data$ISCO88_3d[ISCO08 %in% c(9)] <-900
data$ISCO88_3d[ISCO08 %in% c(90)] <-900
data$ISCO88_3d[ISCO08 %in% c(900)] <-900
data$ISCO88_3d[ISCO08 %in% c(9000)] <-900
data$ISCO88_3d[ISCO08 %in% c(91)] <-910
data$ISCO88_3d[ISCO08 %in% c(910)] <-910
data$ISCO88_3d[ISCO08 %in% c(9100)] <-910
data$ISCO88_3d[ISCO08 %in% c(911)] <-913
data$ISCO88_3d[ISCO08 %in% c(9110)] <-913
data$ISCO88_3d[ISCO08 %in% c(9111)] <-913
data$ISCO88_3d[ISCO08 %in% c(9112)] <-913
data$ISCO88_3d[ISCO08 %in% c(912)] <-614
data$ISCO88_3d[ISCO08 %in% c(9120)] <-614
data$ISCO88_3d[ISCO08 %in% c(9121)] <-913
data$ISCO88_3d[ISCO08 %in% c(9122)] <-614
data$ISCO88_3d[ISCO08 %in% c(9123)] <-614
data$ISCO88_3d[ISCO08 %in% c(9129)] <-614
data$ISCO88_3d[ISCO08 %in% c(92)] <-610
data$ISCO88_3d[ISCO08 %in% c(920)] <-610
data$ISCO88_3d[ISCO08 %in% c(9200)] <-610
data$ISCO88_3d[ISCO08 %in% c(921)] <-610
data$ISCO88_3d[ISCO08 %in% c(9210)] <-610
data$ISCO88_3d[ISCO08 %in% c(9211)] <-921
data$ISCO88_3d[ISCO08 %in% c(9212)] <-612
data$ISCO88_3d[ISCO08 %in% c(9213)] <-613
data$ISCO88_3d[ISCO08 %in% c(9214)] <-611
data$ISCO88_3d[ISCO08 %in% c(9215)] <-614
data$ISCO88_3d[ISCO08 %in% c(9216)] <-615
data$ISCO88_3d[ISCO08 %in% c(93)] <-931
data$ISCO88_3d[ISCO08 %in% c(930)] <-931
data$ISCO88_3d[ISCO08 %in% c(9300)] <-931
data$ISCO88_3d[ISCO08 %in% c(931)] <-931
data$ISCO88_3d[ISCO08 %in% c(9310)] <-931
data$ISCO88_3d[ISCO08 %in% c(9311)] <-931
data$ISCO88_3d[ISCO08 %in% c(9312)] <-931
data$ISCO88_3d[ISCO08 %in% c(9313)] <-713
data$ISCO88_3d[ISCO08 %in% c(932)] <-932
data$ISCO88_3d[ISCO08 %in% c(9320)] <-932
data$ISCO88_3d[ISCO08 %in% c(9321)] <-932
data$ISCO88_3d[ISCO08 %in% c(9329)] <-815
data$ISCO88_3d[ISCO08 %in% c(933)] <-933
data$ISCO88_3d[ISCO08 %in% c(9330)] <-933
data$ISCO88_3d[ISCO08 %in% c(9331)] <-933
data$ISCO88_3d[ISCO08 %in% c(9332)] <-933
data$ISCO88_3d[ISCO08 %in% c(9333)] <-933
data$ISCO88_3d[ISCO08 %in% c(9334)] <-933
data$ISCO88_3d[ISCO08 %in% c(94)] <-916
data$ISCO88_3d[ISCO08 %in% c(940)] <-916
data$ISCO88_3d[ISCO08 %in% c(9400)] <-916
data$ISCO88_3d[ISCO08 %in% c(941)] <-512
data$ISCO88_3d[ISCO08 %in% c(9410)] <-512
data$ISCO88_3d[ISCO08 %in% c(9411)] <-512
data$ISCO88_3d[ISCO08 %in% c(9412)] <-512
data$ISCO88_3d[ISCO08 %in% c(95)] <-911
data$ISCO88_3d[ISCO08 %in% c(950)] <-911
data$ISCO88_3d[ISCO08 %in% c(9500)] <-911
data$ISCO88_3d[ISCO08 %in% c(951)] <-912
data$ISCO88_3d[ISCO08 %in% c(9510)] <-912
data$ISCO88_3d[ISCO08 %in% c(952)] <-911
data$ISCO88_3d[ISCO08 %in% c(9520)] <-911
data$ISCO88_3d[ISCO08 %in% c(96)] <-916
data$ISCO88_3d[ISCO08 %in% c(960)] <-916
data$ISCO88_3d[ISCO08 %in% c(9600)] <-916
data$ISCO88_3d[ISCO08 %in% c(961)] <-916
data$ISCO88_3d[ISCO08 %in% c(9610)] <-916
data$ISCO88_3d[ISCO08 %in% c(9611)] <-913
data$ISCO88_3d[ISCO08 %in% c(9612)] <-916
data$ISCO88_3d[ISCO08 %in% c(9613)] <-916
data$ISCO88_3d[ISCO08 %in% c(962)] <-916
data$ISCO88_3d[ISCO08 %in% c(9620)] <-916
data$ISCO88_3d[ISCO08 %in% c(9621)] <-915
data$ISCO88_3d[ISCO08 %in% c(9622)] <-916
data$ISCO88_3d[ISCO08 %in% c(9623)] <-915
data$ISCO88_3d[ISCO08 %in% c(9624)] <-916
data$ISCO88_3d[ISCO08 %in% c(9629)] <-700
return(data)
}