Nothing
R/convert_from_PCS1982_4l_to_PCS2003_4l.R
In SocialPosition: Social Position Indicators Construction Toolbox
Defines functions
convert_from_PCS1982_4l_to_PCS2003_4l
Documented in
convert_from_PCS1982_4l_to_PCS2003_4l
convert_from_PCS1982_4l_to_PCS2003_4l <-
function(PCS1982_4l, data){
#conversion
data$PCS2003_4l[PCS1982_4l %in% c(1101)] <- "111a"
data$PCS2003_4l[PCS1982_4l %in% c(1102)] <- "111b"
data$PCS2003_4l[PCS1982_4l %in% c(1103)] <- "111c"
data$PCS2003_4l[PCS1982_4l %in% c(1104)] <- "111d"
data$PCS2003_4l[PCS1982_4l %in% c(1105)] <- "111e"
data$PCS2003_4l[PCS1982_4l %in% c(1106)] <- "111f"
data$PCS2003_4l[PCS1982_4l %in% c(1201)] <- "121a"
data$PCS2003_4l[PCS1982_4l %in% c(1202)] <- "121b"
data$PCS2003_4l[PCS1982_4l %in% c(1203)] <- "121c"
data$PCS2003_4l[PCS1982_4l %in% c(1204)] <- "121d"
data$PCS2003_4l[PCS1982_4l %in% c(1205)] <- "121e"
data$PCS2003_4l[PCS1982_4l %in% c(1206)] <- "121f"
data$PCS2003_4l[PCS1982_4l %in% c(1211)] <- "122a"
data$PCS2003_4l[PCS1982_4l %in% c(1212)] <- "122b"
data$PCS2003_4l[PCS1982_4l %in% c(1213)] <- "122c"
data$PCS2003_4l[PCS1982_4l %in% c(1301)] <- "131a"
data$PCS2003_4l[PCS1982_4l %in% c(1302)] <- "131b"
data$PCS2003_4l[PCS1982_4l %in% c(1303)] <- "131c"
data$PCS2003_4l[PCS1982_4l %in% c(1304)] <- "131d"
data$PCS2003_4l[PCS1982_4l %in% c(1305)] <- "131e"
data$PCS2003_4l[PCS1982_4l %in% c(1306)] <- "131f"
data$PCS2003_4l[PCS1982_4l %in% c(2101)] <- "215a"
data$PCS2003_4l[PCS1982_4l %in% c(2102)] <- "215a"
data$PCS2003_4l[PCS1982_4l %in% c(2103)] <- "215b"
data$PCS2003_4l[PCS1982_4l %in% c(2104)] <- "215b"
data$PCS2003_4l[PCS1982_4l %in% c(2105)] <- "215c"
data$PCS2003_4l[PCS1982_4l %in% c(2106)] <- "215c"
data$PCS2003_4l[PCS1982_4l %in% c(2107)] <- "215d"
data$PCS2003_4l[PCS1982_4l %in% c(2111)] <- "212a"
data$PCS2003_4l[PCS1982_4l %in% c(2112)] <- "214f"
data$PCS2003_4l[PCS1982_4l %in% c(2113)] <- "212c"
data$PCS2003_4l[PCS1982_4l %in% c(2121)] <- "213a"
data$PCS2003_4l[PCS1982_4l %in% c(2122)] <- "213a"
data$PCS2003_4l[PCS1982_4l %in% c(2131)] <- "214a"
data$PCS2003_4l[PCS1982_4l %in% c(2132)] <- "214b"
data$PCS2003_4l[PCS1982_4l %in% c(2141)] <- "214c"
data$PCS2003_4l[PCS1982_4l %in% c(2142)] <- "214e"
data$PCS2003_4l[PCS1982_4l %in% c(2143)] <- "214f"
data$PCS2003_4l[PCS1982_4l %in% c(2151)] <- "211a"
data$PCS2003_4l[PCS1982_4l %in% c(2152)] <- "211j"
data$PCS2003_4l[PCS1982_4l %in% c(2153)] <- "211e"
data$PCS2003_4l[PCS1982_4l %in% c(2154)] <- "211f"
data$PCS2003_4l[PCS1982_4l %in% c(2155)] <- "211d"
data$PCS2003_4l[PCS1982_4l %in% c(2156)] <- "211b"
data$PCS2003_4l[PCS1982_4l %in% c(2157)] <- "211g"
data$PCS2003_4l[PCS1982_4l %in% c(2161)] <- "216a"
data$PCS2003_4l[PCS1982_4l %in% c(2162)] <- "216b"
data$PCS2003_4l[PCS1982_4l %in% c(2163)] <- "216c"
data$PCS2003_4l[PCS1982_4l %in% c(2164)] <- "216c"
data$PCS2003_4l[PCS1982_4l %in% c(2171)] <- "217a"
data$PCS2003_4l[PCS1982_4l %in% c(2172)] <- "217c"
data$PCS2003_4l[PCS1982_4l %in% c(2173)] <- "217d"
data$PCS2003_4l[PCS1982_4l %in% c(2174)] <- "217e"
data$PCS2003_4l[PCS1982_4l %in% c(2181)] <- "218a"
data$PCS2003_4l[PCS1982_4l %in% c(2182)] <- "218a"
data$PCS2003_4l[PCS1982_4l %in% c(2190)] <- "219a"
data$PCS2003_4l[PCS1982_4l %in% c(2210)] <- "221a"
data$PCS2003_4l[PCS1982_4l %in% c(2211)] <- "221b"
data$PCS2003_4l[PCS1982_4l %in% c(2212)] <- "222a"
data$PCS2003_4l[PCS1982_4l %in% c(2213)] <- "222b"
data$PCS2003_4l[PCS1982_4l %in% c(2214)] <- "223a"
data$PCS2003_4l[PCS1982_4l %in% c(2215)] <- "223d"
data$PCS2003_4l[PCS1982_4l %in% c(2216)] <- "223b"
data$PCS2003_4l[PCS1982_4l %in% c(2217)] <- "223e"
data$PCS2003_4l[PCS1982_4l %in% c(2218)] <- "223g"
data$PCS2003_4l[PCS1982_4l %in% c(2219)] <- "223h"
data$PCS2003_4l[PCS1982_4l %in% c(2221)] <- "224a"
data$PCS2003_4l[PCS1982_4l %in% c(2222)] <- "224b"
data$PCS2003_4l[PCS1982_4l %in% c(2223)] <- "224b"
data$PCS2003_4l[PCS1982_4l %in% c(2224)] <- "224c"
data$PCS2003_4l[PCS1982_4l %in% c(2231)] <- "221a"
data$PCS2003_4l[PCS1982_4l %in% c(2232)] <- "221b"
data$PCS2003_4l[PCS1982_4l %in% c(2233)] <- "222a"
data$PCS2003_4l[PCS1982_4l %in% c(2234)] <- "223a"
data$PCS2003_4l[PCS1982_4l %in% c(2235)] <- "225a"
data$PCS2003_4l[PCS1982_4l %in% c(2236)] <- "224d"
data$PCS2003_4l[PCS1982_4l %in% c(2241)] <- "226c"
data$PCS2003_4l[PCS1982_4l %in% c(2242)] <- "226a"
data$PCS2003_4l[PCS1982_4l %in% c(2243)] <- "226b"
data$PCS2003_4l[PCS1982_4l %in% c(2244)] <- "227a"
data$PCS2003_4l[PCS1982_4l %in% c(2245)] <- "227c"
data$PCS2003_4l[PCS1982_4l %in% c(2246)] <- "227b"
data$PCS2003_4l[PCS1982_4l %in% c(2247)] <- "227d"
data$PCS2003_4l[PCS1982_4l %in% c(2300)] <- "233b"
data$PCS2003_4l[PCS1982_4l %in% c(2310)] <- "231a"
data$PCS2003_4l[PCS1982_4l %in% c(2320)] <- "232a"
data$PCS2003_4l[PCS1982_4l %in% c(2331)] <- "233a"
data$PCS2003_4l[PCS1982_4l %in% c(2332)] <- "233b"
data$PCS2003_4l[PCS1982_4l %in% c(2333)] <- "233c"
data$PCS2003_4l[PCS1982_4l %in% c(2334)] <- "233d"
data$PCS2003_4l[PCS1982_4l %in% c(3111)] <- "311a"
data$PCS2003_4l[PCS1982_4l %in% c(3112)] <- "311b"
data$PCS2003_4l[PCS1982_4l %in% c(3113)] <- "311c"
data$PCS2003_4l[PCS1982_4l %in% c(3114)] <- "311d"
data$PCS2003_4l[PCS1982_4l %in% c(3115)] <- "311e"
data$PCS2003_4l[PCS1982_4l %in% c(3116)] <- "311f"
data$PCS2003_4l[PCS1982_4l %in% c(3121)] <- "312a"
data$PCS2003_4l[PCS1982_4l %in% c(3122)] <- "312b"
data$PCS2003_4l[PCS1982_4l %in% c(3123)] <- "312d"
data$PCS2003_4l[PCS1982_4l %in% c(3124)] <- "312c"
data$PCS2003_4l[PCS1982_4l %in% c(3125)] <- "312d"
data$PCS2003_4l[PCS1982_4l %in% c(3126)] <- "312e"
data$PCS2003_4l[PCS1982_4l %in% c(3127)] <- "312f"
data$PCS2003_4l[PCS1982_4l %in% c(3128)] <- "312g"
data$PCS2003_4l[PCS1982_4l %in% c(3130)] <- "313a"
data$PCS2003_4l[PCS1982_4l %in% c(3311)] <- "331a"
data$PCS2003_4l[PCS1982_4l %in% c(3312)] <- "332a"
data$PCS2003_4l[PCS1982_4l %in% c(3313)] <- "333a"
data$PCS2003_4l[PCS1982_4l %in% c(3314)] <- "333b"
data$PCS2003_4l[PCS1982_4l %in% c(3315)] <- "333c"
data$PCS2003_4l[PCS1982_4l %in% c(3316)] <- "333f"
data$PCS2003_4l[PCS1982_4l %in% c(3317)] <- "333e"
data$PCS2003_4l[PCS1982_4l %in% c(3318)] <- "335a"
data$PCS2003_4l[PCS1982_4l %in% c(3321)] <- "334a"
data$PCS2003_4l[PCS1982_4l %in% c(3411)] <- "341a"
data$PCS2003_4l[PCS1982_4l %in% c(3412)] <- "341a"
data$PCS2003_4l[PCS1982_4l %in% c(3413)] <- "341a"
data$PCS2003_4l[PCS1982_4l %in% c(3414)] <- "341b"
data$PCS2003_4l[PCS1982_4l %in% c(3415)] <- "342a"
data$PCS2003_4l[PCS1982_4l %in% c(3416)] <- "342b"
data$PCS2003_4l[PCS1982_4l %in% c(3417)] <- "342d"
data$PCS2003_4l[PCS1982_4l %in% c(3418)] <- "342d"
data$PCS2003_4l[PCS1982_4l %in% c(3421)] <- "342e"
data$PCS2003_4l[PCS1982_4l %in% c(3422)] <- "342f"
data$PCS2003_4l[PCS1982_4l %in% c(3423)] <- "342g"
data$PCS2003_4l[PCS1982_4l %in% c(3431)] <- "344a"
data$PCS2003_4l[PCS1982_4l %in% c(3432)] <- "344b"
data$PCS2003_4l[PCS1982_4l %in% c(3433)] <- "343a"
data$PCS2003_4l[PCS1982_4l %in% c(3434)] <- "344c"
data$PCS2003_4l[PCS1982_4l %in% c(3435)] <- "344d"
data$PCS2003_4l[PCS1982_4l %in% c(3511)] <- "352a"
data$PCS2003_4l[PCS1982_4l %in% c(3512)] <- "352b"
data$PCS2003_4l[PCS1982_4l %in% c(3513)] <- "351a"
data$PCS2003_4l[PCS1982_4l %in% c(3521)] <- "353b"
data$PCS2003_4l[PCS1982_4l %in% c(3522)] <- "353c"
data$PCS2003_4l[PCS1982_4l %in% c(3523)] <- "353c"
data$PCS2003_4l[PCS1982_4l %in% c(3531)] <- "354a"
data$PCS2003_4l[PCS1982_4l %in% c(3532)] <- "354b"
data$PCS2003_4l[PCS1982_4l %in% c(3533)] <- "354c"
data$PCS2003_4l[PCS1982_4l %in% c(3534)] <- "354g"
data$PCS2003_4l[PCS1982_4l %in% c(3535)] <- "354d"
data$PCS2003_4l[PCS1982_4l %in% c(3710)] <- "371a"
data$PCS2003_4l[PCS1982_4l %in% c(3721)] <- "372a"
data$PCS2003_4l[PCS1982_4l %in% c(3722)] <- "372c"
data$PCS2003_4l[PCS1982_4l %in% c(3723)] <- "372b"
data$PCS2003_4l[PCS1982_4l %in% c(3724)] <- "373a"
data$PCS2003_4l[PCS1982_4l %in% c(3725)] <- "372c"
data$PCS2003_4l[PCS1982_4l %in% c(3726)] <- "373b"
data$PCS2003_4l[PCS1982_4l %in% c(3727)] <- "373d"
data$PCS2003_4l[PCS1982_4l %in% c(3728)] <- "372f"
data$PCS2003_4l[PCS1982_4l %in% c(3731)] <- "374a"
data$PCS2003_4l[PCS1982_4l %in% c(3732)] <- "374b"
data$PCS2003_4l[PCS1982_4l %in% c(3733)] <- "374c"
data$PCS2003_4l[PCS1982_4l %in% c(3734)] <- "374d"
data$PCS2003_4l[PCS1982_4l %in% c(3735)] <- "375a"
data$PCS2003_4l[PCS1982_4l %in% c(3741)] <- "376c"
data$PCS2003_4l[PCS1982_4l %in% c(3742)] <- "376c"
data$PCS2003_4l[PCS1982_4l %in% c(3743)] <- "376a"
data$PCS2003_4l[PCS1982_4l %in% c(3744)] <- "376e"
data$PCS2003_4l[PCS1982_4l %in% c(3751)] <- "377a"
data$PCS2003_4l[PCS1982_4l %in% c(3810)] <- "380a"
data$PCS2003_4l[PCS1982_4l %in% c(3820)] <- "381a"
data$PCS2003_4l[PCS1982_4l %in% c(3821)] <- "383a"
data$PCS2003_4l[PCS1982_4l %in% c(3822)] <- "384a"
data$PCS2003_4l[PCS1982_4l %in% c(3823)] <- "382a"
data$PCS2003_4l[PCS1982_4l %in% c(3824)] <- "382b"
data$PCS2003_4l[PCS1982_4l %in% c(3825)] <- "385a"
data$PCS2003_4l[PCS1982_4l %in% c(3826)] <- "387d"
data$PCS2003_4l[PCS1982_4l %in% c(3827)] <- "386c"
data$PCS2003_4l[PCS1982_4l %in% c(3828)] <- "388a"
data$PCS2003_4l[PCS1982_4l %in% c(3829)] <- "386a"
data$PCS2003_4l[PCS1982_4l %in% c(3831)] <- "383b"
data$PCS2003_4l[PCS1982_4l %in% c(3832)] <- "384b"
data$PCS2003_4l[PCS1982_4l %in% c(3833)] <- "382c"
data$PCS2003_4l[PCS1982_4l %in% c(3835)] <- "385b"
data$PCS2003_4l[PCS1982_4l %in% c(3836)] <- "385b"
data$PCS2003_4l[PCS1982_4l %in% c(3837)] <- "386a"
data$PCS2003_4l[PCS1982_4l %in% c(3838)] <- "386e"
data$PCS2003_4l[PCS1982_4l %in% c(3839)] <- "386d"
data$PCS2003_4l[PCS1982_4l %in% c(3841)] <- "387e"
data$PCS2003_4l[PCS1982_4l %in% c(3842)] <- "387a"
data$PCS2003_4l[PCS1982_4l %in% c(3843)] <- "387b"
data$PCS2003_4l[PCS1982_4l %in% c(3851)] <- "383c"
data$PCS2003_4l[PCS1982_4l %in% c(3852)] <- "384c"
data$PCS2003_4l[PCS1982_4l %in% c(3853)] <- "382d"
data$PCS2003_4l[PCS1982_4l %in% c(3854)] <- "385c"
data$PCS2003_4l[PCS1982_4l %in% c(3855)] <- "388d"
data$PCS2003_4l[PCS1982_4l %in% c(3861)] <- "387b"
data$PCS2003_4l[PCS1982_4l %in% c(3862)] <- "389b"
data$PCS2003_4l[PCS1982_4l %in% c(3863)] <- "389c"
data$PCS2003_4l[PCS1982_4l %in% c(4211)] <- "421b"
data$PCS2003_4l[PCS1982_4l %in% c(4212)] <- "421b"
data$PCS2003_4l[PCS1982_4l %in% c(4213)] <- "421b"
data$PCS2003_4l[PCS1982_4l %in% c(4214)] <- "421b"
data$PCS2003_4l[PCS1982_4l %in% c(4215)] <- "421b"
data$PCS2003_4l[PCS1982_4l %in% c(4221)] <- "422a"
data$PCS2003_4l[PCS1982_4l %in% c(4222)] <- "422a"
data$PCS2003_4l[PCS1982_4l %in% c(4223)] <- "422c"
data$PCS2003_4l[PCS1982_4l %in% c(4224)] <- "422b"
data$PCS2003_4l[PCS1982_4l %in% c(4225)] <- "422b"
data$PCS2003_4l[PCS1982_4l %in% c(4226)] <- "422b"
data$PCS2003_4l[PCS1982_4l %in% c(4227)] <- "422e"
data$PCS2003_4l[PCS1982_4l %in% c(4231)] <- "425a"
data$PCS2003_4l[PCS1982_4l %in% c(4232)] <- "423b"
data$PCS2003_4l[PCS1982_4l %in% c(4233)] <- "424a"
data$PCS2003_4l[PCS1982_4l %in% c(4311)] <- "431a"
data$PCS2003_4l[PCS1982_4l %in% c(4312)] <- "431b"
data$PCS2003_4l[PCS1982_4l %in% c(4313)] <- "431c"
data$PCS2003_4l[PCS1982_4l %in% c(4314)] <- "431d"
data$PCS2003_4l[PCS1982_4l %in% c(4315)] <- "431f"
data$PCS2003_4l[PCS1982_4l %in% c(4316)] <- "431g"
data$PCS2003_4l[PCS1982_4l %in% c(4321)] <- "431e"
data$PCS2003_4l[PCS1982_4l %in% c(4322)] <- "432d"
data$PCS2003_4l[PCS1982_4l %in% c(4323)] <- "432a"
data$PCS2003_4l[PCS1982_4l %in% c(4324)] <- "433a"
data$PCS2003_4l[PCS1982_4l %in% c(4325)] <- "433b"
data$PCS2003_4l[PCS1982_4l %in% c(4326)] <- "433b"
data$PCS2003_4l[PCS1982_4l %in% c(4327)] <- "433d"
data$PCS2003_4l[PCS1982_4l %in% c(4331)] <- "434b"
data$PCS2003_4l[PCS1982_4l %in% c(4332)] <- "434d"
data$PCS2003_4l[PCS1982_4l %in% c(4333)] <- "435b"
data$PCS2003_4l[PCS1982_4l %in% c(4334)] <- "434c"
data$PCS2003_4l[PCS1982_4l %in% c(4411)] <- "441a"
data$PCS2003_4l[PCS1982_4l %in% c(4412)] <- "441b"
data$PCS2003_4l[PCS1982_4l %in% c(4511)] <- "451a"
data$PCS2003_4l[PCS1982_4l %in% c(4512)] <- "451c"
data$PCS2003_4l[PCS1982_4l %in% c(4513)] <- "451f"
data$PCS2003_4l[PCS1982_4l %in% c(4514)] <- "451e"
data$PCS2003_4l[PCS1982_4l %in% c(4521)] <- "452a"
data$PCS2003_4l[PCS1982_4l %in% c(4522)] <- "452b"
data$PCS2003_4l[PCS1982_4l %in% c(4611)] <- "461d"
data$PCS2003_4l[PCS1982_4l %in% c(4612)] <- "461f"
data$PCS2003_4l[PCS1982_4l %in% c(4613)] <- "461e"
data$PCS2003_4l[PCS1982_4l %in% c(4614)] <- "461f"
data$PCS2003_4l[PCS1982_4l %in% c(4615)] <- "461a"
data$PCS2003_4l[PCS1982_4l %in% c(4621)] <- "462a"
data$PCS2003_4l[PCS1982_4l %in% c(4622)] <- "462b"
data$PCS2003_4l[PCS1982_4l %in% c(4623)] <- "462d"
data$PCS2003_4l[PCS1982_4l %in% c(4624)] <- "463b"
data$PCS2003_4l[PCS1982_4l %in% c(4625)] <- "463c"
data$PCS2003_4l[PCS1982_4l %in% c(4626)] <- "463d"
data$PCS2003_4l[PCS1982_4l %in% c(4627)] <- "463e"
data$PCS2003_4l[PCS1982_4l %in% c(4628)] <- "462c"
data$PCS2003_4l[PCS1982_4l %in% c(4629)] <- "462e"
data$PCS2003_4l[PCS1982_4l %in% c(4631)] <- "464a"
data$PCS2003_4l[PCS1982_4l %in% c(4632)] <- "464b"
data$PCS2003_4l[PCS1982_4l %in% c(4633)] <- "465b"
data$PCS2003_4l[PCS1982_4l %in% c(4634)] <- "465a"
data$PCS2003_4l[PCS1982_4l %in% c(4635)] <- "465a"
data$PCS2003_4l[PCS1982_4l %in% c(4636)] <- "465c"
data$PCS2003_4l[PCS1982_4l %in% c(4637)] <- "465c"
data$PCS2003_4l[PCS1982_4l %in% c(4641)] <- "466a"
data$PCS2003_4l[PCS1982_4l %in% c(4642)] <- "466c"
data$PCS2003_4l[PCS1982_4l %in% c(4651)] <- "467a"
data$PCS2003_4l[PCS1982_4l %in% c(4652)] <- "467a"
data$PCS2003_4l[PCS1982_4l %in% c(4653)] <- "467b"
data$PCS2003_4l[PCS1982_4l %in% c(4654)] <- "467d"
data$PCS2003_4l[PCS1982_4l %in% c(4655)] <- "467c"
data$PCS2003_4l[PCS1982_4l %in% c(4656)] <- "467c"
data$PCS2003_4l[PCS1982_4l %in% c(4661)] <- "468a"
data$PCS2003_4l[PCS1982_4l %in% c(4662)] <- "468b"
data$PCS2003_4l[PCS1982_4l %in% c(4701)] <- "471a"
data$PCS2003_4l[PCS1982_4l %in% c(4702)] <- "471b"
data$PCS2003_4l[PCS1982_4l %in% c(4711)] <- "473a"
data$PCS2003_4l[PCS1982_4l %in% c(4712)] <- "473a"
data$PCS2003_4l[PCS1982_4l %in% c(4713)] <- "473b"
data$PCS2003_4l[PCS1982_4l %in% c(4714)] <- "473b"
data$PCS2003_4l[PCS1982_4l %in% c(4715)] <- "473b"
data$PCS2003_4l[PCS1982_4l %in% c(4716)] <- "473c"
data$PCS2003_4l[PCS1982_4l %in% c(4717)] <- "477c"
data$PCS2003_4l[PCS1982_4l %in% c(4718)] <- "478d"
data$PCS2003_4l[PCS1982_4l %in% c(4721)] <- "474a"
data$PCS2003_4l[PCS1982_4l %in% c(4722)] <- "474a"
data$PCS2003_4l[PCS1982_4l %in% c(4723)] <- "474c"
data$PCS2003_4l[PCS1982_4l %in% c(4731)] <- "472a"
data$PCS2003_4l[PCS1982_4l %in% c(4732)] <- "472a"
data$PCS2003_4l[PCS1982_4l %in% c(4733)] <- "472b"
data$PCS2003_4l[PCS1982_4l %in% c(4734)] <- "472d"
data$PCS2003_4l[PCS1982_4l %in% c(4735)] <- "472c"
data$PCS2003_4l[PCS1982_4l %in% c(4751)] <- "475b"
data$PCS2003_4l[PCS1982_4l %in% c(4761)] <- "475b"
data$PCS2003_4l[PCS1982_4l %in% c(4771)] <- "476a"
data$PCS2003_4l[PCS1982_4l %in% c(4772)] <- "476b"
data$PCS2003_4l[PCS1982_4l %in% c(4781)] <- "474c"
data$PCS2003_4l[PCS1982_4l %in% c(4782)] <- "477a"
data$PCS2003_4l[PCS1982_4l %in% c(4791)] <- "478a"
data$PCS2003_4l[PCS1982_4l %in% c(4792)] <- "478a"
data$PCS2003_4l[PCS1982_4l %in% c(4793)] <- "479a"
data$PCS2003_4l[PCS1982_4l %in% c(4794)] <- "479b"
data$PCS2003_4l[PCS1982_4l %in% c(4795)] <- "479b"
data$PCS2003_4l[PCS1982_4l %in% c(4801)] <- "480a"
data$PCS2003_4l[PCS1982_4l %in% c(4802)] <- "480b"
data$PCS2003_4l[PCS1982_4l %in% c(4811)] <- "482a"
data$PCS2003_4l[PCS1982_4l %in% c(4812)] <- "482a"
data$PCS2003_4l[PCS1982_4l %in% c(4821)] <- "483a"
data$PCS2003_4l[PCS1982_4l %in% c(4822)] <- "483a"
data$PCS2003_4l[PCS1982_4l %in% c(4831)] <- "481a"
data$PCS2003_4l[PCS1982_4l %in% c(4832)] <- "481b"
data$PCS2003_4l[PCS1982_4l %in% c(4851)] <- "484a"
data$PCS2003_4l[PCS1982_4l %in% c(4852)] <- "484a"
data$PCS2003_4l[PCS1982_4l %in% c(4861)] <- "484b"
data$PCS2003_4l[PCS1982_4l %in% c(4862)] <- "484b"
data$PCS2003_4l[PCS1982_4l %in% c(4871)] <- "485a"
data$PCS2003_4l[PCS1982_4l %in% c(4873)] <- "485b"
data$PCS2003_4l[PCS1982_4l %in% c(4874)] <- "485b"
data$PCS2003_4l[PCS1982_4l %in% c(4881)] <- "486a"
data$PCS2003_4l[PCS1982_4l %in% c(4882)] <- "486a"
data$PCS2003_4l[PCS1982_4l %in% c(4883)] <- "486d"
data$PCS2003_4l[PCS1982_4l %in% c(4884)] <- "486e"
data$PCS2003_4l[PCS1982_4l %in% c(4891)] <- "487a"
data$PCS2003_4l[PCS1982_4l %in% c(4892)] <- "487b"
data$PCS2003_4l[PCS1982_4l %in% c(4893)] <- "488a"
data$PCS2003_4l[PCS1982_4l %in% c(5211)] <- "521b"
data$PCS2003_4l[PCS1982_4l %in% c(5212)] <- "521a"
data$PCS2003_4l[PCS1982_4l %in% c(5213)] <- "522a"
data$PCS2003_4l[PCS1982_4l %in% c(5214)] <- "523a"
data$PCS2003_4l[PCS1982_4l %in% c(5215)] <- "524a"
data$PCS2003_4l[PCS1982_4l %in% c(5216)] <- "525a"
data$PCS2003_4l[PCS1982_4l %in% c(5217)] <- "525c"
data$PCS2003_4l[PCS1982_4l %in% c(5221)] <- "526a"
data$PCS2003_4l[PCS1982_4l %in% c(5222)] <- "525d"
data$PCS2003_4l[PCS1982_4l %in% c(5223)] <- "526e"
data$PCS2003_4l[PCS1982_4l %in% c(5311)] <- "531a"
data$PCS2003_4l[PCS1982_4l %in% c(5312)] <- "532a"
data$PCS2003_4l[PCS1982_4l %in% c(5313)] <- "532b"
data$PCS2003_4l[PCS1982_4l %in% c(5314)] <- "532c"
data$PCS2003_4l[PCS1982_4l %in% c(5315)] <- "533a"
data$PCS2003_4l[PCS1982_4l %in% c(5316)] <- "533b"
data$PCS2003_4l[PCS1982_4l %in% c(5317)] <- "534a"
data$PCS2003_4l[PCS1982_4l %in% c(5411)] <- "542a"
data$PCS2003_4l[PCS1982_4l %in% c(5412)] <- "533b"
data$PCS2003_4l[PCS1982_4l %in% c(5413)] <- "542b"
data$PCS2003_4l[PCS1982_4l %in% c(5414)] <- "542b"
data$PCS2003_4l[PCS1982_4l %in% c(5415)] <- "544a"
data$PCS2003_4l[PCS1982_4l %in% c(5416)] <- "544a"
data$PCS2003_4l[PCS1982_4l %in% c(5417)] <- "541d"
data$PCS2003_4l[PCS1982_4l %in% c(5421)] <- "543a"
data$PCS2003_4l[PCS1982_4l %in% c(5422)] <- "543b"
data$PCS2003_4l[PCS1982_4l %in% c(5423)] <- "543c"
data$PCS2003_4l[PCS1982_4l %in% c(5424)] <- "543d"
data$PCS2003_4l[PCS1982_4l %in% c(5425)] <- "543e"
data$PCS2003_4l[PCS1982_4l %in% c(5426)] <- "543g"
data$PCS2003_4l[PCS1982_4l %in% c(5427)] <- "543h"
data$PCS2003_4l[PCS1982_4l %in% c(5428)] <- "543d"
data$PCS2003_4l[PCS1982_4l %in% c(5431)] <- "545a"
data$PCS2003_4l[PCS1982_4l %in% c(5432)] <- "545b"
data$PCS2003_4l[PCS1982_4l %in% c(5433)] <- "545a"
data$PCS2003_4l[PCS1982_4l %in% c(5434)] <- "545d"
data$PCS2003_4l[PCS1982_4l %in% c(5441)] <- "546a"
data$PCS2003_4l[PCS1982_4l %in% c(5442)] <- "546b"
data$PCS2003_4l[PCS1982_4l %in% c(5443)] <- "546c"
data$PCS2003_4l[PCS1982_4l %in% c(5444)] <- "541a"
data$PCS2003_4l[PCS1982_4l %in% c(5445)] <- "546d"
data$PCS2003_4l[PCS1982_4l %in% c(5499)] <- "691f"
data$PCS2003_4l[PCS1982_4l %in% c(5510)] <- "553b"
data$PCS2003_4l[PCS1982_4l %in% c(5511)] <- "556a"
data$PCS2003_4l[PCS1982_4l %in% c(5512)] <- "554a"
data$PCS2003_4l[PCS1982_4l %in% c(5513)] <- "554b"
data$PCS2003_4l[PCS1982_4l %in% c(5514)] <- "554e"
data$PCS2003_4l[PCS1982_4l %in% c(5515)] <- "554c"
data$PCS2003_4l[PCS1982_4l %in% c(5516)] <- "554f"
data$PCS2003_4l[PCS1982_4l %in% c(5517)] <- "554g"
data$PCS2003_4l[PCS1982_4l %in% c(5518)] <- "553a"
data$PCS2003_4l[PCS1982_4l %in% c(5519)] <- "552a"
data$PCS2003_4l[PCS1982_4l %in% c(5521)] <- "554j"
data$PCS2003_4l[PCS1982_4l %in% c(5611)] <- "561a"
data$PCS2003_4l[PCS1982_4l %in% c(5612)] <- "561b"
data$PCS2003_4l[PCS1982_4l %in% c(5613)] <- "561d"
data$PCS2003_4l[PCS1982_4l %in% c(5614)] <- "561f"
data$PCS2003_4l[PCS1982_4l %in% c(5615)] <- "561f"
data$PCS2003_4l[PCS1982_4l %in% c(5616)] <- "561f"
data$PCS2003_4l[PCS1982_4l %in% c(5621)] <- "562a"
data$PCS2003_4l[PCS1982_4l %in% c(5622)] <- "562b"
data$PCS2003_4l[PCS1982_4l %in% c(5631)] <- "563a"
data$PCS2003_4l[PCS1982_4l %in% c(5632)] <- "563c"
data$PCS2003_4l[PCS1982_4l %in% c(5633)] <- "564a"
data$PCS2003_4l[PCS1982_4l %in% c(5634)] <- "564b"
data$PCS2003_4l[PCS1982_4l %in% c(6201)] <- "628a"
data$PCS2003_4l[PCS1982_4l %in% c(6202)] <- "628b"
data$PCS2003_4l[PCS1982_4l %in% c(6203)] <- "628c"
data$PCS2003_4l[PCS1982_4l %in% c(6204)] <- "628d"
data$PCS2003_4l[PCS1982_4l %in% c(6211)] <- "622b"
data$PCS2003_4l[PCS1982_4l %in% c(6212)] <- "622f"
data$PCS2003_4l[PCS1982_4l %in% c(6213)] <- "622f"
data$PCS2003_4l[PCS1982_4l %in% c(6214)] <- "622b"
data$PCS2003_4l[PCS1982_4l %in% c(6215)] <- "622c"
data$PCS2003_4l[PCS1982_4l %in% c(6216)] <- "622d"
data$PCS2003_4l[PCS1982_4l %in% c(6217)] <- "622e"
data$PCS2003_4l[PCS1982_4l %in% c(6218)] <- "622g"
data$PCS2003_4l[PCS1982_4l %in% c(6220)] <- "623a"
data$PCS2003_4l[PCS1982_4l %in% c(6221)] <- "623a"
data$PCS2003_4l[PCS1982_4l %in% c(6222)] <- "623b"
data$PCS2003_4l[PCS1982_4l %in% c(6223)] <- "623c"
data$PCS2003_4l[PCS1982_4l %in% c(6224)] <- "623e"
data$PCS2003_4l[PCS1982_4l %in% c(6225)] <- "623d"
data$PCS2003_4l[PCS1982_4l %in% c(6226)] <- "632a"
data$PCS2003_4l[PCS1982_4l %in% c(6227)] <- "623g"
data$PCS2003_4l[PCS1982_4l %in% c(6228)] <- "623f"
data$PCS2003_4l[PCS1982_4l %in% c(6229)] <- "623g"
data$PCS2003_4l[PCS1982_4l %in% c(6231)] <- "624a"
data$PCS2003_4l[PCS1982_4l %in% c(6232)] <- "624b"
data$PCS2003_4l[PCS1982_4l %in% c(6233)] <- "624c"
data$PCS2003_4l[PCS1982_4l %in% c(6234)] <- "624d"
data$PCS2003_4l[PCS1982_4l %in% c(6235)] <- "623a"
data$PCS2003_4l[PCS1982_4l %in% c(6236)] <- "624e"
data$PCS2003_4l[PCS1982_4l %in% c(6237)] <- "624f"
data$PCS2003_4l[PCS1982_4l %in% c(6238)] <- "624g"
data$PCS2003_4l[PCS1982_4l %in% c(6241)] <- "621a"
data$PCS2003_4l[PCS1982_4l %in% c(6242)] <- "621b"
data$PCS2003_4l[PCS1982_4l %in% c(6243)] <- "621c"
data$PCS2003_4l[PCS1982_4l %in% c(6244)] <- "621e"
data$PCS2003_4l[PCS1982_4l %in% c(6245)] <- "621g"
data$PCS2003_4l[PCS1982_4l %in% c(6246)] <- "621g"
data$PCS2003_4l[PCS1982_4l %in% c(6251)] <- "625c"
data$PCS2003_4l[PCS1982_4l %in% c(6252)] <- "625c"
data$PCS2003_4l[PCS1982_4l %in% c(6253)] <- "625c"
data$PCS2003_4l[PCS1982_4l %in% c(6254)] <- "625b"
data$PCS2003_4l[PCS1982_4l %in% c(6255)] <- "625e"
data$PCS2003_4l[PCS1982_4l %in% c(6256)] <- "625a"
data$PCS2003_4l[PCS1982_4l %in% c(6257)] <- "625f"
data$PCS2003_4l[PCS1982_4l %in% c(6258)] <- "625d"
data$PCS2003_4l[PCS1982_4l %in% c(6261)] <- "626b"
data$PCS2003_4l[PCS1982_4l %in% c(6262)] <- "626a"
data$PCS2003_4l[PCS1982_4l %in% c(6263)] <- "626b"
data$PCS2003_4l[PCS1982_4l %in% c(6264)] <- "626c"
data$PCS2003_4l[PCS1982_4l %in% c(6265)] <- "626c"
data$PCS2003_4l[PCS1982_4l %in% c(6271)] <- "627a"
data$PCS2003_4l[PCS1982_4l %in% c(6272)] <- "627b"
data$PCS2003_4l[PCS1982_4l %in% c(6273)] <- "627b"
data$PCS2003_4l[PCS1982_4l %in% c(6274)] <- "627c"
data$PCS2003_4l[PCS1982_4l %in% c(6281)] <- "627e"
data$PCS2003_4l[PCS1982_4l %in% c(6282)] <- "627f"
data$PCS2003_4l[PCS1982_4l %in% c(6283)] <- "627f"
data$PCS2003_4l[PCS1982_4l %in% c(6284)] <- "627f"
data$PCS2003_4l[PCS1982_4l %in% c(6291)] <- "627d"
data$PCS2003_4l[PCS1982_4l %in% c(6292)] <- "627d"
data$PCS2003_4l[PCS1982_4l %in% c(6293)] <- "625h"
data$PCS2003_4l[PCS1982_4l %in% c(6294)] <- "628f"
data$PCS2003_4l[PCS1982_4l %in% c(6299)] <- "628g"
data$PCS2003_4l[PCS1982_4l %in% c(6301)] <- "631a"
data$PCS2003_4l[PCS1982_4l %in% c(6311)] <- "633a"
data$PCS2003_4l[PCS1982_4l %in% c(6312)] <- "633b"
data$PCS2003_4l[PCS1982_4l %in% c(6313)] <- "633d"
data$PCS2003_4l[PCS1982_4l %in% c(6321)] <- "634a"
data$PCS2003_4l[PCS1982_4l %in% c(6322)] <- "634b"
data$PCS2003_4l[PCS1982_4l %in% c(6323)] <- "634c"
data$PCS2003_4l[PCS1982_4l %in% c(6324)] <- "634d"
data$PCS2003_4l[PCS1982_4l %in% c(6331)] <- "632c"
data$PCS2003_4l[PCS1982_4l %in% c(6332)] <- "632d"
data$PCS2003_4l[PCS1982_4l %in% c(6341)] <- "632a"
data$PCS2003_4l[PCS1982_4l %in% c(6342)] <- "632b"
data$PCS2003_4l[PCS1982_4l %in% c(6343)] <- "632e"
data$PCS2003_4l[PCS1982_4l %in% c(6344)] <- "632f"
data$PCS2003_4l[PCS1982_4l %in% c(6345)] <- "632g"
data$PCS2003_4l[PCS1982_4l %in% c(6346)] <- "632j"
data$PCS2003_4l[PCS1982_4l %in% c(6347)] <- "632k"
data$PCS2003_4l[PCS1982_4l %in% c(6351)] <- "636a"
data$PCS2003_4l[PCS1982_4l %in% c(6352)] <- "636b"
data$PCS2003_4l[PCS1982_4l %in% c(6353)] <- "636c"
data$PCS2003_4l[PCS1982_4l %in% c(6354)] <- "636d"
data$PCS2003_4l[PCS1982_4l %in% c(6371)] <- "635a"
data$PCS2003_4l[PCS1982_4l %in% c(6372)] <- "635a"
data$PCS2003_4l[PCS1982_4l %in% c(6373)] <- "635a"
data$PCS2003_4l[PCS1982_4l %in% c(6391)] <- "637a"
data$PCS2003_4l[PCS1982_4l %in% c(6392)] <- "637b"
data$PCS2003_4l[PCS1982_4l %in% c(6393)] <- "637c"
data$PCS2003_4l[PCS1982_4l %in% c(6394)] <- "637a"
data$PCS2003_4l[PCS1982_4l %in% c(6399)] <- "637d"
data$PCS2003_4l[PCS1982_4l %in% c(6411)] <- "641a"
data$PCS2003_4l[PCS1982_4l %in% c(6412)] <- "641b"
data$PCS2003_4l[PCS1982_4l %in% c(6413)] <- "642a"
data$PCS2003_4l[PCS1982_4l %in% c(6414)] <- "642b"
data$PCS2003_4l[PCS1982_4l %in% c(6415)] <- "643a"
data$PCS2003_4l[PCS1982_4l %in% c(6511)] <- "651a"
data$PCS2003_4l[PCS1982_4l %in% c(6512)] <- "651b"
data$PCS2003_4l[PCS1982_4l %in% c(6513)] <- "652b"
data$PCS2003_4l[PCS1982_4l %in% c(6514)] <- "652a"
data$PCS2003_4l[PCS1982_4l %in% c(6515)] <- "653a"
data$PCS2003_4l[PCS1982_4l %in% c(6521)] <- "655a"
data$PCS2003_4l[PCS1982_4l %in% c(6522)] <- "654a"
data$PCS2003_4l[PCS1982_4l %in% c(6531)] <- "656a"
data$PCS2003_4l[PCS1982_4l %in% c(6532)] <- "656a"
data$PCS2003_4l[PCS1982_4l %in% c(6711)] <- "672a"
data$PCS2003_4l[PCS1982_4l %in% c(6721)] <- "673a"
data$PCS2003_4l[PCS1982_4l %in% c(6722)] <- "673b"
data$PCS2003_4l[PCS1982_4l %in% c(6723)] <- "673c"
data$PCS2003_4l[PCS1982_4l %in% c(6741)] <- "671b"
data$PCS2003_4l[PCS1982_4l %in% c(6742)] <- "671b"
data$PCS2003_4l[PCS1982_4l %in% c(6751)] <- "674a"
data$PCS2003_4l[PCS1982_4l %in% c(6752)] <- "674a"
data$PCS2003_4l[PCS1982_4l %in% c(6753)] <- "674a"
data$PCS2003_4l[PCS1982_4l %in% c(6754)] <- "674c"
data$PCS2003_4l[PCS1982_4l %in% c(6755)] <- "674c"
data$PCS2003_4l[PCS1982_4l %in% c(6756)] <- "674c"
data$PCS2003_4l[PCS1982_4l %in% c(6761)] <- "674d"
data$PCS2003_4l[PCS1982_4l %in% c(6762)] <- "674d"
data$PCS2003_4l[PCS1982_4l %in% c(6763)] <- "674d"
data$PCS2003_4l[PCS1982_4l %in% c(6764)] <- "674e"
data$PCS2003_4l[PCS1982_4l %in% c(6771)] <- "675a"
data$PCS2003_4l[PCS1982_4l %in% c(6772)] <- "675a"
data$PCS2003_4l[PCS1982_4l %in% c(6773)] <- "675a"
data$PCS2003_4l[PCS1982_4l %in% c(6791)] <- "675b"
data$PCS2003_4l[PCS1982_4l %in% c(6792)] <- "676a"
data$PCS2003_4l[PCS1982_4l %in% c(6793)] <- "676c"
data$PCS2003_4l[PCS1982_4l %in% c(6799)] <- "676e"
data$PCS2003_4l[PCS1982_4l %in% c(6821)] <- "682a"
data$PCS2003_4l[PCS1982_4l %in% c(6841)] <- "681a"
data$PCS2003_4l[PCS1982_4l %in% c(6842)] <- "681b"
data$PCS2003_4l[PCS1982_4l %in% c(6851)] <- "683a"
data$PCS2003_4l[PCS1982_4l %in% c(6891)] <- "684a"
data$PCS2003_4l[PCS1982_4l %in% c(6899)] <- "685a"
data$PCS2003_4l[PCS1982_4l %in% c(6911)] <- "691a"
data$PCS2003_4l[PCS1982_4l %in% c(6912)] <- "691b"
data$PCS2003_4l[PCS1982_4l %in% c(6913)] <- "691c"
data$PCS2003_4l[PCS1982_4l %in% c(6914)] <- "691d"
data$PCS2003_4l[PCS1982_4l %in% c(6915)] <- "691e"
data$PCS2003_4l[PCS1982_4l %in% c(6916)] <- "691f"
data$PCS2003_4l[PCS1982_4l %in% c(6921)] <- "692a"
#grouping in 3 levels
data$PCS2003_3l[data$PCS2003_4l %in% c("111a","111b","111c","111d","111e","111f")] <- 11
data$PCS2003_3l[data$PCS2003_4l %in% c("121a","121b","121c","121d","121e","121f","122a","122b","122c")] <- 12
data$PCS2003_3l[data$PCS2003_4l %in% c("131a","131b","131c","131d","131e","131f")] <- 13
data$PCS2003_3l[data$PCS2003_4l %in% c("211a","211b","211d","211e","211f","211g","211j", "212a","212c","213a","213a", "214a","214b","214c","214e","214f","215a","215b","215c","215d", "216a","216b","216c","217a","217c","217d","217e","218a","219a")] <- 21
data$PCS2003_3l[data$PCS2003_4l %in% c("221a","221b","222a","222b","223a","223b","223d","223e","223g","223h",
"224a","224b","224c","224d","225a","226a","226b","226c","227a","227b","227c","227d")] <- 22
data$PCS2003_3l[data$PCS2003_4l %in% c("231a","232a","233a","233b","233c","233d")] <- 23
data$PCS2003_3l[data$PCS2003_4l %in% c("311a","311b","311c","311d","311e","311f","312a","312b","312c", "312d","312e","312f","312g","313a")] <- 31
data$PCS2003_3l[data$PCS2003_4l %in% c("331a","332a","333a","333b","333c","333e","333f","334a","335a")] <- 33
data$PCS2003_3l[data$PCS2003_4l %in% c("341a","341b","342a","342b","342d","342e","342f","342g", "343a","344a","344b","344c","344d")] <- 34
data$PCS2003_3l[data$PCS2003_4l %in% c("351a","352a","352b","353b","353c","354a","354b","354c","354d","354g")] <- 35
data$PCS2003_3l[data$PCS2003_4l %in% c("371a","372a","372b","372c","372f","373a","373b", "373d","374a","374b","374c", "374d","375a","376a","376c","376e","377a")] <- 37
data$PCS2003_3l[data$PCS2003_4l %in% c("380a","381a","382a","382b","382c","382d","383a","383b","383c", "384a","384b","384c","385a","385b","385c","386a","386c","386d","386e","387a","387b","387d","387e","388a","388d","389b","389c")] <- 38
data$PCS2003_3l[data$PCS2003_4l %in% c("421b","422a","422b","422c","422e","423b","424a","425a")] <- 42
data$PCS2003_3l[data$PCS2003_4l %in% c("431a","431b","431c","431d","431f","431e","431g",
"432a","432d","433a","433b","433d","434b","434c","434d","435b")] <- 43
data$PCS2003_3l[data$PCS2003_4l %in% c("441a","441b")] <- 44
data$PCS2003_3l[data$PCS2003_4l %in% c("451a","451c","451f","451e","452a","452b",
"461a","461d","461e","461f","462a","462b","462c","462d","462e","463b","463c","463d","463e","464a","464b",
"465a","465b","465c","466a","466c","467a","467b","467c","467d","468a","468b")] <- 45
data$PCS2003_3l[data$PCS2003_4l %in% c("471a","471b","472a","472b","472c","472d","473a", "473b","473c","474a","474c","475b","476a","476b","477a","477c","478a","478d","479a","479b")] <- 46
data$PCS2003_3l[data$PCS2003_4l %in% c("480a","480b","481a","481b","482a","483a","484a","484b","485a","485b", "486a","486d","486e","487a","487b","488a")] <- 48
data$PCS2003_3l[data$PCS2003_4l %in% c("521a","521b","522a","523a","524a","525a","525c", "525d","526a","526e")] <- 52
data$PCS2003_3l[data$PCS2003_4l %in% c("531a","532a","532b","532c","533a","533b","534a")] <- 53
data$PCS2003_3l[data$PCS2003_4l %in% c("541a","541d","542a","542b","543a","543b","543c", "543d","543e","543g","543h","544a","545a","545b","545d","546a","546b","546c","546d")] <- 54
data$PCS2003_3l[data$PCS2003_4l %in% c("552a","553a","553b","554a","554b","554c","554e","554f", "554g","554j","556a")] <- 55
data$PCS2003_3l[data$PCS2003_4l %in% c("561a","561b","561d","561f","562a","562b","563a","563c","564a", "564b")] <- 56
data$PCS2003_3l[data$PCS2003_4l %in% c("621a","621b","621c","621e","621g","622b","622c","622d","622e","622f","622g","623a","623b", "623c","623d","623e","623f","623g","624a","624b","624c","624d","624e","624f","624g","625a","625b","625c", "625d","625e","625f","625h","626a","626b","626c","627a","627b","627c","627d","627e","627f","628a", "628b","628c","628d","628f","628g")] <- 62
data$PCS2003_3l[data$PCS2003_4l %in% c("631a","632a","632b","632c","632d","632e","632f","632g","632j", "632k","633a","633b","633d","634a","634b","634c","634d","635a","636a","636b","636c","636d","637a", "637b","637c","637d")] <- 63
data$PCS2003_3l[data$PCS2003_4l %in% c("641a","641b","642a","642b","643a")] <- 64
data$PCS2003_3l[data$PCS2003_4l %in% c("651a","651b","652a","652b","653a","654a","655a","656a")] <- 65
data$PCS2003_3l[data$PCS2003_4l %in% c("671b","672a","673a","673b","673c","674a","674c","674d", "674e","675a","675b","676a","676c","676e")] <- 67
data$PCS2003_3l[data$PCS2003_4l %in% c("681a","681b","682a","683a","684a","685a")] <- 68
data$PCS2003_3l[data$PCS2003_4l %in% c("691a","691b","691c","691d","691e","691f","692a")] <- 69
#grouping in 2 levels
data$PCS2003_2l[data$PCS2003_3l %in% c(11,12,13)] <- 10
data$PCS2003_2l[data$PCS2003_3l %in% c(21)] <- 21
data$PCS2003_2l[data$PCS2003_3l %in% c(22)] <- 22
data$PCS2003_2l[data$PCS2003_3l %in% c(23)] <- 23
data$PCS2003_2l[data$PCS2003_3l %in% c(31)] <- 31
data$PCS2003_2l[data$PCS2003_3l %in% c(33,34,35)] <- 32
data$PCS2003_2l[data$PCS2003_3l %in% c(37,38)] <- 36
data$PCS2003_2l[data$PCS2003_3l %in% c(42,43,44,45)] <- 41
data$PCS2003_2l[data$PCS2003_3l %in% c(46)] <- 46
data$PCS2003_2l[data$PCS2003_3l %in% c(47)] <- 47
data$PCS2003_2l[data$PCS2003_3l %in% c(48)] <- 48
data$PCS2003_2l[data$PCS2003_3l %in% c(52,53)] <- 51
data$PCS2003_2l[data$PCS2003_3l %in% c(54)] <- 54
data$PCS2003_2l[data$PCS2003_3l %in% c(55)] <- 55
data$PCS2003_2l[data$PCS2003_3l %in% c(56)] <- 56
data$PCS2003_2l[data$PCS2003_3l %in% c(62,63,64,65)] <- 61
data$PCS2003_2l[data$PCS2003_3l %in% c(67,68)] <- 66
data$PCS2003_2l[data$PCS2003_3l %in% c(69)] <- 69
#grouping in 1 levels
data$PCS2003_1l[data$PCS2003_2l %in% c(10)] <- 1
data$PCS2003_1l[data$PCS2003_2l %in% c(21,22,23)] <- 2
data$PCS2003_1l[data$PCS2003_2l %in% c(31,32,36)] <- 3
data$PCS2003_1l[data$PCS2003_2l %in% c(41,46,47,48)] <- 4
data$PCS2003_1l[data$PCS2003_2l %in% c(51,54,55,56)] <- 5
data$PCS2003_1l[data$PCS2003_2l %in% c(61,66,69)] <- 6
return(data)
}
Try the SocialPosition package in your browser
Any scripts or data that you put into this service are public.
SocialPosition documentation built on May 2, 2019, 9:25 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 convert_from_PCS1982_4l_to_PCS2003_4l
Documented in convert_from_PCS1982_4l_to_PCS2003_4l
convert_from_PCS1982_4l_to_PCS2003_4l <-
function(PCS1982_4l, data){
#conversion
data$PCS2003_4l[PCS1982_4l %in% c(1101)] <- "111a"
data$PCS2003_4l[PCS1982_4l %in% c(1102)] <- "111b"
data$PCS2003_4l[PCS1982_4l %in% c(1103)] <- "111c"
data$PCS2003_4l[PCS1982_4l %in% c(1104)] <- "111d"
data$PCS2003_4l[PCS1982_4l %in% c(1105)] <- "111e"
data$PCS2003_4l[PCS1982_4l %in% c(1106)] <- "111f"
data$PCS2003_4l[PCS1982_4l %in% c(1201)] <- "121a"
data$PCS2003_4l[PCS1982_4l %in% c(1202)] <- "121b"
data$PCS2003_4l[PCS1982_4l %in% c(1203)] <- "121c"
data$PCS2003_4l[PCS1982_4l %in% c(1204)] <- "121d"
data$PCS2003_4l[PCS1982_4l %in% c(1205)] <- "121e"
data$PCS2003_4l[PCS1982_4l %in% c(1206)] <- "121f"
data$PCS2003_4l[PCS1982_4l %in% c(1211)] <- "122a"
data$PCS2003_4l[PCS1982_4l %in% c(1212)] <- "122b"
data$PCS2003_4l[PCS1982_4l %in% c(1213)] <- "122c"
data$PCS2003_4l[PCS1982_4l %in% c(1301)] <- "131a"
data$PCS2003_4l[PCS1982_4l %in% c(1302)] <- "131b"
data$PCS2003_4l[PCS1982_4l %in% c(1303)] <- "131c"
data$PCS2003_4l[PCS1982_4l %in% c(1304)] <- "131d"
data$PCS2003_4l[PCS1982_4l %in% c(1305)] <- "131e"
data$PCS2003_4l[PCS1982_4l %in% c(1306)] <- "131f"
data$PCS2003_4l[PCS1982_4l %in% c(2101)] <- "215a"
data$PCS2003_4l[PCS1982_4l %in% c(2102)] <- "215a"
data$PCS2003_4l[PCS1982_4l %in% c(2103)] <- "215b"
data$PCS2003_4l[PCS1982_4l %in% c(2104)] <- "215b"
data$PCS2003_4l[PCS1982_4l %in% c(2105)] <- "215c"
data$PCS2003_4l[PCS1982_4l %in% c(2106)] <- "215c"
data$PCS2003_4l[PCS1982_4l %in% c(2107)] <- "215d"
data$PCS2003_4l[PCS1982_4l %in% c(2111)] <- "212a"
data$PCS2003_4l[PCS1982_4l %in% c(2112)] <- "214f"
data$PCS2003_4l[PCS1982_4l %in% c(2113)] <- "212c"
data$PCS2003_4l[PCS1982_4l %in% c(2121)] <- "213a"
data$PCS2003_4l[PCS1982_4l %in% c(2122)] <- "213a"
data$PCS2003_4l[PCS1982_4l %in% c(2131)] <- "214a"
data$PCS2003_4l[PCS1982_4l %in% c(2132)] <- "214b"
data$PCS2003_4l[PCS1982_4l %in% c(2141)] <- "214c"
data$PCS2003_4l[PCS1982_4l %in% c(2142)] <- "214e"
data$PCS2003_4l[PCS1982_4l %in% c(2143)] <- "214f"
data$PCS2003_4l[PCS1982_4l %in% c(2151)] <- "211a"
data$PCS2003_4l[PCS1982_4l %in% c(2152)] <- "211j"
data$PCS2003_4l[PCS1982_4l %in% c(2153)] <- "211e"
data$PCS2003_4l[PCS1982_4l %in% c(2154)] <- "211f"
data$PCS2003_4l[PCS1982_4l %in% c(2155)] <- "211d"
data$PCS2003_4l[PCS1982_4l %in% c(2156)] <- "211b"
data$PCS2003_4l[PCS1982_4l %in% c(2157)] <- "211g"
data$PCS2003_4l[PCS1982_4l %in% c(2161)] <- "216a"
data$PCS2003_4l[PCS1982_4l %in% c(2162)] <- "216b"
data$PCS2003_4l[PCS1982_4l %in% c(2163)] <- "216c"
data$PCS2003_4l[PCS1982_4l %in% c(2164)] <- "216c"
data$PCS2003_4l[PCS1982_4l %in% c(2171)] <- "217a"
data$PCS2003_4l[PCS1982_4l %in% c(2172)] <- "217c"
data$PCS2003_4l[PCS1982_4l %in% c(2173)] <- "217d"
data$PCS2003_4l[PCS1982_4l %in% c(2174)] <- "217e"
data$PCS2003_4l[PCS1982_4l %in% c(2181)] <- "218a"
data$PCS2003_4l[PCS1982_4l %in% c(2182)] <- "218a"
data$PCS2003_4l[PCS1982_4l %in% c(2190)] <- "219a"
data$PCS2003_4l[PCS1982_4l %in% c(2210)] <- "221a"
data$PCS2003_4l[PCS1982_4l %in% c(2211)] <- "221b"
data$PCS2003_4l[PCS1982_4l %in% c(2212)] <- "222a"
data$PCS2003_4l[PCS1982_4l %in% c(2213)] <- "222b"
data$PCS2003_4l[PCS1982_4l %in% c(2214)] <- "223a"
data$PCS2003_4l[PCS1982_4l %in% c(2215)] <- "223d"
data$PCS2003_4l[PCS1982_4l %in% c(2216)] <- "223b"
data$PCS2003_4l[PCS1982_4l %in% c(2217)] <- "223e"
data$PCS2003_4l[PCS1982_4l %in% c(2218)] <- "223g"
data$PCS2003_4l[PCS1982_4l %in% c(2219)] <- "223h"
data$PCS2003_4l[PCS1982_4l %in% c(2221)] <- "224a"
data$PCS2003_4l[PCS1982_4l %in% c(2222)] <- "224b"
data$PCS2003_4l[PCS1982_4l %in% c(2223)] <- "224b"
data$PCS2003_4l[PCS1982_4l %in% c(2224)] <- "224c"
data$PCS2003_4l[PCS1982_4l %in% c(2231)] <- "221a"
data$PCS2003_4l[PCS1982_4l %in% c(2232)] <- "221b"
data$PCS2003_4l[PCS1982_4l %in% c(2233)] <- "222a"
data$PCS2003_4l[PCS1982_4l %in% c(2234)] <- "223a"
data$PCS2003_4l[PCS1982_4l %in% c(2235)] <- "225a"
data$PCS2003_4l[PCS1982_4l %in% c(2236)] <- "224d"
data$PCS2003_4l[PCS1982_4l %in% c(2241)] <- "226c"
data$PCS2003_4l[PCS1982_4l %in% c(2242)] <- "226a"
data$PCS2003_4l[PCS1982_4l %in% c(2243)] <- "226b"
data$PCS2003_4l[PCS1982_4l %in% c(2244)] <- "227a"
data$PCS2003_4l[PCS1982_4l %in% c(2245)] <- "227c"
data$PCS2003_4l[PCS1982_4l %in% c(2246)] <- "227b"
data$PCS2003_4l[PCS1982_4l %in% c(2247)] <- "227d"
data$PCS2003_4l[PCS1982_4l %in% c(2300)] <- "233b"
data$PCS2003_4l[PCS1982_4l %in% c(2310)] <- "231a"
data$PCS2003_4l[PCS1982_4l %in% c(2320)] <- "232a"
data$PCS2003_4l[PCS1982_4l %in% c(2331)] <- "233a"
data$PCS2003_4l[PCS1982_4l %in% c(2332)] <- "233b"
data$PCS2003_4l[PCS1982_4l %in% c(2333)] <- "233c"
data$PCS2003_4l[PCS1982_4l %in% c(2334)] <- "233d"
data$PCS2003_4l[PCS1982_4l %in% c(3111)] <- "311a"
data$PCS2003_4l[PCS1982_4l %in% c(3112)] <- "311b"
data$PCS2003_4l[PCS1982_4l %in% c(3113)] <- "311c"
data$PCS2003_4l[PCS1982_4l %in% c(3114)] <- "311d"
data$PCS2003_4l[PCS1982_4l %in% c(3115)] <- "311e"
data$PCS2003_4l[PCS1982_4l %in% c(3116)] <- "311f"
data$PCS2003_4l[PCS1982_4l %in% c(3121)] <- "312a"
data$PCS2003_4l[PCS1982_4l %in% c(3122)] <- "312b"
data$PCS2003_4l[PCS1982_4l %in% c(3123)] <- "312d"
data$PCS2003_4l[PCS1982_4l %in% c(3124)] <- "312c"
data$PCS2003_4l[PCS1982_4l %in% c(3125)] <- "312d"
data$PCS2003_4l[PCS1982_4l %in% c(3126)] <- "312e"
data$PCS2003_4l[PCS1982_4l %in% c(3127)] <- "312f"
data$PCS2003_4l[PCS1982_4l %in% c(3128)] <- "312g"
data$PCS2003_4l[PCS1982_4l %in% c(3130)] <- "313a"
data$PCS2003_4l[PCS1982_4l %in% c(3311)] <- "331a"
data$PCS2003_4l[PCS1982_4l %in% c(3312)] <- "332a"
data$PCS2003_4l[PCS1982_4l %in% c(3313)] <- "333a"
data$PCS2003_4l[PCS1982_4l %in% c(3314)] <- "333b"
data$PCS2003_4l[PCS1982_4l %in% c(3315)] <- "333c"
data$PCS2003_4l[PCS1982_4l %in% c(3316)] <- "333f"
data$PCS2003_4l[PCS1982_4l %in% c(3317)] <- "333e"
data$PCS2003_4l[PCS1982_4l %in% c(3318)] <- "335a"
data$PCS2003_4l[PCS1982_4l %in% c(3321)] <- "334a"
data$PCS2003_4l[PCS1982_4l %in% c(3411)] <- "341a"
data$PCS2003_4l[PCS1982_4l %in% c(3412)] <- "341a"
data$PCS2003_4l[PCS1982_4l %in% c(3413)] <- "341a"
data$PCS2003_4l[PCS1982_4l %in% c(3414)] <- "341b"
data$PCS2003_4l[PCS1982_4l %in% c(3415)] <- "342a"
data$PCS2003_4l[PCS1982_4l %in% c(3416)] <- "342b"
data$PCS2003_4l[PCS1982_4l %in% c(3417)] <- "342d"
data$PCS2003_4l[PCS1982_4l %in% c(3418)] <- "342d"
data$PCS2003_4l[PCS1982_4l %in% c(3421)] <- "342e"
data$PCS2003_4l[PCS1982_4l %in% c(3422)] <- "342f"
data$PCS2003_4l[PCS1982_4l %in% c(3423)] <- "342g"
data$PCS2003_4l[PCS1982_4l %in% c(3431)] <- "344a"
data$PCS2003_4l[PCS1982_4l %in% c(3432)] <- "344b"
data$PCS2003_4l[PCS1982_4l %in% c(3433)] <- "343a"
data$PCS2003_4l[PCS1982_4l %in% c(3434)] <- "344c"
data$PCS2003_4l[PCS1982_4l %in% c(3435)] <- "344d"
data$PCS2003_4l[PCS1982_4l %in% c(3511)] <- "352a"
data$PCS2003_4l[PCS1982_4l %in% c(3512)] <- "352b"
data$PCS2003_4l[PCS1982_4l %in% c(3513)] <- "351a"
data$PCS2003_4l[PCS1982_4l %in% c(3521)] <- "353b"
data$PCS2003_4l[PCS1982_4l %in% c(3522)] <- "353c"
data$PCS2003_4l[PCS1982_4l %in% c(3523)] <- "353c"
data$PCS2003_4l[PCS1982_4l %in% c(3531)] <- "354a"
data$PCS2003_4l[PCS1982_4l %in% c(3532)] <- "354b"
data$PCS2003_4l[PCS1982_4l %in% c(3533)] <- "354c"
data$PCS2003_4l[PCS1982_4l %in% c(3534)] <- "354g"
data$PCS2003_4l[PCS1982_4l %in% c(3535)] <- "354d"
data$PCS2003_4l[PCS1982_4l %in% c(3710)] <- "371a"
data$PCS2003_4l[PCS1982_4l %in% c(3721)] <- "372a"
data$PCS2003_4l[PCS1982_4l %in% c(3722)] <- "372c"
data$PCS2003_4l[PCS1982_4l %in% c(3723)] <- "372b"
data$PCS2003_4l[PCS1982_4l %in% c(3724)] <- "373a"
data$PCS2003_4l[PCS1982_4l %in% c(3725)] <- "372c"
data$PCS2003_4l[PCS1982_4l %in% c(3726)] <- "373b"
data$PCS2003_4l[PCS1982_4l %in% c(3727)] <- "373d"
data$PCS2003_4l[PCS1982_4l %in% c(3728)] <- "372f"
data$PCS2003_4l[PCS1982_4l %in% c(3731)] <- "374a"
data$PCS2003_4l[PCS1982_4l %in% c(3732)] <- "374b"
data$PCS2003_4l[PCS1982_4l %in% c(3733)] <- "374c"
data$PCS2003_4l[PCS1982_4l %in% c(3734)] <- "374d"
data$PCS2003_4l[PCS1982_4l %in% c(3735)] <- "375a"
data$PCS2003_4l[PCS1982_4l %in% c(3741)] <- "376c"
data$PCS2003_4l[PCS1982_4l %in% c(3742)] <- "376c"
data$PCS2003_4l[PCS1982_4l %in% c(3743)] <- "376a"
data$PCS2003_4l[PCS1982_4l %in% c(3744)] <- "376e"
data$PCS2003_4l[PCS1982_4l %in% c(3751)] <- "377a"
data$PCS2003_4l[PCS1982_4l %in% c(3810)] <- "380a"
data$PCS2003_4l[PCS1982_4l %in% c(3820)] <- "381a"
data$PCS2003_4l[PCS1982_4l %in% c(3821)] <- "383a"
data$PCS2003_4l[PCS1982_4l %in% c(3822)] <- "384a"
data$PCS2003_4l[PCS1982_4l %in% c(3823)] <- "382a"
data$PCS2003_4l[PCS1982_4l %in% c(3824)] <- "382b"
data$PCS2003_4l[PCS1982_4l %in% c(3825)] <- "385a"
data$PCS2003_4l[PCS1982_4l %in% c(3826)] <- "387d"
data$PCS2003_4l[PCS1982_4l %in% c(3827)] <- "386c"
data$PCS2003_4l[PCS1982_4l %in% c(3828)] <- "388a"
data$PCS2003_4l[PCS1982_4l %in% c(3829)] <- "386a"
data$PCS2003_4l[PCS1982_4l %in% c(3831)] <- "383b"
data$PCS2003_4l[PCS1982_4l %in% c(3832)] <- "384b"
data$PCS2003_4l[PCS1982_4l %in% c(3833)] <- "382c"
data$PCS2003_4l[PCS1982_4l %in% c(3835)] <- "385b"
data$PCS2003_4l[PCS1982_4l %in% c(3836)] <- "385b"
data$PCS2003_4l[PCS1982_4l %in% c(3837)] <- "386a"
data$PCS2003_4l[PCS1982_4l %in% c(3838)] <- "386e"
data$PCS2003_4l[PCS1982_4l %in% c(3839)] <- "386d"
data$PCS2003_4l[PCS1982_4l %in% c(3841)] <- "387e"
data$PCS2003_4l[PCS1982_4l %in% c(3842)] <- "387a"
data$PCS2003_4l[PCS1982_4l %in% c(3843)] <- "387b"
data$PCS2003_4l[PCS1982_4l %in% c(3851)] <- "383c"
data$PCS2003_4l[PCS1982_4l %in% c(3852)] <- "384c"
data$PCS2003_4l[PCS1982_4l %in% c(3853)] <- "382d"
data$PCS2003_4l[PCS1982_4l %in% c(3854)] <- "385c"
data$PCS2003_4l[PCS1982_4l %in% c(3855)] <- "388d"
data$PCS2003_4l[PCS1982_4l %in% c(3861)] <- "387b"
data$PCS2003_4l[PCS1982_4l %in% c(3862)] <- "389b"
data$PCS2003_4l[PCS1982_4l %in% c(3863)] <- "389c"
data$PCS2003_4l[PCS1982_4l %in% c(4211)] <- "421b"
data$PCS2003_4l[PCS1982_4l %in% c(4212)] <- "421b"
data$PCS2003_4l[PCS1982_4l %in% c(4213)] <- "421b"
data$PCS2003_4l[PCS1982_4l %in% c(4214)] <- "421b"
data$PCS2003_4l[PCS1982_4l %in% c(4215)] <- "421b"
data$PCS2003_4l[PCS1982_4l %in% c(4221)] <- "422a"
data$PCS2003_4l[PCS1982_4l %in% c(4222)] <- "422a"
data$PCS2003_4l[PCS1982_4l %in% c(4223)] <- "422c"
data$PCS2003_4l[PCS1982_4l %in% c(4224)] <- "422b"
data$PCS2003_4l[PCS1982_4l %in% c(4225)] <- "422b"
data$PCS2003_4l[PCS1982_4l %in% c(4226)] <- "422b"
data$PCS2003_4l[PCS1982_4l %in% c(4227)] <- "422e"
data$PCS2003_4l[PCS1982_4l %in% c(4231)] <- "425a"
data$PCS2003_4l[PCS1982_4l %in% c(4232)] <- "423b"
data$PCS2003_4l[PCS1982_4l %in% c(4233)] <- "424a"
data$PCS2003_4l[PCS1982_4l %in% c(4311)] <- "431a"
data$PCS2003_4l[PCS1982_4l %in% c(4312)] <- "431b"
data$PCS2003_4l[PCS1982_4l %in% c(4313)] <- "431c"
data$PCS2003_4l[PCS1982_4l %in% c(4314)] <- "431d"
data$PCS2003_4l[PCS1982_4l %in% c(4315)] <- "431f"
data$PCS2003_4l[PCS1982_4l %in% c(4316)] <- "431g"
data$PCS2003_4l[PCS1982_4l %in% c(4321)] <- "431e"
data$PCS2003_4l[PCS1982_4l %in% c(4322)] <- "432d"
data$PCS2003_4l[PCS1982_4l %in% c(4323)] <- "432a"
data$PCS2003_4l[PCS1982_4l %in% c(4324)] <- "433a"
data$PCS2003_4l[PCS1982_4l %in% c(4325)] <- "433b"
data$PCS2003_4l[PCS1982_4l %in% c(4326)] <- "433b"
data$PCS2003_4l[PCS1982_4l %in% c(4327)] <- "433d"
data$PCS2003_4l[PCS1982_4l %in% c(4331)] <- "434b"
data$PCS2003_4l[PCS1982_4l %in% c(4332)] <- "434d"
data$PCS2003_4l[PCS1982_4l %in% c(4333)] <- "435b"
data$PCS2003_4l[PCS1982_4l %in% c(4334)] <- "434c"
data$PCS2003_4l[PCS1982_4l %in% c(4411)] <- "441a"
data$PCS2003_4l[PCS1982_4l %in% c(4412)] <- "441b"
data$PCS2003_4l[PCS1982_4l %in% c(4511)] <- "451a"
data$PCS2003_4l[PCS1982_4l %in% c(4512)] <- "451c"
data$PCS2003_4l[PCS1982_4l %in% c(4513)] <- "451f"
data$PCS2003_4l[PCS1982_4l %in% c(4514)] <- "451e"
data$PCS2003_4l[PCS1982_4l %in% c(4521)] <- "452a"
data$PCS2003_4l[PCS1982_4l %in% c(4522)] <- "452b"
data$PCS2003_4l[PCS1982_4l %in% c(4611)] <- "461d"
data$PCS2003_4l[PCS1982_4l %in% c(4612)] <- "461f"
data$PCS2003_4l[PCS1982_4l %in% c(4613)] <- "461e"
data$PCS2003_4l[PCS1982_4l %in% c(4614)] <- "461f"
data$PCS2003_4l[PCS1982_4l %in% c(4615)] <- "461a"
data$PCS2003_4l[PCS1982_4l %in% c(4621)] <- "462a"
data$PCS2003_4l[PCS1982_4l %in% c(4622)] <- "462b"
data$PCS2003_4l[PCS1982_4l %in% c(4623)] <- "462d"
data$PCS2003_4l[PCS1982_4l %in% c(4624)] <- "463b"
data$PCS2003_4l[PCS1982_4l %in% c(4625)] <- "463c"
data$PCS2003_4l[PCS1982_4l %in% c(4626)] <- "463d"
data$PCS2003_4l[PCS1982_4l %in% c(4627)] <- "463e"
data$PCS2003_4l[PCS1982_4l %in% c(4628)] <- "462c"
data$PCS2003_4l[PCS1982_4l %in% c(4629)] <- "462e"
data$PCS2003_4l[PCS1982_4l %in% c(4631)] <- "464a"
data$PCS2003_4l[PCS1982_4l %in% c(4632)] <- "464b"
data$PCS2003_4l[PCS1982_4l %in% c(4633)] <- "465b"
data$PCS2003_4l[PCS1982_4l %in% c(4634)] <- "465a"
data$PCS2003_4l[PCS1982_4l %in% c(4635)] <- "465a"
data$PCS2003_4l[PCS1982_4l %in% c(4636)] <- "465c"
data$PCS2003_4l[PCS1982_4l %in% c(4637)] <- "465c"
data$PCS2003_4l[PCS1982_4l %in% c(4641)] <- "466a"
data$PCS2003_4l[PCS1982_4l %in% c(4642)] <- "466c"
data$PCS2003_4l[PCS1982_4l %in% c(4651)] <- "467a"
data$PCS2003_4l[PCS1982_4l %in% c(4652)] <- "467a"
data$PCS2003_4l[PCS1982_4l %in% c(4653)] <- "467b"
data$PCS2003_4l[PCS1982_4l %in% c(4654)] <- "467d"
data$PCS2003_4l[PCS1982_4l %in% c(4655)] <- "467c"
data$PCS2003_4l[PCS1982_4l %in% c(4656)] <- "467c"
data$PCS2003_4l[PCS1982_4l %in% c(4661)] <- "468a"
data$PCS2003_4l[PCS1982_4l %in% c(4662)] <- "468b"
data$PCS2003_4l[PCS1982_4l %in% c(4701)] <- "471a"
data$PCS2003_4l[PCS1982_4l %in% c(4702)] <- "471b"
data$PCS2003_4l[PCS1982_4l %in% c(4711)] <- "473a"
data$PCS2003_4l[PCS1982_4l %in% c(4712)] <- "473a"
data$PCS2003_4l[PCS1982_4l %in% c(4713)] <- "473b"
data$PCS2003_4l[PCS1982_4l %in% c(4714)] <- "473b"
data$PCS2003_4l[PCS1982_4l %in% c(4715)] <- "473b"
data$PCS2003_4l[PCS1982_4l %in% c(4716)] <- "473c"
data$PCS2003_4l[PCS1982_4l %in% c(4717)] <- "477c"
data$PCS2003_4l[PCS1982_4l %in% c(4718)] <- "478d"
data$PCS2003_4l[PCS1982_4l %in% c(4721)] <- "474a"
data$PCS2003_4l[PCS1982_4l %in% c(4722)] <- "474a"
data$PCS2003_4l[PCS1982_4l %in% c(4723)] <- "474c"
data$PCS2003_4l[PCS1982_4l %in% c(4731)] <- "472a"
data$PCS2003_4l[PCS1982_4l %in% c(4732)] <- "472a"
data$PCS2003_4l[PCS1982_4l %in% c(4733)] <- "472b"
data$PCS2003_4l[PCS1982_4l %in% c(4734)] <- "472d"
data$PCS2003_4l[PCS1982_4l %in% c(4735)] <- "472c"
data$PCS2003_4l[PCS1982_4l %in% c(4751)] <- "475b"
data$PCS2003_4l[PCS1982_4l %in% c(4761)] <- "475b"
data$PCS2003_4l[PCS1982_4l %in% c(4771)] <- "476a"
data$PCS2003_4l[PCS1982_4l %in% c(4772)] <- "476b"
data$PCS2003_4l[PCS1982_4l %in% c(4781)] <- "474c"
data$PCS2003_4l[PCS1982_4l %in% c(4782)] <- "477a"
data$PCS2003_4l[PCS1982_4l %in% c(4791)] <- "478a"
data$PCS2003_4l[PCS1982_4l %in% c(4792)] <- "478a"
data$PCS2003_4l[PCS1982_4l %in% c(4793)] <- "479a"
data$PCS2003_4l[PCS1982_4l %in% c(4794)] <- "479b"
data$PCS2003_4l[PCS1982_4l %in% c(4795)] <- "479b"
data$PCS2003_4l[PCS1982_4l %in% c(4801)] <- "480a"
data$PCS2003_4l[PCS1982_4l %in% c(4802)] <- "480b"
data$PCS2003_4l[PCS1982_4l %in% c(4811)] <- "482a"
data$PCS2003_4l[PCS1982_4l %in% c(4812)] <- "482a"
data$PCS2003_4l[PCS1982_4l %in% c(4821)] <- "483a"
data$PCS2003_4l[PCS1982_4l %in% c(4822)] <- "483a"
data$PCS2003_4l[PCS1982_4l %in% c(4831)] <- "481a"
data$PCS2003_4l[PCS1982_4l %in% c(4832)] <- "481b"
data$PCS2003_4l[PCS1982_4l %in% c(4851)] <- "484a"
data$PCS2003_4l[PCS1982_4l %in% c(4852)] <- "484a"
data$PCS2003_4l[PCS1982_4l %in% c(4861)] <- "484b"
data$PCS2003_4l[PCS1982_4l %in% c(4862)] <- "484b"
data$PCS2003_4l[PCS1982_4l %in% c(4871)] <- "485a"
data$PCS2003_4l[PCS1982_4l %in% c(4873)] <- "485b"
data$PCS2003_4l[PCS1982_4l %in% c(4874)] <- "485b"
data$PCS2003_4l[PCS1982_4l %in% c(4881)] <- "486a"
data$PCS2003_4l[PCS1982_4l %in% c(4882)] <- "486a"
data$PCS2003_4l[PCS1982_4l %in% c(4883)] <- "486d"
data$PCS2003_4l[PCS1982_4l %in% c(4884)] <- "486e"
data$PCS2003_4l[PCS1982_4l %in% c(4891)] <- "487a"
data$PCS2003_4l[PCS1982_4l %in% c(4892)] <- "487b"
data$PCS2003_4l[PCS1982_4l %in% c(4893)] <- "488a"
data$PCS2003_4l[PCS1982_4l %in% c(5211)] <- "521b"
data$PCS2003_4l[PCS1982_4l %in% c(5212)] <- "521a"
data$PCS2003_4l[PCS1982_4l %in% c(5213)] <- "522a"
data$PCS2003_4l[PCS1982_4l %in% c(5214)] <- "523a"
data$PCS2003_4l[PCS1982_4l %in% c(5215)] <- "524a"
data$PCS2003_4l[PCS1982_4l %in% c(5216)] <- "525a"
data$PCS2003_4l[PCS1982_4l %in% c(5217)] <- "525c"
data$PCS2003_4l[PCS1982_4l %in% c(5221)] <- "526a"
data$PCS2003_4l[PCS1982_4l %in% c(5222)] <- "525d"
data$PCS2003_4l[PCS1982_4l %in% c(5223)] <- "526e"
data$PCS2003_4l[PCS1982_4l %in% c(5311)] <- "531a"
data$PCS2003_4l[PCS1982_4l %in% c(5312)] <- "532a"
data$PCS2003_4l[PCS1982_4l %in% c(5313)] <- "532b"
data$PCS2003_4l[PCS1982_4l %in% c(5314)] <- "532c"
data$PCS2003_4l[PCS1982_4l %in% c(5315)] <- "533a"
data$PCS2003_4l[PCS1982_4l %in% c(5316)] <- "533b"
data$PCS2003_4l[PCS1982_4l %in% c(5317)] <- "534a"
data$PCS2003_4l[PCS1982_4l %in% c(5411)] <- "542a"
data$PCS2003_4l[PCS1982_4l %in% c(5412)] <- "533b"
data$PCS2003_4l[PCS1982_4l %in% c(5413)] <- "542b"
data$PCS2003_4l[PCS1982_4l %in% c(5414)] <- "542b"
data$PCS2003_4l[PCS1982_4l %in% c(5415)] <- "544a"
data$PCS2003_4l[PCS1982_4l %in% c(5416)] <- "544a"
data$PCS2003_4l[PCS1982_4l %in% c(5417)] <- "541d"
data$PCS2003_4l[PCS1982_4l %in% c(5421)] <- "543a"
data$PCS2003_4l[PCS1982_4l %in% c(5422)] <- "543b"
data$PCS2003_4l[PCS1982_4l %in% c(5423)] <- "543c"
data$PCS2003_4l[PCS1982_4l %in% c(5424)] <- "543d"
data$PCS2003_4l[PCS1982_4l %in% c(5425)] <- "543e"
data$PCS2003_4l[PCS1982_4l %in% c(5426)] <- "543g"
data$PCS2003_4l[PCS1982_4l %in% c(5427)] <- "543h"
data$PCS2003_4l[PCS1982_4l %in% c(5428)] <- "543d"
data$PCS2003_4l[PCS1982_4l %in% c(5431)] <- "545a"
data$PCS2003_4l[PCS1982_4l %in% c(5432)] <- "545b"
data$PCS2003_4l[PCS1982_4l %in% c(5433)] <- "545a"
data$PCS2003_4l[PCS1982_4l %in% c(5434)] <- "545d"
data$PCS2003_4l[PCS1982_4l %in% c(5441)] <- "546a"
data$PCS2003_4l[PCS1982_4l %in% c(5442)] <- "546b"
data$PCS2003_4l[PCS1982_4l %in% c(5443)] <- "546c"
data$PCS2003_4l[PCS1982_4l %in% c(5444)] <- "541a"
data$PCS2003_4l[PCS1982_4l %in% c(5445)] <- "546d"
data$PCS2003_4l[PCS1982_4l %in% c(5499)] <- "691f"
data$PCS2003_4l[PCS1982_4l %in% c(5510)] <- "553b"
data$PCS2003_4l[PCS1982_4l %in% c(5511)] <- "556a"
data$PCS2003_4l[PCS1982_4l %in% c(5512)] <- "554a"
data$PCS2003_4l[PCS1982_4l %in% c(5513)] <- "554b"
data$PCS2003_4l[PCS1982_4l %in% c(5514)] <- "554e"
data$PCS2003_4l[PCS1982_4l %in% c(5515)] <- "554c"
data$PCS2003_4l[PCS1982_4l %in% c(5516)] <- "554f"
data$PCS2003_4l[PCS1982_4l %in% c(5517)] <- "554g"
data$PCS2003_4l[PCS1982_4l %in% c(5518)] <- "553a"
data$PCS2003_4l[PCS1982_4l %in% c(5519)] <- "552a"
data$PCS2003_4l[PCS1982_4l %in% c(5521)] <- "554j"
data$PCS2003_4l[PCS1982_4l %in% c(5611)] <- "561a"
data$PCS2003_4l[PCS1982_4l %in% c(5612)] <- "561b"
data$PCS2003_4l[PCS1982_4l %in% c(5613)] <- "561d"
data$PCS2003_4l[PCS1982_4l %in% c(5614)] <- "561f"
data$PCS2003_4l[PCS1982_4l %in% c(5615)] <- "561f"
data$PCS2003_4l[PCS1982_4l %in% c(5616)] <- "561f"
data$PCS2003_4l[PCS1982_4l %in% c(5621)] <- "562a"
data$PCS2003_4l[PCS1982_4l %in% c(5622)] <- "562b"
data$PCS2003_4l[PCS1982_4l %in% c(5631)] <- "563a"
data$PCS2003_4l[PCS1982_4l %in% c(5632)] <- "563c"
data$PCS2003_4l[PCS1982_4l %in% c(5633)] <- "564a"
data$PCS2003_4l[PCS1982_4l %in% c(5634)] <- "564b"
data$PCS2003_4l[PCS1982_4l %in% c(6201)] <- "628a"
data$PCS2003_4l[PCS1982_4l %in% c(6202)] <- "628b"
data$PCS2003_4l[PCS1982_4l %in% c(6203)] <- "628c"
data$PCS2003_4l[PCS1982_4l %in% c(6204)] <- "628d"
data$PCS2003_4l[PCS1982_4l %in% c(6211)] <- "622b"
data$PCS2003_4l[PCS1982_4l %in% c(6212)] <- "622f"
data$PCS2003_4l[PCS1982_4l %in% c(6213)] <- "622f"
data$PCS2003_4l[PCS1982_4l %in% c(6214)] <- "622b"
data$PCS2003_4l[PCS1982_4l %in% c(6215)] <- "622c"
data$PCS2003_4l[PCS1982_4l %in% c(6216)] <- "622d"
data$PCS2003_4l[PCS1982_4l %in% c(6217)] <- "622e"
data$PCS2003_4l[PCS1982_4l %in% c(6218)] <- "622g"
data$PCS2003_4l[PCS1982_4l %in% c(6220)] <- "623a"
data$PCS2003_4l[PCS1982_4l %in% c(6221)] <- "623a"
data$PCS2003_4l[PCS1982_4l %in% c(6222)] <- "623b"
data$PCS2003_4l[PCS1982_4l %in% c(6223)] <- "623c"
data$PCS2003_4l[PCS1982_4l %in% c(6224)] <- "623e"
data$PCS2003_4l[PCS1982_4l %in% c(6225)] <- "623d"
data$PCS2003_4l[PCS1982_4l %in% c(6226)] <- "632a"
data$PCS2003_4l[PCS1982_4l %in% c(6227)] <- "623g"
data$PCS2003_4l[PCS1982_4l %in% c(6228)] <- "623f"
data$PCS2003_4l[PCS1982_4l %in% c(6229)] <- "623g"
data$PCS2003_4l[PCS1982_4l %in% c(6231)] <- "624a"
data$PCS2003_4l[PCS1982_4l %in% c(6232)] <- "624b"
data$PCS2003_4l[PCS1982_4l %in% c(6233)] <- "624c"
data$PCS2003_4l[PCS1982_4l %in% c(6234)] <- "624d"
data$PCS2003_4l[PCS1982_4l %in% c(6235)] <- "623a"
data$PCS2003_4l[PCS1982_4l %in% c(6236)] <- "624e"
data$PCS2003_4l[PCS1982_4l %in% c(6237)] <- "624f"
data$PCS2003_4l[PCS1982_4l %in% c(6238)] <- "624g"
data$PCS2003_4l[PCS1982_4l %in% c(6241)] <- "621a"
data$PCS2003_4l[PCS1982_4l %in% c(6242)] <- "621b"
data$PCS2003_4l[PCS1982_4l %in% c(6243)] <- "621c"
data$PCS2003_4l[PCS1982_4l %in% c(6244)] <- "621e"
data$PCS2003_4l[PCS1982_4l %in% c(6245)] <- "621g"
data$PCS2003_4l[PCS1982_4l %in% c(6246)] <- "621g"
data$PCS2003_4l[PCS1982_4l %in% c(6251)] <- "625c"
data$PCS2003_4l[PCS1982_4l %in% c(6252)] <- "625c"
data$PCS2003_4l[PCS1982_4l %in% c(6253)] <- "625c"
data$PCS2003_4l[PCS1982_4l %in% c(6254)] <- "625b"
data$PCS2003_4l[PCS1982_4l %in% c(6255)] <- "625e"
data$PCS2003_4l[PCS1982_4l %in% c(6256)] <- "625a"
data$PCS2003_4l[PCS1982_4l %in% c(6257)] <- "625f"
data$PCS2003_4l[PCS1982_4l %in% c(6258)] <- "625d"
data$PCS2003_4l[PCS1982_4l %in% c(6261)] <- "626b"
data$PCS2003_4l[PCS1982_4l %in% c(6262)] <- "626a"
data$PCS2003_4l[PCS1982_4l %in% c(6263)] <- "626b"
data$PCS2003_4l[PCS1982_4l %in% c(6264)] <- "626c"
data$PCS2003_4l[PCS1982_4l %in% c(6265)] <- "626c"
data$PCS2003_4l[PCS1982_4l %in% c(6271)] <- "627a"
data$PCS2003_4l[PCS1982_4l %in% c(6272)] <- "627b"
data$PCS2003_4l[PCS1982_4l %in% c(6273)] <- "627b"
data$PCS2003_4l[PCS1982_4l %in% c(6274)] <- "627c"
data$PCS2003_4l[PCS1982_4l %in% c(6281)] <- "627e"
data$PCS2003_4l[PCS1982_4l %in% c(6282)] <- "627f"
data$PCS2003_4l[PCS1982_4l %in% c(6283)] <- "627f"
data$PCS2003_4l[PCS1982_4l %in% c(6284)] <- "627f"
data$PCS2003_4l[PCS1982_4l %in% c(6291)] <- "627d"
data$PCS2003_4l[PCS1982_4l %in% c(6292)] <- "627d"
data$PCS2003_4l[PCS1982_4l %in% c(6293)] <- "625h"
data$PCS2003_4l[PCS1982_4l %in% c(6294)] <- "628f"
data$PCS2003_4l[PCS1982_4l %in% c(6299)] <- "628g"
data$PCS2003_4l[PCS1982_4l %in% c(6301)] <- "631a"
data$PCS2003_4l[PCS1982_4l %in% c(6311)] <- "633a"
data$PCS2003_4l[PCS1982_4l %in% c(6312)] <- "633b"
data$PCS2003_4l[PCS1982_4l %in% c(6313)] <- "633d"
data$PCS2003_4l[PCS1982_4l %in% c(6321)] <- "634a"
data$PCS2003_4l[PCS1982_4l %in% c(6322)] <- "634b"
data$PCS2003_4l[PCS1982_4l %in% c(6323)] <- "634c"
data$PCS2003_4l[PCS1982_4l %in% c(6324)] <- "634d"
data$PCS2003_4l[PCS1982_4l %in% c(6331)] <- "632c"
data$PCS2003_4l[PCS1982_4l %in% c(6332)] <- "632d"
data$PCS2003_4l[PCS1982_4l %in% c(6341)] <- "632a"
data$PCS2003_4l[PCS1982_4l %in% c(6342)] <- "632b"
data$PCS2003_4l[PCS1982_4l %in% c(6343)] <- "632e"
data$PCS2003_4l[PCS1982_4l %in% c(6344)] <- "632f"
data$PCS2003_4l[PCS1982_4l %in% c(6345)] <- "632g"
data$PCS2003_4l[PCS1982_4l %in% c(6346)] <- "632j"
data$PCS2003_4l[PCS1982_4l %in% c(6347)] <- "632k"
data$PCS2003_4l[PCS1982_4l %in% c(6351)] <- "636a"
data$PCS2003_4l[PCS1982_4l %in% c(6352)] <- "636b"
data$PCS2003_4l[PCS1982_4l %in% c(6353)] <- "636c"
data$PCS2003_4l[PCS1982_4l %in% c(6354)] <- "636d"
data$PCS2003_4l[PCS1982_4l %in% c(6371)] <- "635a"
data$PCS2003_4l[PCS1982_4l %in% c(6372)] <- "635a"
data$PCS2003_4l[PCS1982_4l %in% c(6373)] <- "635a"
data$PCS2003_4l[PCS1982_4l %in% c(6391)] <- "637a"
data$PCS2003_4l[PCS1982_4l %in% c(6392)] <- "637b"
data$PCS2003_4l[PCS1982_4l %in% c(6393)] <- "637c"
data$PCS2003_4l[PCS1982_4l %in% c(6394)] <- "637a"
data$PCS2003_4l[PCS1982_4l %in% c(6399)] <- "637d"
data$PCS2003_4l[PCS1982_4l %in% c(6411)] <- "641a"
data$PCS2003_4l[PCS1982_4l %in% c(6412)] <- "641b"
data$PCS2003_4l[PCS1982_4l %in% c(6413)] <- "642a"
data$PCS2003_4l[PCS1982_4l %in% c(6414)] <- "642b"
data$PCS2003_4l[PCS1982_4l %in% c(6415)] <- "643a"
data$PCS2003_4l[PCS1982_4l %in% c(6511)] <- "651a"
data$PCS2003_4l[PCS1982_4l %in% c(6512)] <- "651b"
data$PCS2003_4l[PCS1982_4l %in% c(6513)] <- "652b"
data$PCS2003_4l[PCS1982_4l %in% c(6514)] <- "652a"
data$PCS2003_4l[PCS1982_4l %in% c(6515)] <- "653a"
data$PCS2003_4l[PCS1982_4l %in% c(6521)] <- "655a"
data$PCS2003_4l[PCS1982_4l %in% c(6522)] <- "654a"
data$PCS2003_4l[PCS1982_4l %in% c(6531)] <- "656a"
data$PCS2003_4l[PCS1982_4l %in% c(6532)] <- "656a"
data$PCS2003_4l[PCS1982_4l %in% c(6711)] <- "672a"
data$PCS2003_4l[PCS1982_4l %in% c(6721)] <- "673a"
data$PCS2003_4l[PCS1982_4l %in% c(6722)] <- "673b"
data$PCS2003_4l[PCS1982_4l %in% c(6723)] <- "673c"
data$PCS2003_4l[PCS1982_4l %in% c(6741)] <- "671b"
data$PCS2003_4l[PCS1982_4l %in% c(6742)] <- "671b"
data$PCS2003_4l[PCS1982_4l %in% c(6751)] <- "674a"
data$PCS2003_4l[PCS1982_4l %in% c(6752)] <- "674a"
data$PCS2003_4l[PCS1982_4l %in% c(6753)] <- "674a"
data$PCS2003_4l[PCS1982_4l %in% c(6754)] <- "674c"
data$PCS2003_4l[PCS1982_4l %in% c(6755)] <- "674c"
data$PCS2003_4l[PCS1982_4l %in% c(6756)] <- "674c"
data$PCS2003_4l[PCS1982_4l %in% c(6761)] <- "674d"
data$PCS2003_4l[PCS1982_4l %in% c(6762)] <- "674d"
data$PCS2003_4l[PCS1982_4l %in% c(6763)] <- "674d"
data$PCS2003_4l[PCS1982_4l %in% c(6764)] <- "674e"
data$PCS2003_4l[PCS1982_4l %in% c(6771)] <- "675a"
data$PCS2003_4l[PCS1982_4l %in% c(6772)] <- "675a"
data$PCS2003_4l[PCS1982_4l %in% c(6773)] <- "675a"
data$PCS2003_4l[PCS1982_4l %in% c(6791)] <- "675b"
data$PCS2003_4l[PCS1982_4l %in% c(6792)] <- "676a"
data$PCS2003_4l[PCS1982_4l %in% c(6793)] <- "676c"
data$PCS2003_4l[PCS1982_4l %in% c(6799)] <- "676e"
data$PCS2003_4l[PCS1982_4l %in% c(6821)] <- "682a"
data$PCS2003_4l[PCS1982_4l %in% c(6841)] <- "681a"
data$PCS2003_4l[PCS1982_4l %in% c(6842)] <- "681b"
data$PCS2003_4l[PCS1982_4l %in% c(6851)] <- "683a"
data$PCS2003_4l[PCS1982_4l %in% c(6891)] <- "684a"
data$PCS2003_4l[PCS1982_4l %in% c(6899)] <- "685a"
data$PCS2003_4l[PCS1982_4l %in% c(6911)] <- "691a"
data$PCS2003_4l[PCS1982_4l %in% c(6912)] <- "691b"
data$PCS2003_4l[PCS1982_4l %in% c(6913)] <- "691c"
data$PCS2003_4l[PCS1982_4l %in% c(6914)] <- "691d"
data$PCS2003_4l[PCS1982_4l %in% c(6915)] <- "691e"
data$PCS2003_4l[PCS1982_4l %in% c(6916)] <- "691f"
data$PCS2003_4l[PCS1982_4l %in% c(6921)] <- "692a"
#grouping in 3 levels
data$PCS2003_3l[data$PCS2003_4l %in% c("111a","111b","111c","111d","111e","111f")] <- 11
data$PCS2003_3l[data$PCS2003_4l %in% c("121a","121b","121c","121d","121e","121f","122a","122b","122c")] <- 12
data$PCS2003_3l[data$PCS2003_4l %in% c("131a","131b","131c","131d","131e","131f")] <- 13
data$PCS2003_3l[data$PCS2003_4l %in% c("211a","211b","211d","211e","211f","211g","211j", "212a","212c","213a","213a", "214a","214b","214c","214e","214f","215a","215b","215c","215d", "216a","216b","216c","217a","217c","217d","217e","218a","219a")] <- 21
data$PCS2003_3l[data$PCS2003_4l %in% c("221a","221b","222a","222b","223a","223b","223d","223e","223g","223h",
"224a","224b","224c","224d","225a","226a","226b","226c","227a","227b","227c","227d")] <- 22
data$PCS2003_3l[data$PCS2003_4l %in% c("231a","232a","233a","233b","233c","233d")] <- 23
data$PCS2003_3l[data$PCS2003_4l %in% c("311a","311b","311c","311d","311e","311f","312a","312b","312c", "312d","312e","312f","312g","313a")] <- 31
data$PCS2003_3l[data$PCS2003_4l %in% c("331a","332a","333a","333b","333c","333e","333f","334a","335a")] <- 33
data$PCS2003_3l[data$PCS2003_4l %in% c("341a","341b","342a","342b","342d","342e","342f","342g", "343a","344a","344b","344c","344d")] <- 34
data$PCS2003_3l[data$PCS2003_4l %in% c("351a","352a","352b","353b","353c","354a","354b","354c","354d","354g")] <- 35
data$PCS2003_3l[data$PCS2003_4l %in% c("371a","372a","372b","372c","372f","373a","373b", "373d","374a","374b","374c", "374d","375a","376a","376c","376e","377a")] <- 37
data$PCS2003_3l[data$PCS2003_4l %in% c("380a","381a","382a","382b","382c","382d","383a","383b","383c", "384a","384b","384c","385a","385b","385c","386a","386c","386d","386e","387a","387b","387d","387e","388a","388d","389b","389c")] <- 38
data$PCS2003_3l[data$PCS2003_4l %in% c("421b","422a","422b","422c","422e","423b","424a","425a")] <- 42
data$PCS2003_3l[data$PCS2003_4l %in% c("431a","431b","431c","431d","431f","431e","431g",
"432a","432d","433a","433b","433d","434b","434c","434d","435b")] <- 43
data$PCS2003_3l[data$PCS2003_4l %in% c("441a","441b")] <- 44
data$PCS2003_3l[data$PCS2003_4l %in% c("451a","451c","451f","451e","452a","452b",
"461a","461d","461e","461f","462a","462b","462c","462d","462e","463b","463c","463d","463e","464a","464b",
"465a","465b","465c","466a","466c","467a","467b","467c","467d","468a","468b")] <- 45
data$PCS2003_3l[data$PCS2003_4l %in% c("471a","471b","472a","472b","472c","472d","473a", "473b","473c","474a","474c","475b","476a","476b","477a","477c","478a","478d","479a","479b")] <- 46
data$PCS2003_3l[data$PCS2003_4l %in% c("480a","480b","481a","481b","482a","483a","484a","484b","485a","485b", "486a","486d","486e","487a","487b","488a")] <- 48
data$PCS2003_3l[data$PCS2003_4l %in% c("521a","521b","522a","523a","524a","525a","525c", "525d","526a","526e")] <- 52
data$PCS2003_3l[data$PCS2003_4l %in% c("531a","532a","532b","532c","533a","533b","534a")] <- 53
data$PCS2003_3l[data$PCS2003_4l %in% c("541a","541d","542a","542b","543a","543b","543c", "543d","543e","543g","543h","544a","545a","545b","545d","546a","546b","546c","546d")] <- 54
data$PCS2003_3l[data$PCS2003_4l %in% c("552a","553a","553b","554a","554b","554c","554e","554f", "554g","554j","556a")] <- 55
data$PCS2003_3l[data$PCS2003_4l %in% c("561a","561b","561d","561f","562a","562b","563a","563c","564a", "564b")] <- 56
data$PCS2003_3l[data$PCS2003_4l %in% c("621a","621b","621c","621e","621g","622b","622c","622d","622e","622f","622g","623a","623b", "623c","623d","623e","623f","623g","624a","624b","624c","624d","624e","624f","624g","625a","625b","625c", "625d","625e","625f","625h","626a","626b","626c","627a","627b","627c","627d","627e","627f","628a", "628b","628c","628d","628f","628g")] <- 62
data$PCS2003_3l[data$PCS2003_4l %in% c("631a","632a","632b","632c","632d","632e","632f","632g","632j", "632k","633a","633b","633d","634a","634b","634c","634d","635a","636a","636b","636c","636d","637a", "637b","637c","637d")] <- 63
data$PCS2003_3l[data$PCS2003_4l %in% c("641a","641b","642a","642b","643a")] <- 64
data$PCS2003_3l[data$PCS2003_4l %in% c("651a","651b","652a","652b","653a","654a","655a","656a")] <- 65
data$PCS2003_3l[data$PCS2003_4l %in% c("671b","672a","673a","673b","673c","674a","674c","674d", "674e","675a","675b","676a","676c","676e")] <- 67
data$PCS2003_3l[data$PCS2003_4l %in% c("681a","681b","682a","683a","684a","685a")] <- 68
data$PCS2003_3l[data$PCS2003_4l %in% c("691a","691b","691c","691d","691e","691f","692a")] <- 69
#grouping in 2 levels
data$PCS2003_2l[data$PCS2003_3l %in% c(11,12,13)] <- 10
data$PCS2003_2l[data$PCS2003_3l %in% c(21)] <- 21
data$PCS2003_2l[data$PCS2003_3l %in% c(22)] <- 22
data$PCS2003_2l[data$PCS2003_3l %in% c(23)] <- 23
data$PCS2003_2l[data$PCS2003_3l %in% c(31)] <- 31
data$PCS2003_2l[data$PCS2003_3l %in% c(33,34,35)] <- 32
data$PCS2003_2l[data$PCS2003_3l %in% c(37,38)] <- 36
data$PCS2003_2l[data$PCS2003_3l %in% c(42,43,44,45)] <- 41
data$PCS2003_2l[data$PCS2003_3l %in% c(46)] <- 46
data$PCS2003_2l[data$PCS2003_3l %in% c(47)] <- 47
data$PCS2003_2l[data$PCS2003_3l %in% c(48)] <- 48
data$PCS2003_2l[data$PCS2003_3l %in% c(52,53)] <- 51
data$PCS2003_2l[data$PCS2003_3l %in% c(54)] <- 54
data$PCS2003_2l[data$PCS2003_3l %in% c(55)] <- 55
data$PCS2003_2l[data$PCS2003_3l %in% c(56)] <- 56
data$PCS2003_2l[data$PCS2003_3l %in% c(62,63,64,65)] <- 61
data$PCS2003_2l[data$PCS2003_3l %in% c(67,68)] <- 66
data$PCS2003_2l[data$PCS2003_3l %in% c(69)] <- 69
#grouping in 1 levels
data$PCS2003_1l[data$PCS2003_2l %in% c(10)] <- 1
data$PCS2003_1l[data$PCS2003_2l %in% c(21,22,23)] <- 2
data$PCS2003_1l[data$PCS2003_2l %in% c(31,32,36)] <- 3
data$PCS2003_1l[data$PCS2003_2l %in% c(41,46,47,48)] <- 4
data$PCS2003_1l[data$PCS2003_2l %in% c(51,54,55,56)] <- 5
data$PCS2003_1l[data$PCS2003_2l %in% c(61,66,69)] <- 6
return(data)
}
Try the SocialPosition package in your browser
Any scripts or data that you put into this service are public.
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.