R/collapse_PCS2003_4l.R

In SocialPosition: Social Position Indicators Construction Toolbox

collapse_PCS2003_4l <-
function(PCS2003_4l, data){
#collapsing in 3 levels
data$PCS2003_3l[PCS2003_4l %in% c("111a")] <-11
data$PCS2003_3l[PCS2003_4l %in% c("111b")] <-11
data$PCS2003_3l[PCS2003_4l %in% c("111c")] <-11
data$PCS2003_3l[PCS2003_4l %in% c("111d")] <-11
data$PCS2003_3l[PCS2003_4l %in% c("111e")] <-11
data$PCS2003_3l[PCS2003_4l %in% c("111f")] <-11
data$PCS2003_3l[PCS2003_4l %in% c("121a")] <-12
data$PCS2003_3l[PCS2003_4l %in% c("121b")] <-12
data$PCS2003_3l[PCS2003_4l %in% c("121c")] <-12
data$PCS2003_3l[PCS2003_4l %in% c("121d")] <-12
data$PCS2003_3l[PCS2003_4l %in% c("121e")] <-12
data$PCS2003_3l[PCS2003_4l %in% c("121f")] <-12
data$PCS2003_3l[PCS2003_4l %in% c("122a")] <-12
data$PCS2003_3l[PCS2003_4l %in% c("122b")] <-12
data$PCS2003_3l[PCS2003_4l %in% c("122c")] <-12
data$PCS2003_3l[PCS2003_4l %in% c("131a")] <-13
data$PCS2003_3l[PCS2003_4l %in% c("131b")] <-13
data$PCS2003_3l[PCS2003_4l %in% c("131c")] <-13
data$PCS2003_3l[PCS2003_4l %in% c("131d")] <-13
data$PCS2003_3l[PCS2003_4l %in% c("131e")] <-13
data$PCS2003_3l[PCS2003_4l %in% c("131f")] <-13
data$PCS2003_3l[PCS2003_4l %in% c("211a")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("211b")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("211c")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("211d")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("211e")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("211f")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("211g")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("211h")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("211i")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("211j")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("212a")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("212b")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("212c")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("212d")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("213a")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("214a")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("214b")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("214c")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("214d")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("214e")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("214f")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("215a")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("215b")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("215c")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("215d")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("216a")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("216b")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("216c")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("217a")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("217b")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("217c")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("217d")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("217e")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("218a")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("219a")] <-21
data$PCS2003_3l[PCS2003_4l %in% c("221a")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("221b")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("222a")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("222b")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("223a")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("223b")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("223c")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("223d")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("223e")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("223f")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("223g")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("223h")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("224a")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("224b")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("224c")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("224d")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("225a")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("226a")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("226b")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("226c")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("227a")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("227b")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("227c")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("227d")] <-22
data$PCS2003_3l[PCS2003_4l %in% c("231a")] <-23
data$PCS2003_3l[PCS2003_4l %in% c("232a")] <-23
data$PCS2003_3l[PCS2003_4l %in% c("233a")] <-23
data$PCS2003_3l[PCS2003_4l %in% c("233b")] <-23
data$PCS2003_3l[PCS2003_4l %in% c("233c")] <-23
data$PCS2003_3l[PCS2003_4l %in% c("233d")] <-23
data$PCS2003_3l[PCS2003_4l %in% c("311a")] <-31
data$PCS2003_3l[PCS2003_4l %in% c("311b")] <-31
data$PCS2003_3l[PCS2003_4l %in% c("311c")] <-31
data$PCS2003_3l[PCS2003_4l %in% c("311d")] <-31
data$PCS2003_3l[PCS2003_4l %in% c("311e")] <-31
data$PCS2003_3l[PCS2003_4l %in% c("311f")] <-31
data$PCS2003_3l[PCS2003_4l %in% c("312a")] <-31
data$PCS2003_3l[PCS2003_4l %in% c("312b")] <-31
data$PCS2003_3l[PCS2003_4l %in% c("312c")] <-31
data$PCS2003_3l[PCS2003_4l %in% c("312d")] <-31
data$PCS2003_3l[PCS2003_4l %in% c("312e")] <-31
data$PCS2003_3l[PCS2003_4l %in% c("312f")] <-31
data$PCS2003_3l[PCS2003_4l %in% c("312g")] <-31
data$PCS2003_3l[PCS2003_4l %in% c("313a")] <-31
data$PCS2003_3l[PCS2003_4l %in% c("331a")] <-33
data$PCS2003_3l[PCS2003_4l %in% c("332a")] <-33
data$PCS2003_3l[PCS2003_4l %in% c("332b")] <-33
data$PCS2003_3l[PCS2003_4l %in% c("333a")] <-33
data$PCS2003_3l[PCS2003_4l %in% c("333b")] <-33
data$PCS2003_3l[PCS2003_4l %in% c("333c")] <-33
data$PCS2003_3l[PCS2003_4l %in% c("333d")] <-33
data$PCS2003_3l[PCS2003_4l %in% c("333e")] <-33
data$PCS2003_3l[PCS2003_4l %in% c("333f")] <-33
data$PCS2003_3l[PCS2003_4l %in% c("334a")] <-33
data$PCS2003_3l[PCS2003_4l %in% c("335a")] <-33
data$PCS2003_3l[PCS2003_4l %in% c("341a")] <-34
data$PCS2003_3l[PCS2003_4l %in% c("341b")] <-34
data$PCS2003_3l[PCS2003_4l %in% c("342a")] <-34
data$PCS2003_3l[PCS2003_4l %in% c("342b")] <-34
data$PCS2003_3l[PCS2003_4l %in% c("342c")] <-34
data$PCS2003_3l[PCS2003_4l %in% c("342d")] <-34
data$PCS2003_3l[PCS2003_4l %in% c("342e")] <-34
data$PCS2003_3l[PCS2003_4l %in% c("342f")] <-34
data$PCS2003_3l[PCS2003_4l %in% c("342g")] <-34
data$PCS2003_3l[PCS2003_4l %in% c("342h")] <-34
data$PCS2003_3l[PCS2003_4l %in% c("343a")] <-34
data$PCS2003_3l[PCS2003_4l %in% c("344a")] <-34
data$PCS2003_3l[PCS2003_4l %in% c("344b")] <-34
data$PCS2003_3l[PCS2003_4l %in% c("344c")] <-34
data$PCS2003_3l[PCS2003_4l %in% c("344d")] <-34
data$PCS2003_3l[PCS2003_4l %in% c("351a")] <-35
data$PCS2003_3l[PCS2003_4l %in% c("352a")] <-35
data$PCS2003_3l[PCS2003_4l %in% c("352b")] <-35
data$PCS2003_3l[PCS2003_4l %in% c("353a")] <-35
data$PCS2003_3l[PCS2003_4l %in% c("353b")] <-35
data$PCS2003_3l[PCS2003_4l %in% c("353c")] <-35
data$PCS2003_3l[PCS2003_4l %in% c("354a")] <-35
data$PCS2003_3l[PCS2003_4l %in% c("354b")] <-35
data$PCS2003_3l[PCS2003_4l %in% c("354c")] <-35
data$PCS2003_3l[PCS2003_4l %in% c("354d")] <-35
data$PCS2003_3l[PCS2003_4l %in% c("354e")] <-35
data$PCS2003_3l[PCS2003_4l %in% c("354f")] <-35
data$PCS2003_3l[PCS2003_4l %in% c("354g")] <-35
data$PCS2003_3l[PCS2003_4l %in% c("371a")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("372a")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("372b")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("372c")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("372d")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("372e")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("372f")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("373a")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("373b")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("373c")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("373d")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("374a")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("374b")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("374c")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("374d")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("375a")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("375b")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("376a")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("376b")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("376c")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("376d")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("376e")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("376f")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("376g")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("377a")] <-37
data$PCS2003_3l[PCS2003_4l %in% c("380a")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("381a")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("381b")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("381c")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("382a")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("382b")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("382c")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("382d")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("383a")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("383b")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("383c")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("384a")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("384b")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("384c")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("385a")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("385b")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("385c")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("386a")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("386b")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("386c")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("386d")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("386e")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("387a")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("387b")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("387c")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("387d")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("387e")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("387f")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("388a")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("388b")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("388c")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("388d")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("388e")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("389a")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("389b")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("389c")] <-38
data$PCS2003_3l[PCS2003_4l %in% c("421a")] <-42
data$PCS2003_3l[PCS2003_4l %in% c("421b")] <-42
data$PCS2003_3l[PCS2003_4l %in% c("422a")] <-42
data$PCS2003_3l[PCS2003_4l %in% c("422b")] <-42
data$PCS2003_3l[PCS2003_4l %in% c("422c")] <-42
data$PCS2003_3l[PCS2003_4l %in% c("422d")] <-42
data$PCS2003_3l[PCS2003_4l %in% c("422e")] <-42
data$PCS2003_3l[PCS2003_4l %in% c("423a")] <-42
data$PCS2003_3l[PCS2003_4l %in% c("423b")] <-42
data$PCS2003_3l[PCS2003_4l %in% c("424a")] <-42
data$PCS2003_3l[PCS2003_4l %in% c("425a")] <-42
data$PCS2003_3l[PCS2003_4l %in% c("431a")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("431b")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("431c")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("431d")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("431e")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("431f")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("431g")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("432a")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("432b")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("432c")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("432d")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("433a")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("433b")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("433c")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("433d")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("434a")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("434b")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("434c")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("434d")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("434e")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("434f")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("434g")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("435a")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("435b")] <-43
data$PCS2003_3l[PCS2003_4l %in% c("441a")] <-44
data$PCS2003_3l[PCS2003_4l %in% c("441b")] <-44
data$PCS2003_3l[PCS2003_4l %in% c("451a")] <-45
data$PCS2003_3l[PCS2003_4l %in% c("451b")] <-45
data$PCS2003_3l[PCS2003_4l %in% c("451c")] <-45
data$PCS2003_3l[PCS2003_4l %in% c("451d")] <-45
data$PCS2003_3l[PCS2003_4l %in% c("451e")] <-45
data$PCS2003_3l[PCS2003_4l %in% c("451f")] <-45
data$PCS2003_3l[PCS2003_4l %in% c("451g")] <-45
data$PCS2003_3l[PCS2003_4l %in% c("451h")] <-45
data$PCS2003_3l[PCS2003_4l %in% c("452a")] <-45
data$PCS2003_3l[PCS2003_4l %in% c("452b")] <-45
data$PCS2003_3l[PCS2003_4l %in% c("461a")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("461b")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("461c")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("461d")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("461e")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("461f")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("462a")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("462b")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("462c")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("462d")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("462e")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("463a")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("463b")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("463c")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("463d")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("463e")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("464a")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("464b")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("465a")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("465b")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("465c")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("466a")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("466b")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("466c")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("467a")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("467b")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("467c")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("467d")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("468a")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("468b")] <-46
data$PCS2003_3l[PCS2003_4l %in% c("471a")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("471b")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("472a")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("472b")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("472c")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("472d")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("473a")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("473b")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("473c")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("474a")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("474b")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("474c")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("475a")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("475b")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("476a")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("476b")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("477a")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("477b")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("477c")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("477d")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("478a")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("478b")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("478c")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("478d")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("479a")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("479b")] <-47
data$PCS2003_3l[PCS2003_4l %in% c("480a")] <-48
data$PCS2003_3l[PCS2003_4l %in% c("480b")] <-48
data$PCS2003_3l[PCS2003_4l %in% c("481a")] <-48
data$PCS2003_3l[PCS2003_4l %in% c("481b")] <-48
data$PCS2003_3l[PCS2003_4l %in% c("482a")] <-48
data$PCS2003_3l[PCS2003_4l %in% c("483a")] <-48
data$PCS2003_3l[PCS2003_4l %in% c("484a")] <-48
data$PCS2003_3l[PCS2003_4l %in% c("484b")] <-48
data$PCS2003_3l[PCS2003_4l %in% c("485a")] <-48
data$PCS2003_3l[PCS2003_4l %in% c("485b")] <-48
data$PCS2003_3l[PCS2003_4l %in% c("486a")] <-48
data$PCS2003_3l[PCS2003_4l %in% c("486b")] <-48
data$PCS2003_3l[PCS2003_4l %in% c("486c")] <-48
data$PCS2003_3l[PCS2003_4l %in% c("486d")] <-48
data$PCS2003_3l[PCS2003_4l %in% c("486e")] <-48
data$PCS2003_3l[PCS2003_4l %in% c("487a")] <-48
data$PCS2003_3l[PCS2003_4l %in% c("487b")] <-48
data$PCS2003_3l[PCS2003_4l %in% c("488a")] <-48
data$PCS2003_3l[PCS2003_4l %in% c("488b")] <-48
data$PCS2003_3l[PCS2003_4l %in% c("521a")] <-52
data$PCS2003_3l[PCS2003_4l %in% c("521b")] <-52
data$PCS2003_3l[PCS2003_4l %in% c("522a")] <-52
data$PCS2003_3l[PCS2003_4l %in% c("523a")] <-52
data$PCS2003_3l[PCS2003_4l %in% c("523b")] <-52
data$PCS2003_3l[PCS2003_4l %in% c("523c")] <-52
data$PCS2003_3l[PCS2003_4l %in% c("523d")] <-52
data$PCS2003_3l[PCS2003_4l %in% c("524a")] <-52
data$PCS2003_3l[PCS2003_4l %in% c("524b")] <-52
data$PCS2003_3l[PCS2003_4l %in% c("524c")] <-52
data$PCS2003_3l[PCS2003_4l %in% c("524d")] <-52
data$PCS2003_3l[PCS2003_4l %in% c("525a")] <-52
data$PCS2003_3l[PCS2003_4l %in% c("525b")] <-52
data$PCS2003_3l[PCS2003_4l %in% c("525c")] <-52
data$PCS2003_3l[PCS2003_4l %in% c("525d")] <-52
data$PCS2003_3l[PCS2003_4l %in% c("526a")] <-52
data$PCS2003_3l[PCS2003_4l %in% c("526b")] <-52
data$PCS2003_3l[PCS2003_4l %in% c("526c")] <-52
data$PCS2003_3l[PCS2003_4l %in% c("526d")] <-52
data$PCS2003_3l[PCS2003_4l %in% c("526e")] <-52
data$PCS2003_3l[PCS2003_4l %in% c("531a")] <-53
data$PCS2003_3l[PCS2003_4l %in% c("531b")] <-53
data$PCS2003_3l[PCS2003_4l %in% c("531c")] <-53
data$PCS2003_3l[PCS2003_4l %in% c("532a")] <-53
data$PCS2003_3l[PCS2003_4l %in% c("532b")] <-53
data$PCS2003_3l[PCS2003_4l %in% c("532c")] <-53
data$PCS2003_3l[PCS2003_4l %in% c("533a")] <-53
data$PCS2003_3l[PCS2003_4l %in% c("533b")] <-53
data$PCS2003_3l[PCS2003_4l %in% c("533c")] <-53
data$PCS2003_3l[PCS2003_4l %in% c("534a")] <-53
data$PCS2003_3l[PCS2003_4l %in% c("534b")] <-53
data$PCS2003_3l[PCS2003_4l %in% c("541a")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("541b")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("541c")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("541d")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("542a")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("542b")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("543a")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("543b")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("543c")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("543d")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("543e")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("543f")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("543g")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("543h")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("544a")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("545a")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("545b")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("545c")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("545d")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("546a")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("546b")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("546c")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("546d")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("546e")] <-54
data$PCS2003_3l[PCS2003_4l %in% c("551a")] <-55
data$PCS2003_3l[PCS2003_4l %in% c("552a")] <-55
data$PCS2003_3l[PCS2003_4l %in% c("553a")] <-55
data$PCS2003_3l[PCS2003_4l %in% c("553b")] <-55
data$PCS2003_3l[PCS2003_4l %in% c("553c")] <-55
data$PCS2003_3l[PCS2003_4l %in% c("554a")] <-55
data$PCS2003_3l[PCS2003_4l %in% c("554b")] <-55
data$PCS2003_3l[PCS2003_4l %in% c("554c")] <-55
data$PCS2003_3l[PCS2003_4l %in% c("554d")] <-55
data$PCS2003_3l[PCS2003_4l %in% c("554e")] <-55
data$PCS2003_3l[PCS2003_4l %in% c("554f")] <-55
data$PCS2003_3l[PCS2003_4l %in% c("554g")] <-55
data$PCS2003_3l[PCS2003_4l %in% c("554h")] <-55
data$PCS2003_3l[PCS2003_4l %in% c("554j")] <-55
data$PCS2003_3l[PCS2003_4l %in% c("555a")] <-55
data$PCS2003_3l[PCS2003_4l %in% c("556a")] <-55
data$PCS2003_3l[PCS2003_4l %in% c("561a")] <-56
data$PCS2003_3l[PCS2003_4l %in% c("561b")] <-56
data$PCS2003_3l[PCS2003_4l %in% c("561c")] <-56
data$PCS2003_3l[PCS2003_4l %in% c("561d")] <-56
data$PCS2003_3l[PCS2003_4l %in% c("561e")] <-56
data$PCS2003_3l[PCS2003_4l %in% c("561f")] <-56
data$PCS2003_3l[PCS2003_4l %in% c("562a")] <-56
data$PCS2003_3l[PCS2003_4l %in% c("562b")] <-56
data$PCS2003_3l[PCS2003_4l %in% c("563a")] <-56
data$PCS2003_3l[PCS2003_4l %in% c("563b")] <-56
data$PCS2003_3l[PCS2003_4l %in% c("563c")] <-56
data$PCS2003_3l[PCS2003_4l %in% c("564a")] <-56
data$PCS2003_3l[PCS2003_4l %in% c("564b")] <-56
data$PCS2003_3l[PCS2003_4l %in% c("621a")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("621b")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("621c")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("621d")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("621e")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("621f")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("621g")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("622a")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("622b")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("622c")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("622d")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("622e")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("622f")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("622g")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("623a")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("623b")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("623c")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("623d")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("623e")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("623f")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("623g")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("624a")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("624b")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("624c")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("624d")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("624e")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("624f")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("624g")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("625a")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("625b")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("625c")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("625d")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("625e")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("625f")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("625g")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("625h")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("626a")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("626b")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("626c")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("627a")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("627b")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("627c")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("627d")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("627e")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("627f")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("628a")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("628b")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("628c")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("628d")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("628e")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("628f")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("628g")] <-62
data$PCS2003_3l[PCS2003_4l %in% c("631a")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("632a")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("632b")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("632c")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("632d")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("632e")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("632f")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("632g")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("632h")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("632j")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("632k")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("633a")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("633b")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("633c")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("633d")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("634a")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("634b")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("634c")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("634d")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("635a")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("636a")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("636b")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("636c")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("636d")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("637a")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("637b")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("637c")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("637d")] <-63
data$PCS2003_3l[PCS2003_4l %in% c("641a")] <-64
data$PCS2003_3l[PCS2003_4l %in% c("641b")] <-64
data$PCS2003_3l[PCS2003_4l %in% c("642a")] <-64
data$PCS2003_3l[PCS2003_4l %in% c("642b")] <-64
data$PCS2003_3l[PCS2003_4l %in% c("643a")] <-64
data$PCS2003_3l[PCS2003_4l %in% c("644a")] <-64
data$PCS2003_3l[PCS2003_4l %in% c("651a")] <-65
data$PCS2003_3l[PCS2003_4l %in% c("651b")] <-65
data$PCS2003_3l[PCS2003_4l %in% c("652a")] <-65
data$PCS2003_3l[PCS2003_4l %in% c("652b")] <-65
data$PCS2003_3l[PCS2003_4l %in% c("653a")] <-65
data$PCS2003_3l[PCS2003_4l %in% c("654a")] <-65
data$PCS2003_3l[PCS2003_4l %in% c("654b")] <-65
data$PCS2003_3l[PCS2003_4l %in% c("654c")] <-65
data$PCS2003_3l[PCS2003_4l %in% c("655a")] <-65
data$PCS2003_3l[PCS2003_4l %in% c("656a")] <-65
data$PCS2003_3l[PCS2003_4l %in% c("656b")] <-65
data$PCS2003_3l[PCS2003_4l %in% c("656c")] <-65
data$PCS2003_3l[PCS2003_4l %in% c("671a")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("671b")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("671c")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("671d")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("672a")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("673a")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("673b")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("673c")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("674a")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("674b")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("674c")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("674d")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("674e")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("675a")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("675b")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("675c")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("676a")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("676b")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("676c")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("676d")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("676e")] <-67
data$PCS2003_3l[PCS2003_4l %in% c("681a")] <-68
data$PCS2003_3l[PCS2003_4l %in% c("681b")] <-68
data$PCS2003_3l[PCS2003_4l %in% c("682a")] <-68
data$PCS2003_3l[PCS2003_4l %in% c("683a")] <-68
data$PCS2003_3l[PCS2003_4l %in% c("684a")] <-68
data$PCS2003_3l[PCS2003_4l %in% c("684b")] <-68
data$PCS2003_3l[PCS2003_4l %in% c("685a")] <-68
data$PCS2003_3l[PCS2003_4l %in% c("691a")] <-69
data$PCS2003_3l[PCS2003_4l %in% c("691b")] <-69
data$PCS2003_3l[PCS2003_4l %in% c("691c")] <-69
data$PCS2003_3l[PCS2003_4l %in% c("691d")] <-69
data$PCS2003_3l[PCS2003_4l %in% c("691e")] <-69
data$PCS2003_3l[PCS2003_4l %in% c("691f")] <-69
data$PCS2003_3l[PCS2003_4l %in% c("692a")] <-69
#collapsing 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
#collapsing 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)
}