rm(list=ls(all=t))
filename <- "Section_3" # !!!Update filename
functions_vers <- "functions_1.8.R" # !!!Update helper functions file
source (functions_vers)
Visually inspect variables in "dictionary.csv" and flag for risk, using the following flags:
# Direct PII: Respondent Names, Addresses, Identification Numbers, Phone Numbers
# Direct PII-team: Interviewer Names, other field team names
# Indirect PII-ordinal: Date of birth, Age, income, education, household composition.
# Indirect PII-categorical: Gender, education, ethnicity, nationality,
# occupation, employer, head of household, marital status
# GPS: Longitude, Latitude
# Small Location: Location (<100,000)
# Large Location (>100,000)
# Weight: weightVar
# Household ID: hhId,
# Open-ends: Review responses for any sensitive information, redact as necessary
# !!!No Direct PII
# !!!No Direct PII - team
# !!!No Small locations
# !!!No Indirect PII - Ordinal
# !!!Include relevant variables in list below (Indirect PII - Categorical, and Ordinal if not processed yet)
indirect_PII <- c("c_s3q4",
"c_s3q5",
"c_s3q6",
"c_s3q7")
capture_tables (indirect_PII)
# Recode those with very specific values.
break_activity <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 19, 21, 23, 26, 30, 31, 32, 35, 36, 37, 38, 39, 40, 42, 43, 46, 47, 48, 49, 50, 55, 56, 79, 99)
labels_activity <- c("Others"=1,
"Others"=2,
"Others"=3,
"Others"=4,
"Others"=5,
"Others"=6,
"Other Farming"=7,
"Livestock And Dairy Farmers"=8,
"Poultry Farmers"=9,
"Others"=10,
"Inland And Coastal Waters Fishermen"=11,
"Others"=12,
"Others"=13,
"Construction"=14,
"Domestic Work"=15,
"Others"=16,
"Others"=17,
"Others"=18,
"Others"=19,
"Others"=20,
"Others"=21,
"Others"=22,
"Consumer store operator"=23,
"Others"=24,
"Others"=25,
"Others"=26,
"Cleaners, Launderers And Related Workers"=27,
"Others"=28,
"Others"=29,
"Others"=30,
"Handicraft Workers In Wood, Textile, Leather, Chemicals And Related Workers"=31,
"Others"=32,
"Market Stall Vendors, Street Vendors And Related Workers"=33,
"Others"=34,
"Others"=35,
"Others"=36,
"Others"=37,
"Others"=38,
"Others"=39,
"Rice Farming"=40,
"Other: Specify"=41)
mydata <- ordinal_recode (variable="c_s3q4", break_points=break_activity, missing=999999, value_labels=labels_activity)
## [1] "Frequency table before encoding"
## c_s3q4. How would you describe the type of work where you spent the most time over the l
## Sugarcane Farming
## 8
## Banana Farming
## 7
## Coconut Farming
## 17
## Palm Farming
## 2
## Rubber Farming
## 1
## Tobacco Farming
## 3
## Other Farming
## 206
## Livestock And Dairy Farmers
## 90
## Poultry Farmers
## 116
## Aqua-Farm Cultivators
## 17
## Inland And Coastal Waters Fishermen
## 83
## Deep-Sea Fishermen
## 16
## Mining And Quarrying Including Gold Extraction
## 18
## Construction
## 31
## Domestic Work
## 122
## Street Work Including Scavenging And Begging
## 6
## Scavenging In Dumpsites
## 9
## Commercial Sexual Activity
## 1
## Artistic, Entertainment Associate Professionals (Entertainers)
## 1
## Brick making
## 1
## Grain mill workers
## 2
## Hairdresser/Barber
## 1
## Consumer store operator
## 80
## Blacksmiths, Tool-Makers And Related Trades Workers
## 1
## Cashiers, Tellers And Related Clerks
## 2
## Charcoal Makers And Related Workers
## 6
## Cleaners, Launderers And Related Workers
## 40
## Loggers
## 3
## Food Processing And Relatedtrades Workers
## 14
## Garbage Collectors And Related Laborers
## 16
## Handicraft Workers In Wood, Textile, Leather, Chemicals And Related Workers
## 73
## Hotel Housekeeping and Restaurant Services Workers
## 7
## Market Stall Vendors, Street Vendors And Related Workers
## 219
## Messengers, Porters, Doorkeepers And Related Workers
## 14
## Metal Molders, Welders, Sheet-Metal Workers, Structural-Metal Preparers And Related Trades Workers
## 3
## Motor Vehicle Drivers
## 3
## Painters And Related Trades Workers
## 2
## Textile, Garment And Related Trades Workers
## 2
## Wood Treaters, Cabinet Makers And Related Trades Workers
## 3
## Rice Farming
## 88
## Other: Specify
## 789
## <NA>
## 2183
## recoded
## [1,2) [2,3) [3,4) [4,5) [5,6) [6,7) [7,8) [8,9) [9,10) [10,11) [11,12) [12,13) [13,15) [15,16) [16,17)
## 1 8 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 2 0 7 0 0 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 17 0 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0
## 7 0 0 0 0 0 0 206 0 0 0 0 0 0 0 0
## 8 0 0 0 0 0 0 0 90 0 0 0 0 0 0 0
## 9 0 0 0 0 0 0 0 0 116 0 0 0 0 0 0
## 10 0 0 0 0 0 0 0 0 0 17 0 0 0 0 0
## 11 0 0 0 0 0 0 0 0 0 0 83 0 0 0 0
## 12 0 0 0 0 0 0 0 0 0 0 0 16 0 0 0
## 13 0 0 0 0 0 0 0 0 0 0 0 0 18 0 0
## 15 0 0 0 0 0 0 0 0 0 0 0 0 0 31 0
## 16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 122
## 17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 21 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 23 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 26 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 30 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 31 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 32 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## recoded
## [17,18) [18,19) [19,21) [21,23) [23,26) [26,30) [30,31) [31,32) [32,35) [35,36) [36,37) [37,38) [38,39)
## 1 0 0 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0 0 0
## 7 0 0 0 0 0 0 0 0 0 0 0 0 0
## 8 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9 0 0 0 0 0 0 0 0 0 0 0 0 0
## 10 0 0 0 0 0 0 0 0 0 0 0 0 0
## 11 0 0 0 0 0 0 0 0 0 0 0 0 0
## 12 0 0 0 0 0 0 0 0 0 0 0 0 0
## 13 0 0 0 0 0 0 0 0 0 0 0 0 0
## 15 0 0 0 0 0 0 0 0 0 0 0 0 0
## 16 0 0 0 0 0 0 0 0 0 0 0 0 0
## 17 6 0 0 0 0 0 0 0 0 0 0 0 0
## 18 0 9 0 0 0 0 0 0 0 0 0 0 0
## 19 0 0 1 0 0 0 0 0 0 0 0 0 0
## 21 0 0 0 1 0 0 0 0 0 0 0 0 0
## 23 0 0 0 0 1 0 0 0 0 0 0 0 0
## 26 0 0 0 0 0 2 0 0 0 0 0 0 0
## 30 0 0 0 0 0 0 1 0 0 0 0 0 0
## 31 0 0 0 0 0 0 0 80 0 0 0 0 0
## 32 0 0 0 0 0 0 0 0 1 0 0 0 0
## recoded
## [39,40) [40,42) [42,43) [43,46) [46,47) [47,48) [48,49) [49,50) [50,55) [55,56) [56,79) [79,99)
## 1 0 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0 0
## 7 0 0 0 0 0 0 0 0 0 0 0 0
## 8 0 0 0 0 0 0 0 0 0 0 0 0
## 9 0 0 0 0 0 0 0 0 0 0 0 0
## 10 0 0 0 0 0 0 0 0 0 0 0 0
## 11 0 0 0 0 0 0 0 0 0 0 0 0
## 12 0 0 0 0 0 0 0 0 0 0 0 0
## 13 0 0 0 0 0 0 0 0 0 0 0 0
## 15 0 0 0 0 0 0 0 0 0 0 0 0
## 16 0 0 0 0 0 0 0 0 0 0 0 0
## 17 0 0 0 0 0 0 0 0 0 0 0 0
## 18 0 0 0 0 0 0 0 0 0 0 0 0
## 19 0 0 0 0 0 0 0 0 0 0 0 0
## 21 0 0 0 0 0 0 0 0 0 0 0 0
## 23 0 0 0 0 0 0 0 0 0 0 0 0
## 26 0 0 0 0 0 0 0 0 0 0 0 0
## 30 0 0 0 0 0 0 0 0 0 0 0 0
## 31 0 0 0 0 0 0 0 0 0 0 0 0
## 32 0 0 0 0 0 0 0 0 0 0 0 0
## recoded
## [99,1e+06)
## 1 0
## 2 0
## 3 0
## 4 0
## 5 0
## 6 0
## 7 0
## 8 0
## 9 0
## 10 0
## 11 0
## 12 0
## 13 0
## 15 0
## 16 0
## 17 0
## 18 0
## 19 0
## 21 0
## 23 0
## 26 0
## 30 0
## 31 0
## 32 0
## [ reached getOption("max.print") -- omitted 17 rows ]
## [1] "Frequency table after encoding"
## c_s3q4. How would you describe the type of work where you spent the most time over the l
## Others
## 186
## Other Farming
## 206
## Livestock And Dairy Farmers
## 90
## Poultry Farmers
## 116
## Inland And Coastal Waters Fishermen
## 83
## Construction
## 31
## Domestic Work
## 122
## Consumer store operator
## 80
## Cleaners, Launderers And Related Workers
## 40
## Handicraft Workers In Wood, Textile, Leather, Chemicals And Related Workers
## 73
## Market Stall Vendors, Street Vendors And Related Workers
## 219
## Rice Farming
## 88
## Other: Specify
## 789
## <NA>
## 2183
## [1] "Inspect value labels and relabel as necessary"
## Others
## 1
## Others
## 2
## Others
## 3
## Others
## 4
## Others
## 5
## Others
## 6
## Other Farming
## 7
## Livestock And Dairy Farmers
## 8
## Poultry Farmers
## 9
## Others
## 10
## Inland And Coastal Waters Fishermen
## 11
## Others
## 12
## Others
## 13
## Construction
## 14
## Domestic Work
## 15
## Others
## 16
## Others
## 17
## Others
## 18
## Others
## 19
## Others
## 20
## Others
## 21
## Others
## 22
## Consumer store operator
## 23
## Others
## 24
## Others
## 25
## Others
## 26
## Cleaners, Launderers And Related Workers
## 27
## Others
## 28
## Others
## 29
## Others
## 30
## Handicraft Workers In Wood, Textile, Leather, Chemicals And Related Workers
## 31
## Others
## 32
## Market Stall Vendors, Street Vendors And Related Workers
## 33
## Others
## 34
## Others
## 35
## Others
## 36
## Others
## 37
## Others
## 38
## Others
## 39
## Rice Farming
## 40
## Other: Specify
## 41
break_activity <- c(1, 2, 3, 4, 6, 7, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 20, 21, 23, 26, 30, 31, 32, 35, 36, 37, 38, 39, 40, 42, 43, 45, 46, 47, 48, 49, 50, 52, 55, 56, 79, 99)
labels_activity <- c("Others"=1,
"Others"=2,
"Others"=3,
"Others"=4,
"Others"=5,
"Other Farming"=6,
"Livestock And Dairy Farmers"=7,
"Poultry Farmers"=8,
"Others"=9,
"Inland And Coastal Waters Fishermen"=10,
"Others"=11,
"Others"=12,
"Construction"=13,
"Domestic Work"=14,
"Others"=15,
"Others"=16,
"Others"=17,
"Others"=18,
"Others"=19,
"Others"=20,
"Others"=21,
"Consumer store operator"=22,
"Others"=23,
"Others"=24,
"Others"=25,
"Cleaners, Launderers And Related Workers"=26,
"Others"=27,
"Others"=28,
"Others"=29,
"Handicraft Workers In Wood, Textile, Leather, Chemicals And Related Workers"=30,
"Others"=31,
"Others"=32,
"Market Stall Vendors, Street Vendors And Related Workers"=33,
"Others"=34,
"Others"=35,
"Others"=36,
"Others"=37,
"Others"=38,
"Others"=39,
"Others"=40,
"Rice Farming"=41,
"Other: Specify"=42)
mydata <- ordinal_recode (variable="c_s3q5", break_points=break_activity, missing=999999, value_labels=labels_activity)
## [1] "Frequency table before encoding"
## c_s3q5. How would you describe the type of work where you spend the most time over the l
## Sugarcane Farming
## 12
## Banana Farming
## 7
## Coconut Farming
## 19
## Palm Farming
## 5
## Tobacco Farming
## 3
## Other Farming
## 254
## Livestock And Dairy Farmers
## 91
## Poultry Farmers
## 121
## Aqua-Farm Cultivators
## 17
## Inland And Coastal Waters Fishermen
## 85
## Deep-Sea Fishermen
## 21
## Mining And Quarrying Including Gold Extraction
## 20
## Construction
## 45
## Domestic Work
## 146
## Street Work Including Scavenging And Begging
## 9
## Scavenging In Dumpsites
## 7
## Sports Associate Professionals
## 3
## Artistic, Entertainment Associate Professionals (Entertainers)
## 1
## Brick making
## 1
## Grain mill workers
## 2
## Hairdresser/Barber
## 1
## Consumer store operator
## 88
## Blacksmiths, Tool-Makers And Related Trades Workers
## 1
## Cashiers, Tellers And Related Clerks
## 3
## Charcoal Makers And Related Workers
## 6
## Cleaners, Launderers And Related Workers
## 35
## Loggers
## 1
## Food Processing And Relatedtrades Workers
## 14
## Garbage Collectors And Related Laborers
## 11
## Handicraft Workers In Wood, Textile, Leather, Chemicals And Related Workers
## 68
## Hotel Housekeeping and Restaurant Services Workers
## 7
## Machinery Mechanics, Fitters And Related Trades Workers
## 1
## Market Stall Vendors, Street Vendors And Related Workers
## 248
## Messengers, Porters, Doorkeepers And Related Workers
## 13
## Metal Molders, Welders, Sheet-Metal Workers, Structural-Metal Preparers And Related Trades Workers
## 1
## Motor Vehicle Drivers
## 6
## Painters And Related Trades Workers
## 2
## Shoe Cleaning And Other Street Services Elementary Occupations
## 1
## Textile, Garment And Related Trades Workers
## 7
## Wood Treaters, Cabinet Makers And Related Trades Workers
## 1
## Rice Farming
## 110
## Other: Specify
## 773
## <NA>
## 2039
## recoded
## [1,2) [2,3) [3,4) [4,6) [6,7) [7,8) [8,9) [9,10) [10,11) [11,12) [12,13) [13,15) [15,16) [16,17) [17,18)
## 1 12 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 2 0 7 0 0 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 19 0 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0
## 7 0 0 0 0 0 254 0 0 0 0 0 0 0 0 0
## 8 0 0 0 0 0 0 91 0 0 0 0 0 0 0 0
## 9 0 0 0 0 0 0 0 121 0 0 0 0 0 0 0
## 10 0 0 0 0 0 0 0 0 17 0 0 0 0 0 0
## 11 0 0 0 0 0 0 0 0 0 85 0 0 0 0 0
## 12 0 0 0 0 0 0 0 0 0 0 21 0 0 0 0
## 13 0 0 0 0 0 0 0 0 0 0 0 20 0 0 0
## 15 0 0 0 0 0 0 0 0 0 0 0 0 45 0 0
## 16 0 0 0 0 0 0 0 0 0 0 0 0 0 146 0
## 17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 9
## 18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 21 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 23 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 26 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 30 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 31 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 32 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## recoded
## [18,20) [20,21) [21,23) [23,26) [26,30) [30,31) [31,32) [32,35) [35,36) [36,37) [37,38) [38,39) [39,40)
## 1 0 0 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0 0 0
## 7 0 0 0 0 0 0 0 0 0 0 0 0 0
## 8 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9 0 0 0 0 0 0 0 0 0 0 0 0 0
## 10 0 0 0 0 0 0 0 0 0 0 0 0 0
## 11 0 0 0 0 0 0 0 0 0 0 0 0 0
## 12 0 0 0 0 0 0 0 0 0 0 0 0 0
## 13 0 0 0 0 0 0 0 0 0 0 0 0 0
## 15 0 0 0 0 0 0 0 0 0 0 0 0 0
## 16 0 0 0 0 0 0 0 0 0 0 0 0 0
## 17 0 0 0 0 0 0 0 0 0 0 0 0 0
## 18 7 0 0 0 0 0 0 0 0 0 0 0 0
## 20 0 3 0 0 0 0 0 0 0 0 0 0 0
## 21 0 0 1 0 0 0 0 0 0 0 0 0 0
## 23 0 0 0 1 0 0 0 0 0 0 0 0 0
## 26 0 0 0 0 2 0 0 0 0 0 0 0 0
## 30 0 0 0 0 0 1 0 0 0 0 0 0 0
## 31 0 0 0 0 0 0 88 0 0 0 0 0 0
## 32 0 0 0 0 0 0 0 1 0 0 0 0 0
## recoded
## [40,42) [42,43) [43,45) [45,46) [46,47) [47,48) [48,49) [49,50) [50,52) [52,55) [55,56) [56,79) [79,99)
## 1 0 0 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0 0 0
## 7 0 0 0 0 0 0 0 0 0 0 0 0 0
## 8 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9 0 0 0 0 0 0 0 0 0 0 0 0 0
## 10 0 0 0 0 0 0 0 0 0 0 0 0 0
## 11 0 0 0 0 0 0 0 0 0 0 0 0 0
## 12 0 0 0 0 0 0 0 0 0 0 0 0 0
## 13 0 0 0 0 0 0 0 0 0 0 0 0 0
## 15 0 0 0 0 0 0 0 0 0 0 0 0 0
## 16 0 0 0 0 0 0 0 0 0 0 0 0 0
## 17 0 0 0 0 0 0 0 0 0 0 0 0 0
## 18 0 0 0 0 0 0 0 0 0 0 0 0 0
## 20 0 0 0 0 0 0 0 0 0 0 0 0 0
## 21 0 0 0 0 0 0 0 0 0 0 0 0 0
## 23 0 0 0 0 0 0 0 0 0 0 0 0 0
## 26 0 0 0 0 0 0 0 0 0 0 0 0 0
## 30 0 0 0 0 0 0 0 0 0 0 0 0 0
## 31 0 0 0 0 0 0 0 0 0 0 0 0 0
## 32 0 0 0 0 0 0 0 0 0 0 0 0 0
## recoded
## [99,1e+06)
## 1 0
## 2 0
## 3 0
## 4 0
## 6 0
## 7 0
## 8 0
## 9 0
## 10 0
## 11 0
## 12 0
## 13 0
## 15 0
## 16 0
## 17 0
## 18 0
## 20 0
## 21 0
## 23 0
## 26 0
## 30 0
## 31 0
## 32 0
## [ reached getOption("max.print") -- omitted 19 rows ]
## [1] "Frequency table after encoding"
## c_s3q5. How would you describe the type of work where you spend the most time over the l
## Others
## 203
## Other Farming
## 254
## Livestock And Dairy Farmers
## 91
## Poultry Farmers
## 121
## Inland And Coastal Waters Fishermen
## 85
## Construction
## 45
## Domestic Work
## 146
## Consumer store operator
## 88
## Cleaners, Launderers And Related Workers
## 35
## Handicraft Workers In Wood, Textile, Leather, Chemicals And Related Workers
## 68
## Market Stall Vendors, Street Vendors And Related Workers
## 248
## Rice Farming
## 110
## Other: Specify
## 773
## <NA>
## 2039
## [1] "Inspect value labels and relabel as necessary"
## Others
## 1
## Others
## 2
## Others
## 3
## Others
## 4
## Others
## 5
## Other Farming
## 6
## Livestock And Dairy Farmers
## 7
## Poultry Farmers
## 8
## Others
## 9
## Inland And Coastal Waters Fishermen
## 10
## Others
## 11
## Others
## 12
## Construction
## 13
## Domestic Work
## 14
## Others
## 15
## Others
## 16
## Others
## 17
## Others
## 18
## Others
## 19
## Others
## 20
## Others
## 21
## Consumer store operator
## 22
## Others
## 23
## Others
## 24
## Others
## 25
## Cleaners, Launderers And Related Workers
## 26
## Others
## 27
## Others
## 28
## Others
## 29
## Handicraft Workers In Wood, Textile, Leather, Chemicals And Related Workers
## 30
## Others
## 31
## Others
## 32
## Market Stall Vendors, Street Vendors And Related Workers
## 33
## Others
## 34
## Others
## 35
## Others
## 36
## Others
## 37
## Others
## 38
## Others
## 39
## Others
## 40
## Rice Farming
## 41
## Other: Specify
## 42
break_activity <- c(1, 2, 3, 4, 7, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 20, 22, 23, 31, 35, 36, 37, 39, 40, 41, 42, 43, 45, 46, 47, 48, 50, 52, 56, 98, 99)
labels_activity <- c("Others "=1,
"Others "=2,
"Others "=3,
"Others "=4,
"Other Farming"=5,
"Livestock And Dairy Farmers"=6,
"Poultry Farmers"=7,
"Others "=8,
"Inland And Coastal Waters Fishermen"=9,
"Others "=10,
"Others "=11,
"Others "=12,
"Domestic Work"=13,
"Others "=14,
"Others "=15,
"Others "=16,
"Others "=17,
"Others "=18,
"Others "=19,
"Others "=20,
"Others "=21,
"Others "=22,
"Others "=23,
"Others "=24,
"Others "=25,
"Others "=26,
"Others "=27,
"Others "=28,
"Market Stall Vendors, Street Vendors And Related Workers"=29,
"Others "=30,
"Others "=31,
"Others "=32,
"Others "=33,
"Others "=34,
"Only 1 Type of Work "=35,
"Other: Specify"=36)
mydata <- ordinal_recode (variable="c_s3q6", break_points=break_activity, missing=999999, value_labels=labels_activity)
## [1] "Frequency table before encoding"
## c_s3q6. How would you describe the type of work where you spent the second most time ove
## Sugarcane Farming
## 4
## Banana Farming
## 2
## Coconut Farming
## 4
## Palm Farming
## 1
## Other Farming
## 121
## Livestock And Dairy Farmers
## 50
## Poultry Farmers
## 35
## Aqua-Farm Cultivators
## 3
## Inland And Coastal Waters Fishermen
## 39
## Deep-Sea Fishermen
## 5
## Mining And Quarrying Including Gold Extraction
## 4
## Construction
## 17
## Domestic Work
## 55
## Street Work Including Scavenging And Begging
## 4
## Scavenging In Dumpsites
## 2
## Sports Associate Professionals
## 1
## Plumbers
## 1
## Brick making
## 1
## Consumer store operator
## 14
## Cashiers, Tellers And Related Clerks
## 1
## Charcoal Makers And Related Workers
## 1
## Cleaners, Launderers And Related Workers
## 18
## Food Processing And Relatedtrades Workers
## 1
## Garbage Collectors And Related Laborers
## 4
## General Managers/Managing-Proprietors
## 2
## Handicraft Workers In Wood, Textile, Leather, Chemicals And Related Workers
## 7
## Hotel Housekeeping and Restaurant Services Workers
## 3
## Machinery Mechanics, Fitters And Related Trades Workers
## 1
## Market Stall Vendors, Street Vendors And Related Workers
## 44
## Messengers, Porters, Doorkeepers And Related Workers
## 5
## Metal Molders, Welders, Sheet-Metal Workers, Structural-Metal Preparers And Related Trades Workers
## 2
## Painters And Related Trades Workers
## 4
## Shoe Cleaning And Other Street Services Elementary Occupations
## 1
## Wood Treaters, Cabinet Makers And Related Trades Workers
## 1
## Only 1 Type of Work
## 1611
## Other: Specify
## 186
## <NA>
## 2051
## recoded
## [1,2) [2,3) [3,4) [4,7) [7,8) [8,9) [9,10) [10,11) [11,12) [12,13) [13,15) [15,16) [16,17) [17,18)
## 1 4 0 0 0 0 0 0 0 0 0 0 0 0 0
## 2 0 2 0 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 4 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 1 0 0 0 0 0 0 0 0 0 0
## 7 0 0 0 0 121 0 0 0 0 0 0 0 0 0
## 8 0 0 0 0 0 50 0 0 0 0 0 0 0 0
## 9 0 0 0 0 0 0 35 0 0 0 0 0 0 0
## 10 0 0 0 0 0 0 0 3 0 0 0 0 0 0
## 11 0 0 0 0 0 0 0 0 39 0 0 0 0 0
## 12 0 0 0 0 0 0 0 0 0 5 0 0 0 0
## 13 0 0 0 0 0 0 0 0 0 0 4 0 0 0
## 15 0 0 0 0 0 0 0 0 0 0 0 17 0 0
## 16 0 0 0 0 0 0 0 0 0 0 0 0 55 0
## 17 0 0 0 0 0 0 0 0 0 0 0 0 0 4
## 18 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 20 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 22 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 23 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 31 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 35 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 36 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 37 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 39 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 40 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 41 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 42 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 43 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## recoded
## [18,20) [20,22) [22,23) [23,31) [31,35) [35,36) [36,37) [37,39) [39,40) [40,41) [41,42) [42,43) [43,45)
## 1 0 0 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0 0 0
## 7 0 0 0 0 0 0 0 0 0 0 0 0 0
## 8 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9 0 0 0 0 0 0 0 0 0 0 0 0 0
## 10 0 0 0 0 0 0 0 0 0 0 0 0 0
## 11 0 0 0 0 0 0 0 0 0 0 0 0 0
## 12 0 0 0 0 0 0 0 0 0 0 0 0 0
## 13 0 0 0 0 0 0 0 0 0 0 0 0 0
## 15 0 0 0 0 0 0 0 0 0 0 0 0 0
## 16 0 0 0 0 0 0 0 0 0 0 0 0 0
## 17 0 0 0 0 0 0 0 0 0 0 0 0 0
## 18 2 0 0 0 0 0 0 0 0 0 0 0 0
## 20 0 1 0 0 0 0 0 0 0 0 0 0 0
## 22 0 0 1 0 0 0 0 0 0 0 0 0 0
## 23 0 0 0 1 0 0 0 0 0 0 0 0 0
## 31 0 0 0 0 14 0 0 0 0 0 0 0 0
## 35 0 0 0 0 0 1 0 0 0 0 0 0 0
## 36 0 0 0 0 0 0 1 0 0 0 0 0 0
## 37 0 0 0 0 0 0 0 18 0 0 0 0 0
## 39 0 0 0 0 0 0 0 0 1 0 0 0 0
## 40 0 0 0 0 0 0 0 0 0 4 0 0 0
## 41 0 0 0 0 0 0 0 0 0 0 2 0 0
## 42 0 0 0 0 0 0 0 0 0 0 0 7 0
## 43 0 0 0 0 0 0 0 0 0 0 0 0 3
## recoded
## [45,46) [46,47) [47,48) [48,50) [50,52) [52,56) [56,98) [98,99) [99,1e+06)
## 1 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0
## 7 0 0 0 0 0 0 0 0 0
## 8 0 0 0 0 0 0 0 0 0
## 9 0 0 0 0 0 0 0 0 0
## 10 0 0 0 0 0 0 0 0 0
## 11 0 0 0 0 0 0 0 0 0
## 12 0 0 0 0 0 0 0 0 0
## 13 0 0 0 0 0 0 0 0 0
## 15 0 0 0 0 0 0 0 0 0
## 16 0 0 0 0 0 0 0 0 0
## 17 0 0 0 0 0 0 0 0 0
## 18 0 0 0 0 0 0 0 0 0
## 20 0 0 0 0 0 0 0 0 0
## 22 0 0 0 0 0 0 0 0 0
## 23 0 0 0 0 0 0 0 0 0
## 31 0 0 0 0 0 0 0 0 0
## 35 0 0 0 0 0 0 0 0 0
## 36 0 0 0 0 0 0 0 0 0
## 37 0 0 0 0 0 0 0 0 0
## 39 0 0 0 0 0 0 0 0 0
## 40 0 0 0 0 0 0 0 0 0
## 41 0 0 0 0 0 0 0 0 0
## 42 0 0 0 0 0 0 0 0 0
## 43 0 0 0 0 0 0 0 0 0
## [ reached getOption("max.print") -- omitted 9 rows ]
## [1] "Frequency table after encoding"
## c_s3q6. How would you describe the type of work where you spent the second most time ove
## Others
## 114
## Other Farming
## 121
## Livestock And Dairy Farmers
## 50
## Poultry Farmers
## 35
## Inland And Coastal Waters Fishermen
## 39
## Domestic Work
## 55
## Market Stall Vendors, Street Vendors And Related Workers
## 44
## Only 1 Type of Work
## 1611
## Other: Specify
## 186
## <NA>
## 2051
## [1] "Inspect value labels and relabel as necessary"
## Others
## 1
## Others
## 2
## Others
## 3
## Others
## 4
## Other Farming
## 5
## Livestock And Dairy Farmers
## 6
## Poultry Farmers
## 7
## Others
## 8
## Inland And Coastal Waters Fishermen
## 9
## Others
## 10
## Others
## 11
## Others
## 12
## Domestic Work
## 13
## Others
## 14
## Others
## 15
## Others
## 16
## Others
## 17
## Others
## 18
## Others
## 19
## Others
## 20
## Others
## 21
## Others
## 22
## Others
## 23
## Others
## 24
## Others
## 25
## Others
## 26
## Others
## 27
## Others
## 28
## Market Stall Vendors, Street Vendors And Related Workers
## 29
## Others
## 30
## Others
## 31
## Others
## 32
## Others
## 33
## Others
## 34
## Only 1 Type of Work
## 35
## Other: Specify
## 36
break_activity <- c(1, 2, 3, 7, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 22, 23, 25, 31, 32, 35, 36, 37, 39, 40, 41, 42, 43, 46, 47, 48, 49, 50, 51, 56, 98, 99)
labels_activity <- c("Others"=1,
"Others"=2,
"Others"=3,
"Other Farming"=4,
"Livestock And Dairy Farmers"=5,
"Poultry Farmers"=6,
"Others"=7,
"Inland And Coastal Waters Fishermen"=8,
"Others"=9,
"Others"=10,
"Others"=11,
"Domestic Work"=12,
"Others"=13,
"Others"=14,
"Others"=15,
"Others"=16,
"Others"=17,
"Others"=18,
"Others"=19,
"Others"=20,
"Others"=21,
"Others"=22,
"Others"=23,
"Others"=24,
"Others"=25,
"Others"=26,
"Others"=27,
"Market Stall Vendors, Street Vendors And Related Workers"=28,
"Others"=29,
"Others"=30,
"Others"=31,
"Others"=32,
"Others"=33,
"Others"=34,
"Only 1 Type of Work "=35,
"Other: Specify"=36)
mydata <- ordinal_recode (variable="c_s3q7", break_points=break_activity, missing=999999, value_labels=labels_activity)
## [1] "Frequency table before encoding"
## c_s3q7. How would you describe the type of work where you spend the second most time ove
## Sugarcane Farming
## 4
## Banana Farming
## 3
## Coconut Farming
## 8
## Other Farming
## 125
## Livestock And Dairy Farmers
## 42
## Poultry Farmers
## 32
## Aqua-Farm Cultivators
## 6
## Inland And Coastal Waters Fishermen
## 37
## Deep-Sea Fishermen
## 11
## Mining And Quarrying Including Gold Extraction
## 3
## Construction
## 24
## Domestic Work
## 51
## Street Work Including Scavenging And Begging
## 6
## Scavenging In Dumpsites
## 6
## Plumbers
## 1
## Brick making
## 1
## Vulcanizing (rubber workers)
## 1
## Consumer store operator
## 15
## Blacksmiths, Tool-Makers And Related Trades Workers
## 1
## Cashiers, Tellers And Related Clerks
## 2
## Charcoal Makers And Related Workers
## 5
## Cleaners, Launderers And Related Workers
## 15
## Food Processing And Relatedtrades Workers
## 4
## Garbage Collectors And Related Laborers
## 5
## General Managers/Managing-Proprietors
## 1
## Handicraft Workers In Wood, Textile, Leather, Chemicals And Related Workers
## 10
## Hotel Housekeeping and Restaurant Services Workers
## 3
## Market Stall Vendors, Street Vendors And Related Workers
## 64
## Messengers, Porters, Doorkeepers And Related Workers
## 6
## Metal Molders, Welders, Sheet-Metal Workers, Structural-Metal Preparers And Related Trades Workers
## 2
## Motor Vehicle Drivers
## 1
## Painters And Related Trades Workers
## 5
## Printing Binding And Related Trades Workers
## 1
## Wood Treaters, Cabinet Makers And Related Trades Workers
## 1
## Only 1 Type of Work
## 1621
## Other: Specify
## 139
## <NA>
## 2044
## recoded
## [1,2) [2,3) [3,7) [7,8) [8,9) [9,10) [10,11) [11,12) [12,13) [13,15) [15,16) [16,17) [17,18) [18,22)
## 1 4 0 0 0 0 0 0 0 0 0 0 0 0 0
## 2 0 3 0 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 8 0 0 0 0 0 0 0 0 0 0 0
## 7 0 0 0 125 0 0 0 0 0 0 0 0 0 0
## 8 0 0 0 0 42 0 0 0 0 0 0 0 0 0
## 9 0 0 0 0 0 32 0 0 0 0 0 0 0 0
## 10 0 0 0 0 0 0 6 0 0 0 0 0 0 0
## 11 0 0 0 0 0 0 0 37 0 0 0 0 0 0
## 12 0 0 0 0 0 0 0 0 11 0 0 0 0 0
## 13 0 0 0 0 0 0 0 0 0 3 0 0 0 0
## 15 0 0 0 0 0 0 0 0 0 0 24 0 0 0
## 16 0 0 0 0 0 0 0 0 0 0 0 51 0 0
## 17 0 0 0 0 0 0 0 0 0 0 0 0 6 0
## 18 0 0 0 0 0 0 0 0 0 0 0 0 0 6
## 22 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 23 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 25 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 31 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 32 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 35 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 36 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 37 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 39 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 40 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 41 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 42 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## 43 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## recoded
## [22,23) [23,25) [25,31) [31,32) [32,35) [35,36) [36,37) [37,39) [39,40) [40,41) [41,42) [42,43) [43,46)
## 1 0 0 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0 0 0
## 7 0 0 0 0 0 0 0 0 0 0 0 0 0
## 8 0 0 0 0 0 0 0 0 0 0 0 0 0
## 9 0 0 0 0 0 0 0 0 0 0 0 0 0
## 10 0 0 0 0 0 0 0 0 0 0 0 0 0
## 11 0 0 0 0 0 0 0 0 0 0 0 0 0
## 12 0 0 0 0 0 0 0 0 0 0 0 0 0
## 13 0 0 0 0 0 0 0 0 0 0 0 0 0
## 15 0 0 0 0 0 0 0 0 0 0 0 0 0
## 16 0 0 0 0 0 0 0 0 0 0 0 0 0
## 17 0 0 0 0 0 0 0 0 0 0 0 0 0
## 18 0 0 0 0 0 0 0 0 0 0 0 0 0
## 22 1 0 0 0 0 0 0 0 0 0 0 0 0
## 23 0 1 0 0 0 0 0 0 0 0 0 0 0
## 25 0 0 1 0 0 0 0 0 0 0 0 0 0
## 31 0 0 0 15 0 0 0 0 0 0 0 0 0
## 32 0 0 0 0 1 0 0 0 0 0 0 0 0
## 35 0 0 0 0 0 2 0 0 0 0 0 0 0
## 36 0 0 0 0 0 0 5 0 0 0 0 0 0
## 37 0 0 0 0 0 0 0 15 0 0 0 0 0
## 39 0 0 0 0 0 0 0 0 4 0 0 0 0
## 40 0 0 0 0 0 0 0 0 0 5 0 0 0
## 41 0 0 0 0 0 0 0 0 0 0 1 0 0
## 42 0 0 0 0 0 0 0 0 0 0 0 10 0
## 43 0 0 0 0 0 0 0 0 0 0 0 0 3
## recoded
## [46,47) [47,48) [48,49) [49,50) [50,51) [51,56) [56,98) [98,99) [99,1e+06)
## 1 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0
## 7 0 0 0 0 0 0 0 0 0
## 8 0 0 0 0 0 0 0 0 0
## 9 0 0 0 0 0 0 0 0 0
## 10 0 0 0 0 0 0 0 0 0
## 11 0 0 0 0 0 0 0 0 0
## 12 0 0 0 0 0 0 0 0 0
## 13 0 0 0 0 0 0 0 0 0
## 15 0 0 0 0 0 0 0 0 0
## 16 0 0 0 0 0 0 0 0 0
## 17 0 0 0 0 0 0 0 0 0
## 18 0 0 0 0 0 0 0 0 0
## 22 0 0 0 0 0 0 0 0 0
## 23 0 0 0 0 0 0 0 0 0
## 25 0 0 0 0 0 0 0 0 0
## 31 0 0 0 0 0 0 0 0 0
## 32 0 0 0 0 0 0 0 0 0
## 35 0 0 0 0 0 0 0 0 0
## 36 0 0 0 0 0 0 0 0 0
## 37 0 0 0 0 0 0 0 0 0
## 39 0 0 0 0 0 0 0 0 0
## 40 0 0 0 0 0 0 0 0 0
## 41 0 0 0 0 0 0 0 0 0
## 42 0 0 0 0 0 0 0 0 0
## 43 0 0 0 0 0 0 0 0 0
## [ reached getOption("max.print") -- omitted 9 rows ]
## [1] "Frequency table after encoding"
## c_s3q7. How would you describe the type of work where you spend the second most time ove
## Others
## 151
## Other Farming
## 125
## Livestock And Dairy Farmers
## 42
## Poultry Farmers
## 32
## Inland And Coastal Waters Fishermen
## 37
## Domestic Work
## 51
## Market Stall Vendors, Street Vendors And Related Workers
## 64
## Only 1 Type of Work
## 1621
## Other: Specify
## 139
## <NA>
## 2044
## [1] "Inspect value labels and relabel as necessary"
## Others
## 1
## Others
## 2
## Others
## 3
## Other Farming
## 4
## Livestock And Dairy Farmers
## 5
## Poultry Farmers
## 6
## Others
## 7
## Inland And Coastal Waters Fishermen
## 8
## Others
## 9
## Others
## 10
## Others
## 11
## Domestic Work
## 12
## Others
## 13
## Others
## 14
## Others
## 15
## Others
## 16
## Others
## 17
## Others
## 18
## Others
## 19
## Others
## 20
## Others
## 21
## Others
## 22
## Others
## 23
## Others
## 24
## Others
## 25
## Others
## 26
## Others
## 27
## Market Stall Vendors, Street Vendors And Related Workers
## 28
## Others
## 29
## Others
## 30
## Others
## 31
## Others
## 32
## Others
## 33
## Others
## 34
## Only 1 Type of Work
## 35
## Other: Specify
## 36
# Based on dictionary inspection, select variables for creating sdcMicro object
# See: https://sdcpractice.readthedocs.io/en/latest/anon_methods.html
# All variable names should correspond to the names in the data file
# selected categorical key variables: gender, occupation/education and age
# !!!Insufficient demographic data
# !!! Identify open-end variables here:
open_ends <- c("c_anoresponse",
"c_bnoresponse",
"c_cnoresponse",
"c_dnoresponse",
"c_enoresponse",
"c_fnoresponse",
"c_gnoresponse",
"c_hnoresponse",
"c_inoresponse",
"c_jnoresponse",
"c_knoresponse",
"c_lnoresponse",
"c_mnoresponse",
"c_nnoresponse",
"c_onoresponse",
"c_s3q4_other",
"c_s3q4noresponse",
"c_s3q5_other",
"c_s3q5noresponse",
"c_s3q6_other",
"c_s3q6noresponse",
"c_s3q7_other",
"c_s3q7noresponse")
report_open (list_open_ends = open_ends)
# Review "verbatims.csv". Identify variables to be deleted or redacted and their row number
mydata$c_bnoresponse[74] <- "[Tagalog]"
mydata$c_dnoresponse[74] <- "[Tagalog]"
mydata$c_dnoresponse[335] <- "[Tagalog]"
mydata$c_enoresponse[74] <- "[Tagalog]"
mydata$c_fnoresponse[74] <- "[Tagalog]"
mydata$c_gnoresponse[74] <- "[Tagalog]"
mydata$c_hnoresponse[74] <- "[Tagalog]"
mydata$c_inoresponse[74] <- "[Tagalog]"
mydata$c_jnoresponse[74] <- "[Tagalog]"
mydata$c_knoresponse[74] <- "[Tagalog]"
mydata$c_lnoresponse[74] <- "[Tagalog]"
mydata$c_mnoresponse[74] <- "[Tagalog]"
mydata$c_mnoresponse[335] <- "[Tagalog]"
mydata$c_onoresponse[335] <- "[Tagalog]"
mydata$c_s3q4_other[2] <- "Other"
mydata$c_s3q4_other[3] <- "Other"
mydata$c_s3q4_other[17] <- "Other"
mydata$c_s3q4_other[43] <- "Other"
mydata$c_s3q4_other[50] <- "Other"
mydata$c_s3q4_other[51] <- "Other"
mydata$c_s3q4_other[76] <- "Other"
mydata$c_s3q4_other[81] <- "Other"
mydata$c_s3q4_other[82] <- "Other"
mydata$c_s3q4_other[118] <- "Other"
mydata$c_s3q4_other[165] <- "Other"
mydata$c_s3q4_other[166] <- "Other"
mydata$c_s3q4_other[197] <- "Other"
mydata$c_s3q4_other[220] <- "Other"
mydata$c_s3q4_other[226] <- "Other"
mydata$c_s3q4_other[230] <- "Other"
mydata$c_s3q4_other[232] <- "Other"
mydata$c_s3q4_other[235] <- "Other"
mydata$c_s3q4_other[237] <- "Other"
mydata$c_s3q4_other[239] <- "Other"
mydata$c_s3q4_other[244] <- "Other"
mydata$c_s3q4_other[245] <- "Other"
mydata$c_s3q4_other[290] <- "Other"
mydata$c_s3q4_other[294] <- "Other"
mydata$c_s3q4_other[345] <- "Other"
mydata$c_s3q4_other[351] <- "Other"
mydata$c_s3q4_other[352] <- "Other"
mydata$c_s3q4_other[353] <- "Other"
mydata$c_s3q4_other[362] <- "Other"
mydata$c_s3q4_other[373] <- "Other"
mydata$c_s3q4_other[374] <- "Other"
mydata$c_s3q4_other[377] <- "Other"
mydata$c_s3q4_other[378] <- "Other"
mydata$c_s3q4_other[382] <- "Other"
mydata$c_s3q4_other[421] <- "Other"
mydata$c_s3q4_other[422] <- "Other"
mydata$c_s3q4_other[425] <- "Other"
mydata$c_s3q4_other[429] <- "Other"
mydata$c_s3q4_other[446] <- "Other"
mydata$c_s3q4_other[474] <- "Other"
mydata$c_s3q4_other[507] <- "Other"
mydata$c_s3q4_other[517] <- "Other"
mydata$c_s3q4_other[554] <- "Other"
mydata$c_s3q4_other[578] <- "Other"
mydata$c_s3q4_other[581] <- "Other"
mydata$c_s3q4_other[582] <- "Other"
mydata$c_s3q4_other[583] <- "Other"
mydata$c_s3q4_other[596] <- "Other"
mydata$c_s3q4_other[597] <- "Other"
mydata$c_s3q4_other[623] <- "Other"
mydata$c_s3q4_other[626] <- "Other"
mydata$c_s3q4_other[636] <- "Other"
mydata$c_s3q4_other[638] <- "Other"
mydata$c_s3q4_other[640] <- "Other"
mydata$c_s3q4_other[641] <- "Other"
mydata$c_s3q4_other[642] <- "Other"
mydata$c_s3q4_other[645] <- "Other"
mydata$c_s3q4_other[648] <- "Other"
mydata$c_s3q4_other[652] <- "Other"
mydata$c_s3q4_other[679] <- "Other"
mydata$c_s3q4_other[680] <- "Other"
mydata$c_s3q4_other[683] <- "Other"
mydata$c_s3q4_other[700] <- "Other"
mydata$c_s3q4_other[712] <- "Other"
mydata$c_s3q4_other[731] <- "Other"
mydata$c_s3q4_other[739] <- "Other"
mydata$c_s3q4_other[741] <- "Other"
mydata$c_s3q4_other[742] <- "Other"
mydata$c_s3q4_other[748] <- "Other"
mydata$c_s3q4_other[749] <- "Other"
mydata$c_s3q4_other[750] <- "Other"
mydata$c_s3q4_other[751] <- "Other"
mydata$c_s3q4_other[759] <- "Other"
mydata$c_s3q4_other[765] <- "Other"
mydata$c_s3q4_other[768] <- "Other"
mydata$c_s3q4_other[774] <- "Other"
mydata$c_s3q4_other[776] <- "Other"
mydata$c_s3q4_other[777] <- "Other"
mydata$c_s3q4_other[778] <- "Other"
mydata$c_s3q4_other[779] <- "Other"
mydata$c_s3q4_other[781] <- "Other"
mydata$c_s3q4_other[784] <- "Other"
mydata$c_s3q4_other[801] <- "Other"
mydata$c_s3q4_other[803] <- "Other"
mydata$c_s3q4_other[805] <- "Other"
mydata$c_s3q4_other[810] <- "Other"
mydata$c_s3q4_other[813] <- "Other"
mydata$c_s3q4_other[821] <- "Other"
mydata$c_s3q4_other[824] <- "Other"
mydata$c_s3q4_other[825] <- "Other"
mydata$c_s3q4_other[843] <- "Other"
mydata$c_s3q4_other[844] <- "Other"
mydata$c_s3q4_other[845] <- "Other"
mydata$c_s3q4_other[846] <- "Other"
mydata$c_s3q4_other[847] <- "Other"
mydata$c_s3q4_other[854] <- "Other"
mydata$c_s3q4_other[855] <- "Other"
mydata$c_s3q4_other[859] <- "Other"
mydata$c_s3q4_other[860] <- "Other"
mydata$c_s3q4_other[864] <- "Other"
mydata$c_s3q4_other[865] <- "Other"
mydata$c_s3q4_other[872] <- "Other"
mydata$c_s3q4_other[873] <- "Other"
mydata$c_s3q4_other[878] <- "Other"
mydata$c_s3q4_other[883] <- "Other"
mydata$c_s3q4_other[884] <- "Other"
mydata$c_s3q4_other[886] <- "Other"
mydata$c_s3q4_other[888] <- "Other"
mydata$c_s3q4_other[889] <- "Other"
mydata$c_s3q4_other[891] <- "Other"
mydata$c_s3q4_other[899] <- "Other"
mydata$c_s3q4_other[900] <- "Other"
mydata$c_s3q4_other[902] <- "Other"
mydata$c_s3q4_other[906] <- "Other"
mydata$c_s3q4_other[907] <- "Other"
mydata$c_s3q4_other[908] <- "Other"
mydata$c_s3q4_other[913] <- "Other"
mydata$c_s3q4_other[914] <- "Other"
mydata$c_s3q4_other[915] <- "Other"
mydata$c_s3q4_other[916] <- "Other"
mydata$c_s3q4_other[928] <- "Other"
mydata$c_s3q4_other[941] <- "Other"
mydata$c_s3q4_other[945] <- "Other"
mydata$c_s3q4_other[952] <- "Other"
mydata$c_s3q4_other[954] <- "Other"
mydata$c_s3q4_other[962] <- "Other"
mydata$c_s3q4_other[968] <- "Other"
mydata$c_s3q4_other[970] <- "Other"
mydata$c_s3q4_other[971] <- "Other"
mydata$c_s3q4_other[976] <- "Other"
mydata$c_s3q4_other[977] <- "Other"
mydata$c_s3q4_other[978] <- "Other"
mydata$c_s3q4_other[979] <- "Other"
mydata$c_s3q4_other[980] <- "Other"
mydata$c_s3q4_other[985] <- "Other"
mydata$c_s3q4_other[987] <- "Other"
mydata$c_s3q4_other[991] <- "Other"
mydata$c_s3q4_other[997] <- "Other"
mydata$c_s3q4_other[1000] <- "Other"
mydata$c_s3q4_other[1002] <- "Other"
mydata$c_s3q4_other[1004] <- "Other"
mydata$c_s3q4_other[1010] <- "Other"
mydata$c_s3q4_other[1013] <- "Other"
mydata$c_s3q4_other[1018] <- "Other"
mydata$c_s3q4_other[1020] <- "Other"
mydata$c_s3q4_other[1021] <- "Other"
mydata$c_s3q4_other[1023] <- "Other"
mydata$c_s3q4_other[1025] <- "Other"
mydata$c_s3q4_other[1028] <- "Other"
mydata$c_s3q4_other[1029] <- "Other"
mydata$c_s3q4_other[1036] <- "Other"
mydata$c_s3q4_other[1038] <- "Other"
mydata$c_s3q4_other[1044] <- "Other"
mydata$c_s3q4_other[1045] <- "Other"
mydata$c_s3q4_other[1055] <- "Other"
mydata$c_s3q4_other[1060] <- "Other"
mydata$c_s3q4_other[1064] <- "Other"
mydata$c_s3q4_other[1076] <- "Other"
mydata$c_s3q4_other[1083] <- "Other"
mydata$c_s3q4_other[1086] <- "Other"
mydata$c_s3q4_other[1090] <- "Other"
mydata$c_s3q4_other[1093] <- "Other"
mydata$c_s3q4_other[1094] <- "Other"
mydata$c_s3q4_other[1097] <- "Other"
mydata$c_s3q4_other[1104] <- "Other"
mydata$c_s3q4_other[1105] <- "Other"
mydata$c_s3q4_other[1106] <- "Other"
mydata$c_s3q4_other[1119] <- "Other"
mydata$c_s3q4_other[1121] <- "Other"
mydata$c_s3q4_other[1132] <- "Other"
mydata$c_s3q4_other[1134] <- "Other"
mydata$c_s3q4_other[1138] <- "Other"
mydata$c_s3q4_other[1158] <- "Other"
mydata$c_s3q4_other[1162] <- "Other"
mydata$c_s3q4_other[1166] <- "Other"
mydata$c_s3q4_other[1592] <- "Other"
mydata$c_s3q4_other[2148] <- "Other"
mydata$c_s3q4_other[2354] <- "Other"
mydata$c_s3q4_other[2423] <- "Other"
mydata$c_s3q4_other[2431] <- "Other"
mydata$c_s3q4_other[2432] <- "Other"
mydata$c_s3q4_other[2473] <- "Other"
mydata$c_s3q4_other[2497] <- "Other"
mydata$c_s3q4_other[2499] <- "Other"
mydata$c_s3q4_other[2500] <- "Other"
mydata$c_s3q4_other[2512] <- "Other"
mydata$c_s3q4_other[2524] <- "Other"
mydata$c_s3q4_other[2525] <- "Other"
mydata$c_s3q4_other[2526] <- "Other"
mydata$c_s3q4_other[2527] <- "Other"
mydata$c_s3q4_other[2540] <- "Other"
mydata$c_s3q4_other[2542] <- "Other"
mydata$c_s3q4_other[2563] <- "Other"
mydata$c_s3q4_other[2674] <- "Other"
mydata$c_s3q4_other[2685] <- "Other"
mydata$c_s3q4_other[2690] <- "Other"
mydata$c_s3q4_other[2695] <- "Other"
mydata$c_s3q4_other[2698] <- "Other"
mydata$c_s3q4_other[2702] <- "Other"
mydata$c_s3q4_other[2709] <- "Other"
mydata$c_s3q4_other[2710] <- "Other"
mydata$c_s3q4_other[2719] <- "Other"
mydata$c_s3q4_other[2728] <- "Other"
mydata$c_s3q4_other[2729] <- "Other"
mydata$c_s3q4_other[2730] <- "Other"
mydata$c_s3q4_other[2735] <- "Other"
mydata$c_s3q4_other[2736] <- "Other"
mydata$c_s3q4_other[2737] <- "Other"
mydata$c_s3q4_other[2748] <- "Other"
mydata$c_s3q4_other[2761] <- "Other"
mydata$c_s3q4_other[2762] <- "Other"
mydata$c_s3q4_other[2768] <- "Other"
mydata$c_s3q4_other[2784] <- "Other"
mydata$c_s3q4_other[2789] <- "Other"
mydata$c_s3q4_other[2792] <- "Other"
mydata$c_s3q4_other[2793] <- "Other"
mydata$c_s3q4_other[2802] <- "Other"
mydata$c_s3q4_other[2803] <- "Other"
mydata$c_s3q4_other[2822] <- "Other"
mydata$c_s3q4_other[2823] <- "Other"
mydata$c_s3q4_other[2824] <- "Other"
mydata$c_s3q4_other[2830] <- "Other"
mydata$c_s3q4_other[2832] <- "Other"
mydata$c_s3q4_other[2833] <- "Other"
mydata$c_s3q4_other[2834] <- "Other"
mydata$c_s3q4_other[2842] <- "Other"
mydata$c_s3q4_other[2843] <- "Other"
mydata$c_s3q4_other[2844] <- "Other"
mydata$c_s3q4_other[2845] <- "Other"
mydata$c_s3q4_other[2854] <- "Other"
mydata$c_s3q4_other[2856] <- "Other"
mydata$c_s3q4_other[2857] <- "Other"
mydata$c_s3q4_other[2861] <- "Other"
mydata$c_s3q4_other[2862] <- "Other"
mydata$c_s3q4_other[2863] <- "Other"
mydata$c_s3q4_other[2864] <- "Other"
mydata$c_s3q4_other[2871] <- "Other"
mydata$c_s3q4_other[2872] <- "Other"
mydata$c_s3q4_other[2874] <- "Other"
mydata$c_s3q4_other[2876] <- "Other"
mydata$c_s3q4_other[2891] <- "Other"
mydata$c_s3q4_other[2914] <- "Other"
mydata$c_s3q4_other[2927] <- "Other"
mydata$c_s3q4_other[2928] <- "Other"
mydata$c_s3q4_other[2942] <- "Other"
mydata$c_s3q4_other[2943] <- "Other"
mydata$c_s3q4_other[2945] <- "Other"
mydata$c_s3q4_other[2950] <- "Other"
mydata$c_s3q4_other[2952] <- "Other"
mydata$c_s3q4_other[2953] <- "Other"
mydata$c_s3q4_other[2958] <- "Other"
mydata$c_s3q4_other[2959] <- "Other"
mydata$c_s3q4_other[2966] <- "Other"
mydata$c_s3q4_other[2983] <- "Other"
mydata$c_s3q4_other[2984] <- "Other"
mydata$c_s3q4_other[2985] <- "Other"
mydata$c_s3q4_other[2990] <- "Other"
mydata$c_s3q4_other[2991] <- "Other"
mydata$c_s3q4_other[2995] <- "Other"
mydata$c_s3q4_other[3003] <- "Other"
mydata$c_s3q4_other[3004] <- "Other"
mydata$c_s3q4_other[3005] <- "Other"
mydata$c_s3q4_other[3007] <- "Other"
mydata$c_s3q4_other[3035] <- "Other"
mydata$c_s3q4_other[3036] <- "Other"
mydata$c_s3q4_other[3037] <- "Other"
mydata$c_s3q4_other[3044] <- "Other"
mydata$c_s3q4_other[3054] <- "Other"
mydata$c_s3q4_other[3056] <- "Other"
mydata$c_s3q4_other[3057] <- "Other"
mydata$c_s3q4_other[3061] <- "Other"
mydata$c_s3q4_other[3062] <- "Other"
mydata$c_s3q4_other[3067] <- "Other"
mydata$c_s3q4_other[3068] <- "Other"
mydata$c_s3q4_other[3073] <- "Other"
mydata$c_s3q4_other[3074] <- "Other"
mydata$c_s3q4_other[3082] <- "Other"
mydata$c_s3q4_other[3105] <- "Other"
mydata$c_s3q4_other[3115] <- "Other"
mydata$c_s3q4_other[3407] <- "Other"
mydata$c_s3q4_other[3409] <- "Other"
mydata$c_s3q4_other[3414] <- "Other"
mydata$c_s3q4_other[3415] <- "Other"
mydata$c_s3q4_other[3417] <- "Other"
mydata$c_s3q4_other[3506] <- "Other"
mydata$c_s3q4_other[3510] <- "Other"
mydata$c_s3q4_other[3511] <- "Other"
mydata$c_s3q4_other[3512] <- "Other"
mydata$c_s3q4_other[3515] <- "Other"
mydata$c_s3q4_other[3519] <- "Other"
mydata$c_s3q4_other[3520] <- "Other"
mydata$c_s3q4_other[3524] <- "Other"
mydata$c_s3q4_other[3525] <- "Other"
mydata$c_s3q4_other[3526] <- "Other"
mydata$c_s3q4_other[3532] <- "Other"
mydata$c_s3q4_other[3538] <- "Other"
mydata$c_s3q4_other[3550] <- "Other"
mydata$c_s3q4_other[3552] <- "Other"
mydata$c_s3q4_other[3554] <- "Other"
mydata$c_s3q4_other[3555] <- "Other"
mydata$c_s3q4_other[3556] <- "Other"
mydata$c_s3q4_other[3560] <- "Other"
mydata$c_s3q4_other[3567] <- "Other"
mydata$c_s3q4_other[3576] <- "Other"
mydata$c_s3q4_other[3577] <- "Other"
mydata$c_s3q4_other[3609] <- "Other"
mydata$c_s3q4_other[3613] <- "Other"
mydata$c_s3q4_other[3615] <- "Other"
mydata$c_s3q4_other[3617] <- "Other"
mydata$c_s3q4_other[3624] <- "Other"
mydata$c_s3q4_other[3625] <- "Other"
mydata$c_s3q4_other[3644] <- "Other"
mydata$c_s3q4_other[3647] <- "Other"
mydata$c_s3q4_other[3649] <- "Other"
mydata$c_s3q4_other[3658] <- "Other"
mydata$c_s3q4_other[3661] <- "Other"
mydata$c_s3q4_other[3666] <- "Other"
mydata$c_s3q4_other[3671] <- "Other"
mydata$c_s3q4_other[3681] <- "Other"
mydata$c_s3q4_other[3686] <- "Other"
mydata$c_s3q4_other[3688] <- "Other"
mydata$c_s3q4_other[3689] <- "Other"
mydata$c_s3q4_other[3695] <- "Other"
mydata$c_s3q4_other[3698] <- "Other"
mydata$c_s3q4_other[3699] <- "Other"
mydata$c_s3q4_other[3703] <- "Other"
mydata$c_s3q4_other[3706] <- "Other"
mydata$c_s3q4_other[3707] <- "Other"
mydata$c_s3q4_other[3709] <- "Other"
mydata$c_s3q4_other[3710] <- "Other"
mydata$c_s3q4_other[3719] <- "Other"
mydata$c_s3q4_other[3721] <- "Other"
mydata$c_s3q4_other[3727] <- "Other"
mydata$c_s3q4_other[3729] <- "Other"
mydata$c_s3q4_other[3736] <- "Other"
mydata$c_s3q4_other[3740] <- "Other"
mydata$c_s3q4_other[3741] <- "Other"
mydata$c_s3q4_other[3755] <- "Other"
mydata$c_s3q4_other[3759] <- "Other"
mydata$c_s3q4_other[3776] <- "Other"
mydata$c_s3q4_other[3831] <- "Other"
mydata$c_s3q4_other[3973] <- "Other"
mydata$c_s3q4_other[3974] <- "Other"
mydata$c_s3q4_other[3975] <- "Other"
mydata$c_s3q4_other[3976] <- "Other"
mydata$c_s3q4_other[3977] <- "Other"
mydata$c_s3q4_other[3984] <- "Other"
mydata$c_s3q4_other[3989] <- "Other"
mydata$c_s3q4_other[3990] <- "Other"
mydata$c_s3q4_other[3991] <- "Other"
mydata$c_s3q4_other[3992] <- "Other"
mydata$c_s3q4_other[3993] <- "Other"
mydata$c_s3q4_other[3996] <- "Other"
mydata$c_s3q4_other[3997] <- "Other"
mydata$c_s3q4_other[3999] <- "Other"
mydata$c_s3q4_other[4000] <- "Other"
mydata$c_s3q4_other[4001] <- "Other"
mydata$c_s3q4_other[4002] <- "Other"
mydata$c_s3q4_other[4006] <- "Other"
mydata$c_s3q4_other[4010] <- "Other"
mydata$c_s3q4_other[4011] <- "Other"
mydata$c_s3q4_other[4013] <- "Other"
mydata$c_s3q4_other[4015] <- "Other"
mydata$c_s3q4_other[4017] <- "Other"
mydata$c_s3q4_other[4018] <- "Other"
mydata$c_s3q4_other[4020] <- "Other"
mydata$c_s3q4_other[4021] <- "Other"
mydata$c_s3q4_other[4022] <- "Other"
mydata$c_s3q4_other[4023] <- "Other"
mydata$c_s3q4_other[4024] <- "Other"
mydata$c_s3q4_other[4025] <- "Other"
mydata$c_s3q4_other[4026] <- "Other"
mydata$c_s3q4_other[4027] <- "Other"
mydata$c_s3q4_other[4028] <- "Other"
mydata$c_s3q4_other[4033] <- "Other"
mydata$c_s3q4_other[4040] <- "Other"
mydata$c_s3q4_other[4041] <- "Other"
mydata$c_s3q4_other[4044] <- "Other"
mydata$c_s3q4_other[4045] <- "Other"
mydata$c_s3q4_other[4046] <- "Other"
mydata$c_s3q4_other[4047] <- "Other"
mydata$c_s3q4_other[4056] <- "Other"
mydata$c_s3q4_other[4057] <- "Other"
mydata$c_s3q4_other[4058] <- "Other"
mydata$c_s3q4_other[4059] <- "Other"
mydata$c_s3q4_other[4060] <- "Other"
mydata$c_s3q4_other[4254] <- "Other"
mydata$c_s3q4_other[4261] <- "Other"
mydata$c_s3q4_other[4270] <- "Other"
mydata$c_s3q4_other[4273] <- "Other"
mydata$c_s3q4_other[4274] <- "Other"
mydata$c_s3q4_other[4275] <- "Other"
mydata$c_s3q4_other[4284] <- "Other"
mydata$c_s3q4_other[4285] <- "Other"
mydata$c_s3q4_other[4287] <- "Other"
mydata$c_s3q4_other[4288] <- "Other"
mydata$c_s3q4_other[4294] <- "Other"
mydata$c_s3q4_other[4301] <- "Other"
mydata$c_s3q4noresponse[335] <- "Other"
mydata$c_s3q4noresponse[336] <- "Other"
mydata$c_s3q4noresponse[341] <- "Other"
mydata$c_s3q4noresponse[370] <- "Other"
mydata$c_s3q4noresponse[383] <- "Other"
mydata$c_s3q4noresponse[544] <- "Other"
mydata$c_s3q4noresponse[551] <- "Other"
mydata$c_s3q4noresponse[716] <- "Other"
mydata$c_s3q4noresponse[783] <- "Other"
mydata$c_s3q4noresponse[823] <- "Other"
mydata$c_s3q4noresponse[834] <- "Other"
mydata$c_s3q4noresponse[894] <- "Other"
mydata$c_s3q4noresponse[909] <- "Other"
mydata$c_s3q4noresponse[947] <- "Other"
mydata$c_s3q4noresponse[992] <- "Other"
mydata$c_s3q4noresponse[1009] <- "Other"
mydata$c_s3q4noresponse[1102] <- "Other"
mydata$c_s3q4noresponse[1127] <- "Other"
mydata$c_s3q4noresponse[1130] <- "Other"
mydata$c_s3q4noresponse[1131] <- "Other"
mydata$c_s3q4noresponse[1136] <- "Other"
mydata$c_s3q4noresponse[1181] <- "Other"
mydata$c_s3q4noresponse[1207] <- "Other"
mydata$c_s3q4noresponse[1224] <- "Other"
mydata$c_s3q4noresponse[1256] <- "Other"
mydata$c_s3q4noresponse[1258] <- "Other"
mydata$c_s3q4noresponse[1272] <- "Other"
mydata$c_s3q4noresponse[1286] <- "Other"
mydata$c_s3q4noresponse[1328] <- "Other"
mydata$c_s3q4noresponse[1357] <- "Other"
mydata$c_s3q4noresponse[1398] <- "Other"
mydata$c_s3q4noresponse[1418] <- "Other"
mydata$c_s3q4noresponse[1419] <- "Other"
mydata$c_s3q4noresponse[1447] <- "Other"
mydata$c_s3q4noresponse[1450] <- "Other"
mydata$c_s3q4noresponse[1459] <- "Other"
mydata$c_s3q4noresponse[1460] <- "Other"
mydata$c_s3q4noresponse[1461] <- "Other"
mydata$c_s3q4noresponse[1468] <- "Other"
mydata$c_s3q4noresponse[1491] <- "Other"
mydata$c_s3q4noresponse[1492] <- "Other"
mydata$c_s3q4noresponse[1493] <- "Other"
mydata$c_s3q4noresponse[1501] <- "Other"
mydata$c_s3q4noresponse[1549] <- "Other"
mydata$c_s3q4noresponse[1560] <- "Other"
mydata$c_s3q4noresponse[1595] <- "Other"
mydata$c_s3q4noresponse[1596] <- "Other"
mydata$c_s3q4noresponse[1599] <- "Other"
mydata$c_s3q4noresponse[1603] <- "Other"
mydata$c_s3q4noresponse[1617] <- "Other"
mydata$c_s3q4noresponse[1618] <- "Other"
mydata$c_s3q4noresponse[1632] <- "Other"
mydata$c_s3q4noresponse[1647] <- "Other"
mydata$c_s3q4noresponse[1664] <- "Other"
mydata$c_s3q4noresponse[1685] <- "Other"
mydata$c_s3q4noresponse[1754] <- "Other"
mydata$c_s3q4noresponse[1771] <- "Other"
mydata$c_s3q4noresponse[1775] <- "Other"
mydata$c_s3q4noresponse[1779] <- "Other"
mydata$c_s3q4noresponse[1799] <- "Other"
mydata$c_s3q4noresponse[1828] <- "Other"
mydata$c_s3q4noresponse[1845] <- "Other"
mydata$c_s3q4noresponse[1859] <- "Other"
mydata$c_s3q4noresponse[1901] <- "Other"
mydata$c_s3q4noresponse[1936] <- "Other"
mydata$c_s3q4noresponse[1942] <- "Other"
mydata$c_s3q4noresponse[1949] <- "Other"
mydata$c_s3q4noresponse[1966] <- "Other"
mydata$c_s3q4noresponse[1999] <- "Other"
mydata$c_s3q4noresponse[2013] <- "Other"
mydata$c_s3q4noresponse[2020] <- "Other"
mydata$c_s3q4noresponse[2033] <- "Other"
mydata$c_s3q4noresponse[2050] <- "Other"
mydata$c_s3q4noresponse[2051] <- "Other"
mydata$c_s3q4noresponse[2062] <- "Other"
mydata$c_s3q4noresponse[2069] <- "Other"
mydata$c_s3q4noresponse[2161] <- "Other"
mydata$c_s3q4noresponse[2170] <- "Other"
mydata$c_s3q4noresponse[2205] <- "Other"
mydata$c_s3q4noresponse[2207] <- "Other"
mydata$c_s3q4noresponse[2219] <- "Other"
mydata$c_s3q4noresponse[2222] <- "Other"
mydata$c_s3q4noresponse[2223] <- "Other"
mydata$c_s3q4noresponse[2227] <- "Other"
mydata$c_s3q4noresponse[2235] <- "Other"
mydata$c_s3q4noresponse[2259] <- "Other"
mydata$c_s3q4noresponse[2290] <- "Other"
mydata$c_s3q4noresponse[2293] <- "Other"
mydata$c_s3q4noresponse[2329] <- "Other"
mydata$c_s3q4noresponse[2347] <- "Other"
mydata$c_s3q4noresponse[2397] <- "Other"
mydata$c_s3q4noresponse[2416] <- "Other"
mydata$c_s3q4noresponse[2461] <- "Other"
mydata$c_s3q4noresponse[2487] <- "Other"
mydata$c_s3q4noresponse[2496] <- "Other"
mydata$c_s3q4noresponse[2609] <- "Other"
mydata$c_s3q4noresponse[2637] <- "Other"
mydata$c_s3q4noresponse[2654] <- "Other"
mydata$c_s3q4noresponse[2660] <- "Other"
mydata$c_s3q4noresponse[3247] <- "Other"
mydata$c_s3q4noresponse[3457] <- "Other"
mydata$c_s3q4noresponse[3814] <- "Other"
mydata$c_s3q4noresponse[3900] <- "Other"
mydata$c_s3q4noresponse[3922] <- "Other"
mydata$c_s3q4noresponse[3986] <- "Other"
mydata$c_s3q4noresponse[4085] <- "Other"
mydata$c_s3q4noresponse[4093] <- "Other"
mydata$c_s3q4noresponse[4094] <- "Other"
mydata$c_s3q5_other[50] <- "Other"
mydata$c_s3q5_other[51] <- "Other"
mydata$c_s3q5_other[119] <- "Other"
mydata$c_s3q5_other[128] <- "Other"
mydata$c_s3q5_other[220] <- "Other"
mydata$c_s3q5_other[226] <- "Other"
mydata$c_s3q5_other[230] <- "Other"
mydata$c_s3q5_other[232] <- "Other"
mydata$c_s3q5_other[233] <- "Other"
mydata$c_s3q5_other[234] <- "Other"
mydata$c_s3q5_other[235] <- "Other"
mydata$c_s3q5_other[244] <- "Other"
mydata$c_s3q5_other[267] <- "Other"
mydata$c_s3q5_other[276] <- "Other"
mydata$c_s3q5_other[342] <- "Other"
mydata$c_s3q5_other[345] <- "Other"
mydata$c_s3q5_other[352] <- "Other"
mydata$c_s3q5_other[362] <- "Other"
mydata$c_s3q5_other[370] <- "Other"
mydata$c_s3q5_other[373] <- "Other"
mydata$c_s3q5_other[374] <- "Other"
mydata$c_s3q5_other[377] <- "Other"
mydata$c_s3q5_other[378] <- "Other"
mydata$c_s3q5_other[382] <- "Other"
mydata$c_s3q5_other[389] <- "Other"
mydata$c_s3q5_other[425] <- "Other"
mydata$c_s3q5_other[429] <- "Other"
mydata$c_s3q5_other[471] <- "Other"
mydata$c_s3q5_other[472] <- "Other"
mydata$c_s3q5_other[474] <- "Other"
mydata$c_s3q5_other[507] <- "Other"
mydata$c_s3q5_other[517] <- "Other"
mydata$c_s3q5_other[554] <- "Other"
mydata$c_s3q5_other[583] <- "Other"
mydata$c_s3q5_other[587] <- "Other"
mydata$c_s3q5_other[596] <- "Other"
mydata$c_s3q5_other[597] <- "Other"
mydata$c_s3q5_other[623] <- "Other"
mydata$c_s3q5_other[626] <- "Other"
mydata$c_s3q5_other[645] <- "Other"
mydata$c_s3q5_other[652] <- "Other"
mydata$c_s3q5_other[680] <- "Other"
mydata$c_s3q5_other[684] <- "Other"
mydata$c_s3q5_other[700] <- "Other"
mydata$c_s3q5_other[712] <- "Other"
mydata$c_s3q5_other[739] <- "Other"
mydata$c_s3q5_other[740] <- "Other"
mydata$c_s3q5_other[741] <- "Other"
mydata$c_s3q5_other[748] <- "Other"
mydata$c_s3q5_other[749] <- "Other"
mydata$c_s3q5_other[750] <- "Other"
mydata$c_s3q5_other[751] <- "Other"
mydata$c_s3q5_other[759] <- "Other"
mydata$c_s3q5_other[769] <- "Other"
mydata$c_s3q5_other[774] <- "Other"
mydata$c_s3q5_other[778] <- "Other"
mydata$c_s3q5_other[779] <- "Other"
mydata$c_s3q5_other[781] <- "Other"
mydata$c_s3q5_other[784] <- "Other"
mydata$c_s3q5_other[800] <- "Other"
mydata$c_s3q5_other[801] <- "Other"
mydata$c_s3q5_other[803] <- "Other"
mydata$c_s3q5_other[804] <- "Other"
mydata$c_s3q5_other[805] <- "Other"
mydata$c_s3q5_other[810] <- "Other"
mydata$c_s3q5_other[812] <- "Other"
mydata$c_s3q5_other[816] <- "Other"
mydata$c_s3q5_other[821] <- "Other"
mydata$c_s3q5_other[824] <- "Other"
mydata$c_s3q5_other[825] <- "Other"
mydata$c_s3q5_other[832] <- "Other"
mydata$c_s3q5_other[843] <- "Other"
mydata$c_s3q5_other[844] <- "Other"
mydata$c_s3q5_other[846] <- "Other"
mydata$c_s3q5_other[847] <- "Other"
mydata$c_s3q5_other[851] <- "Other"
mydata$c_s3q5_other[853] <- "Other"
mydata$c_s3q5_other[854] <- "Other"
mydata$c_s3q5_other[855] <- "Other"
mydata$c_s3q5_other[859] <- "Other"
mydata$c_s3q5_other[860] <- "Other"
mydata$c_s3q5_other[864] <- "Other"
mydata$c_s3q5_other[865] <- "Other"
mydata$c_s3q5_other[877] <- "Other"
mydata$c_s3q5_other[883] <- "Other"
mydata$c_s3q5_other[884] <- "Other"
mydata$c_s3q5_other[886] <- "Other"
mydata$c_s3q5_other[888] <- "Other"
mydata$c_s3q5_other[889] <- "Other"
mydata$c_s3q5_other[891] <- "Other"
mydata$c_s3q5_other[899] <- "Other"
mydata$c_s3q5_other[900] <- "Other"
mydata$c_s3q5_other[902] <- "Other"
mydata$c_s3q5_other[906] <- "Other"
mydata$c_s3q5_other[907] <- "Other"
mydata$c_s3q5_other[908] <- "Other"
mydata$c_s3q5_other[913] <- "Other"
mydata$c_s3q5_other[915] <- "Other"
mydata$c_s3q5_other[916] <- "Other"
mydata$c_s3q5_other[952] <- "Other"
mydata$c_s3q5_other[954] <- "Other"
mydata$c_s3q5_other[962] <- "Other"
mydata$c_s3q5_other[970] <- "Other"
mydata$c_s3q5_other[971] <- "Other"
mydata$c_s3q5_other[975] <- "Other"
mydata$c_s3q5_other[978] <- "Other"
mydata$c_s3q5_other[979] <- "Other"
mydata$c_s3q5_other[980] <- "Other"
mydata$c_s3q5_other[985] <- "Other"
mydata$c_s3q5_other[987] <- "Other"
mydata$c_s3q5_other[988] <- "Other"
mydata$c_s3q5_other[991] <- "Other"
mydata$c_s3q5_other[992] <- "Other"
mydata$c_s3q5_other[996] <- "Other"
mydata$c_s3q5_other[1000] <- "Other"
mydata$c_s3q5_other[1002] <- "Other"
mydata$c_s3q5_other[1004] <- "Other"
mydata$c_s3q5_other[1009] <- "Other"
mydata$c_s3q5_other[1018] <- "Other"
mydata$c_s3q5_other[1021] <- "Other"
mydata$c_s3q5_other[1023] <- "Other"
mydata$c_s3q5_other[1025] <- "Other"
mydata$c_s3q5_other[1028] <- "Other"
mydata$c_s3q5_other[1029] <- "Other"
mydata$c_s3q5_other[1034] <- "Other"
mydata$c_s3q5_other[1036] <- "Other"
mydata$c_s3q5_other[1044] <- "Other"
mydata$c_s3q5_other[1055] <- "Other"
mydata$c_s3q5_other[1060] <- "Other"
mydata$c_s3q5_other[1064] <- "Other"
mydata$c_s3q5_other[1072] <- "Other"
mydata$c_s3q5_other[1073] <- "Other"
mydata$c_s3q5_other[1076] <- "Other"
mydata$c_s3q5_other[1083] <- "Other"
mydata$c_s3q5_other[1086] <- "Other"
mydata$c_s3q5_other[1093] <- "Other"
mydata$c_s3q5_other[1094] <- "Other"
mydata$c_s3q5_other[1097] <- "Other"
mydata$c_s3q5_other[1104] <- "Other"
mydata$c_s3q5_other[1105] <- "Other"
mydata$c_s3q5_other[1106] <- "Other"
mydata$c_s3q5_other[1128] <- "Other"
mydata$c_s3q5_other[1132] <- "Other"
mydata$c_s3q5_other[1134] <- "Other"
mydata$c_s3q5_other[1138] <- "Other"
mydata$c_s3q5_other[1158] <- "Other"
mydata$c_s3q5_other[1162] <- "Other"
mydata$c_s3q5_other[1166] <- "Other"
mydata$c_s3q5_other[1734] <- "Other"
mydata$c_s3q5_other[2148] <- "Other"
mydata$c_s3q5_other[2354] <- "Other"
mydata$c_s3q5_other[2473] <- "Other"
mydata$c_s3q5_other[2497] <- "Other"
mydata$c_s3q5_other[2499] <- "Other"
mydata$c_s3q5_other[2500] <- "Other"
mydata$c_s3q5_other[2512] <- "Other"
mydata$c_s3q5_other[2524] <- "Other"
mydata$c_s3q5_other[2525] <- "Other"
mydata$c_s3q5_other[2526] <- "Other"
mydata$c_s3q5_other[2527] <- "Other"
mydata$c_s3q5_other[2542] <- "Other"
mydata$c_s3q5_other[2546] <- "Other"
mydata$c_s3q5_other[2560] <- "Other"
mydata$c_s3q5_other[2674] <- "Other"
mydata$c_s3q5_other[2685] <- "Other"
mydata$c_s3q5_other[2690] <- "Other"
mydata$c_s3q5_other[2695] <- "Other"
mydata$c_s3q5_other[2702] <- "Other"
mydata$c_s3q5_other[2709] <- "Other"
mydata$c_s3q5_other[2710] <- "Other"
mydata$c_s3q5_other[2719] <- "Other"
mydata$c_s3q5_other[2728] <- "Other"
mydata$c_s3q5_other[2735] <- "Other"
mydata$c_s3q5_other[2736] <- "Other"
mydata$c_s3q5_other[2737] <- "Other"
mydata$c_s3q5_other[2761] <- "Other"
mydata$c_s3q5_other[2762] <- "Other"
mydata$c_s3q5_other[2768] <- "Other"
mydata$c_s3q5_other[2771] <- "Other"
mydata$c_s3q5_other[2789] <- "Other"
mydata$c_s3q5_other[2792] <- "Other"
mydata$c_s3q5_other[2793] <- "Other"
mydata$c_s3q5_other[2802] <- "Other"
mydata$c_s3q5_other[2803] <- "Other"
mydata$c_s3q5_other[2822] <- "Other"
mydata$c_s3q5_other[2823] <- "Other"
mydata$c_s3q5_other[2824] <- "Other"
mydata$c_s3q5_other[2830] <- "Other"
mydata$c_s3q5_other[2832] <- "Other"
mydata$c_s3q5_other[2833] <- "Other"
mydata$c_s3q5_other[2834] <- "Other"
mydata$c_s3q5_other[2842] <- "Other"
mydata$c_s3q5_other[2843] <- "Other"
mydata$c_s3q5_other[2844] <- "Other"
mydata$c_s3q5_other[2845] <- "Other"
mydata$c_s3q5_other[2856] <- "Other"
mydata$c_s3q5_other[2857] <- "Other"
mydata$c_s3q5_other[2861] <- "Other"
mydata$c_s3q5_other[2862] <- "Other"
mydata$c_s3q5_other[2871] <- "Other"
mydata$c_s3q5_other[2872] <- "Other"
mydata$c_s3q5_other[2911] <- "Other"
mydata$c_s3q5_other[2914] <- "Other"
mydata$c_s3q5_other[2927] <- "Other"
mydata$c_s3q5_other[2942] <- "Other"
mydata$c_s3q5_other[2943] <- "Other"
mydata$c_s3q5_other[2945] <- "Other"
mydata$c_s3q5_other[2950] <- "Other"
mydata$c_s3q5_other[2952] <- "Other"
mydata$c_s3q5_other[2953] <- "Other"
mydata$c_s3q5_other[2954] <- "Other"
mydata$c_s3q5_other[2958] <- "Other"
mydata$c_s3q5_other[2959] <- "Other"
mydata$c_s3q5_other[2966] <- "Other"
mydata$c_s3q5_other[2983] <- "Other"
mydata$c_s3q5_other[2984] <- "Other"
mydata$c_s3q5_other[2985] <- "Other"
mydata$c_s3q5_other[2986] <- "Other"
mydata$c_s3q5_other[2987] <- "Other"
mydata$c_s3q5_other[2990] <- "Other"
mydata$c_s3q5_other[2991] <- "Other"
mydata$c_s3q5_other[2995] <- "Other"
mydata$c_s3q5_other[2999] <- "Other"
mydata$c_s3q5_other[3003] <- "Other"
mydata$c_s3q5_other[3004] <- "Other"
mydata$c_s3q5_other[3005] <- "Other"
mydata$c_s3q5_other[3007] <- "Other"
mydata$c_s3q5_other[3035] <- "Other"
mydata$c_s3q5_other[3036] <- "Other"
mydata$c_s3q5_other[3037] <- "Other"
mydata$c_s3q5_other[3039] <- "Other"
mydata$c_s3q5_other[3044] <- "Other"
mydata$c_s3q5_other[3053] <- "Other"
mydata$c_s3q5_other[3054] <- "Other"
mydata$c_s3q5_other[3055] <- "Other"
mydata$c_s3q5_other[3056] <- "Other"
mydata$c_s3q5_other[3057] <- "Other"
mydata$c_s3q5_other[3061] <- "Other"
mydata$c_s3q5_other[3062] <- "Other"
mydata$c_s3q5_other[3067] <- "Other"
mydata$c_s3q5_other[3068] <- "Other"
mydata$c_s3q5_other[3073] <- "Other"
mydata$c_s3q5_other[3082] <- "Other"
mydata$c_s3q5_other[3105] <- "Other"
mydata$c_s3q5_other[3112] <- "Other"
mydata$c_s3q5_other[3115] <- "Other"
mydata$c_s3q5_other[3407] <- "Other"
mydata$c_s3q5_other[3414] <- "Other"
mydata$c_s3q5_other[3415] <- "Other"
mydata$c_s3q5_other[3506] <- "Other"
mydata$c_s3q5_other[3510] <- "Other"
mydata$c_s3q5_other[3511] <- "Other"
mydata$c_s3q5_other[3512] <- "Other"
mydata$c_s3q5_other[3519] <- "Other"
mydata$c_s3q5_other[3520] <- "Other"
mydata$c_s3q5_other[3524] <- "Other"
mydata$c_s3q5_other[3525] <- "Other"
mydata$c_s3q5_other[3526] <- "Other"
mydata$c_s3q5_other[3532] <- "Other"
mydata$c_s3q5_other[3538] <- "Other"
mydata$c_s3q5_other[3550] <- "Other"
mydata$c_s3q5_other[3554] <- "Other"
mydata$c_s3q5_other[3555] <- "Other"
mydata$c_s3q5_other[3556] <- "Other"
mydata$c_s3q5_other[3560] <- "Other"
mydata$c_s3q5_other[3576] <- "Other"
mydata$c_s3q5_other[3577] <- "Other"
mydata$c_s3q5_other[3583] <- "Other"
mydata$c_s3q5_other[3609] <- "Other"
mydata$c_s3q5_other[3613] <- "Other"
mydata$c_s3q5_other[3615] <- "Other"
mydata$c_s3q5_other[3617] <- "Other"
mydata$c_s3q5_other[3624] <- "Other"
mydata$c_s3q5_other[3625] <- "Other"
mydata$c_s3q5_other[3648] <- "Other"
mydata$c_s3q5_other[3661] <- "Other"
mydata$c_s3q5_other[3666] <- "Other"
mydata$c_s3q5_other[3671] <- "Other"
mydata$c_s3q5_other[3681] <- "Other"
mydata$c_s3q5_other[3688] <- "Other"
mydata$c_s3q5_other[3689] <- "Other"
mydata$c_s3q5_other[3695] <- "Other"
mydata$c_s3q5_other[3698] <- "Other"
mydata$c_s3q5_other[3699] <- "Other"
mydata$c_s3q5_other[3703] <- "Other"
mydata$c_s3q5_other[3706] <- "Other"
mydata$c_s3q5_other[3709] <- "Other"
mydata$c_s3q5_other[3710] <- "Other"
mydata$c_s3q5_other[3719] <- "Other"
mydata$c_s3q5_other[3721] <- "Other"
mydata$c_s3q5_other[3727] <- "Other"
mydata$c_s3q5_other[3729] <- "Other"
mydata$c_s3q5_other[3740] <- "Other"
mydata$c_s3q5_other[3741] <- "Other"
mydata$c_s3q5_other[3759] <- "Other"
mydata$c_s3q5_other[3776] <- "Other"
mydata$c_s3q5_other[3831] <- "Other"
mydata$c_s3q5_other[3973] <- "Other"
mydata$c_s3q5_other[3974] <- "Other"
mydata$c_s3q5_other[3975] <- "Other"
mydata$c_s3q5_other[3976] <- "Other"
mydata$c_s3q5_other[3977] <- "Other"
mydata$c_s3q5_other[3984] <- "Other"
mydata$c_s3q5_other[3989] <- "Other"
mydata$c_s3q5_other[3991] <- "Other"
mydata$c_s3q5_other[3992] <- "Other"
mydata$c_s3q5_other[3993] <- "Other"
mydata$c_s3q5_other[3995] <- "Other"
mydata$c_s3q5_other[3996] <- "Other"
mydata$c_s3q5_other[3997] <- "Other"
mydata$c_s3q5_other[3999] <- "Other"
mydata$c_s3q5_other[4000] <- "Other"
mydata$c_s3q5_other[4001] <- "Other"
mydata$c_s3q5_other[4002] <- "Other"
mydata$c_s3q5_other[4006] <- "Other"
mydata$c_s3q5_other[4009] <- "Other"
mydata$c_s3q5_other[4010] <- "Other"
mydata$c_s3q5_other[4011] <- "Other"
mydata$c_s3q5_other[4013] <- "Other"
mydata$c_s3q5_other[4015] <- "Other"
mydata$c_s3q5_other[4020] <- "Other"
mydata$c_s3q5_other[4021] <- "Other"
mydata$c_s3q5_other[4022] <- "Other"
mydata$c_s3q5_other[4023] <- "Other"
mydata$c_s3q5_other[4024] <- "Other"
mydata$c_s3q5_other[4025] <- "Other"
mydata$c_s3q5_other[4026] <- "Other"
mydata$c_s3q5_other[4027] <- "Other"
mydata$c_s3q5_other[4028] <- "Other"
mydata$c_s3q5_other[4029] <- "Other"
mydata$c_s3q5_other[4030] <- "Other"
mydata$c_s3q5_other[4031] <- "Other"
mydata$c_s3q5_other[4033] <- "Other"
mydata$c_s3q5_other[4040] <- "Other"
mydata$c_s3q5_other[4041] <- "Other"
mydata$c_s3q5_other[4045] <- "Other"
mydata$c_s3q5_other[4046] <- "Other"
mydata$c_s3q5_other[4047] <- "Other"
mydata$c_s3q5_other[4056] <- "Other"
mydata$c_s3q5_other[4057] <- "Other"
mydata$c_s3q5_other[4058] <- "Other"
mydata$c_s3q5_other[4059] <- "Other"
mydata$c_s3q5_other[4060] <- "Other"
mydata$c_s3q5_other[4065] <- "Other"
mydata$c_s3q5_other[4270] <- "Other"
mydata$c_s3q5_other[4273] <- "Other"
mydata$c_s3q5_other[4274] <- "Other"
mydata$c_s3q5_other[4275] <- "Other"
mydata$c_s3q5_other[4283] <- "Other"
mydata$c_s3q5_other[4284] <- "Other"
mydata$c_s3q5_other[4285] <- "Other"
mydata$c_s3q5_other[4287] <- "Other"
mydata$c_s3q5_other[4288] <- "Other"
mydata$c_s3q5_other[4294] <- "Other"
mydata$c_s3q5_other[4301] <- "Other"
mydata$c_s3q5noresponse[335] <- "Other"
mydata$c_s3q5noresponse[336] <- "Other"
mydata$c_s3q5noresponse[383] <- "Other"
mydata$c_s3q5noresponse[742] <- "Other"
mydata$c_s3q5noresponse[1010] <- "Other"
mydata$c_s3q5noresponse[1290] <- "Other"
mydata$c_s3q5noresponse[1320] <- "Other"
mydata$c_s3q5noresponse[1327] <- "Other"
mydata$c_s3q5noresponse[1419] <- "Other"
mydata$c_s3q5noresponse[1491] <- "Other"
mydata$c_s3q5noresponse[1493] <- "Other"
mydata$c_s3q5noresponse[1496] <- "Other"
mydata$c_s3q5noresponse[1560] <- "Other"
mydata$c_s3q5noresponse[1595] <- "Other"
mydata$c_s3q5noresponse[1615] <- "Other"
mydata$c_s3q5noresponse[1617] <- "Other"
mydata$c_s3q5noresponse[1678] <- "Other"
mydata$c_s3q5noresponse[1685] <- "Other"
mydata$c_s3q5noresponse[1749] <- "Other"
mydata$c_s3q5noresponse[1754] <- "Other"
mydata$c_s3q5noresponse[1771] <- "Other"
mydata$c_s3q5noresponse[1799] <- "Other"
mydata$c_s3q5noresponse[1822] <- "Other"
mydata$c_s3q5noresponse[1827] <- "Other"
mydata$c_s3q5noresponse[1828] <- "Other"
mydata$c_s3q5noresponse[1833] <- "Other"
mydata$c_s3q5noresponse[1834] <- "Other"
mydata$c_s3q5noresponse[1837] <- "Other"
mydata$c_s3q5noresponse[1838] <- "Other"
mydata$c_s3q5noresponse[1857] <- "Other"
mydata$c_s3q5noresponse[1900] <- "Other"
mydata$c_s3q5noresponse[1998] <- "Other"
mydata$c_s3q5noresponse[2086] <- "Other"
mydata$c_s3q5noresponse[2161] <- "Other"
mydata$c_s3q5noresponse[2203] <- "Other"
mydata$c_s3q5noresponse[2660] <- "Other"
mydata$c_s3q5noresponse[3247] <- "Other"
mydata$c_s3q5noresponse[3933] <- "Other"
mydata$c_s3q5noresponse[626] <- "Other"
mydata$c_s3q5noresponse[645] <- "Other"
mydata$c_s3q5noresponse[652] <- "Other"
mydata$c_s3q5noresponse[680] <- "Other"
mydata$c_s3q5noresponse[684] <- "Other"
mydata$c_s3q5noresponse[700] <- "Other"
mydata$c_s3q5noresponse[712] <- "Other"
mydata$c_s3q5noresponse[739] <- "Other"
mydata$c_s3q5noresponse[740] <- "Other"
mydata$c_s3q5noresponse[741] <- "Other"
mydata$c_s3q5noresponse[748] <- "Other"
mydata$c_s3q5noresponse[749] <- "Other"
mydata$c_s3q5noresponse[750] <- "Other"
mydata$c_s3q5noresponse[751] <- "Other"
mydata$c_s3q5noresponse[759] <- "Other"
mydata$c_s3q5noresponse[769] <- "Other"
mydata$c_s3q5noresponse[774] <- "Other"
mydata$c_s3q5noresponse[778] <- "Other"
mydata$c_s3q5noresponse[779] <- "Other"
mydata$c_s3q5noresponse[781] <- "Other"
mydata$c_s3q5noresponse[784] <- "Other"
mydata$c_s3q5noresponse[800] <- "Other"
mydata$c_s3q5noresponse[801] <- "Other"
mydata$c_s3q5noresponse[803] <- "Other"
mydata$c_s3q5noresponse[804] <- "Other"
mydata$c_s3q5noresponse[805] <- "Other"
mydata$c_s3q5noresponse[810] <- "Other"
mydata$c_s3q5noresponse[812] <- "Other"
mydata$c_s3q5noresponse[816] <- "Other"
mydata$c_s3q5noresponse[821] <- "Other"
mydata$c_s3q5noresponse[824] <- "Other"
mydata$c_s3q5noresponse[825] <- "Other"
mydata$c_s3q5noresponse[832] <- "Other"
mydata$c_s3q5noresponse[843] <- "Other"
mydata$c_s3q5noresponse[844] <- "Other"
mydata$c_s3q5noresponse[846] <- "Other"
mydata$c_s3q5noresponse[847] <- "Other"
mydata$c_s3q5noresponse[851] <- "Other"
mydata$c_s3q5noresponse[853] <- "Other"
mydata$c_s3q5noresponse[854] <- "Other"
mydata$c_s3q5noresponse[855] <- "Other"
mydata$c_s3q5noresponse[859] <- "Other"
mydata$c_s3q5noresponse[860] <- "Other"
mydata$c_s3q5noresponse[864] <- "Other"
mydata$c_s3q5noresponse[865] <- "Other"
mydata$c_s3q5noresponse[877] <- "Other"
mydata$c_s3q5noresponse[883] <- "Other"
mydata$c_s3q5noresponse[884] <- "Other"
mydata$c_s3q5noresponse[886] <- "Other"
mydata$c_s3q5noresponse[888] <- "Other"
mydata$c_s3q5noresponse[889] <- "Other"
mydata$c_s3q5noresponse[891] <- "Other"
mydata$c_s3q5noresponse[899] <- "Other"
mydata$c_s3q5noresponse[900] <- "Other"
mydata$c_s3q5noresponse[902] <- "Other"
mydata$c_s3q5noresponse[906] <- "Other"
mydata$c_s3q5noresponse[907] <- "Other"
mydata$c_s3q5noresponse[908] <- "Other"
mydata$c_s3q5noresponse[913] <- "Other"
mydata$c_s3q5noresponse[915] <- "Other"
mydata$c_s3q5noresponse[916] <- "Other"
mydata$c_s3q5noresponse[952] <- "Other"
mydata$c_s3q5noresponse[954] <- "Other"
mydata$c_s3q5noresponse[962] <- "Other"
mydata$c_s3q5noresponse[970] <- "Other"
mydata$c_s3q5noresponse[971] <- "Other"
mydata$c_s3q5noresponse[975] <- "Other"
mydata$c_s3q5noresponse[978] <- "Other"
mydata$c_s3q5noresponse[979] <- "Other"
mydata$c_s3q5noresponse[980] <- "Other"
mydata$c_s3q5noresponse[985] <- "Other"
mydata$c_s3q5noresponse[987] <- "Other"
mydata$c_s3q5noresponse[988] <- "Other"
mydata$c_s3q5noresponse[991] <- "Other"
mydata$c_s3q5noresponse[992] <- "Other"
mydata$c_s3q5noresponse[996] <- "Other"
mydata$c_s3q5noresponse[1000] <- "Other"
mydata$c_s3q5noresponse[1002] <- "Other"
mydata$c_s3q5noresponse[1004] <- "Other"
mydata$c_s3q5noresponse[1009] <- "Other"
mydata$c_s3q5noresponse[1018] <- "Other"
mydata$c_s3q5noresponse[1021] <- "Other"
mydata$c_s3q5noresponse[1023] <- "Other"
mydata$c_s3q5noresponse[1025] <- "Other"
mydata$c_s3q5noresponse[1028] <- "Other"
mydata$c_s3q5noresponse[1029] <- "Other"
mydata$c_s3q5noresponse[1034] <- "Other"
mydata$c_s3q5noresponse[1036] <- "Other"
mydata$c_s3q5noresponse[1044] <- "Other"
mydata$c_s3q5noresponse[1055] <- "Other"
mydata$c_s3q5noresponse[1060] <- "Other"
mydata$c_s3q5noresponse[1064] <- "Other"
mydata$c_s3q5noresponse[1072] <- "Other"
mydata$c_s3q5noresponse[1073] <- "Other"
mydata$c_s3q5noresponse[1076] <- "Other"
mydata$c_s3q5noresponse[1083] <- "Other"
mydata$c_s3q5noresponse[1086] <- "Other"
mydata$c_s3q5noresponse[1093] <- "Other"
mydata$c_s3q5noresponse[1094] <- "Other"
mydata$c_s3q5noresponse[1097] <- "Other"
mydata$c_s3q5noresponse[1104] <- "Other"
mydata$c_s3q5noresponse[1105] <- "Other"
mydata$c_s3q5noresponse[1106] <- "Other"
mydata$c_s3q5noresponse[1128] <- "Other"
mydata$c_s3q5noresponse[1132] <- "Other"
mydata$c_s3q5noresponse[1134] <- "Other"
mydata$c_s3q5noresponse[1138] <- "Other"
mydata$c_s3q5noresponse[1158] <- "Other"
mydata$c_s3q5noresponse[1162] <- "Other"
mydata$c_s3q5noresponse[1166] <- "Other"
mydata$c_s3q5noresponse[1734] <- "Other"
mydata$c_s3q5noresponse[2148] <- "Other"
mydata$c_s3q5noresponse[2354] <- "Other"
mydata$c_s3q5noresponse[2473] <- "Other"
mydata$c_s3q5noresponse[2497] <- "Other"
mydata$c_s3q5noresponse[2499] <- "Other"
mydata$c_s3q5noresponse[2500] <- "Other"
mydata$c_s3q5noresponse[2512] <- "Other"
mydata$c_s3q5noresponse[2524] <- "Other"
mydata$c_s3q5noresponse[2525] <- "Other"
mydata$c_s3q5noresponse[2526] <- "Other"
mydata$c_s3q5noresponse[2527] <- "Other"
mydata$c_s3q5noresponse[2542] <- "Other"
mydata$c_s3q5noresponse[2546] <- "Other"
mydata$c_s3q5noresponse[2560] <- "Other"
mydata$c_s3q5noresponse[2674] <- "Other"
mydata$c_s3q5noresponse[2685] <- "Other"
mydata$c_s3q5noresponse[2690] <- "Other"
mydata$c_s3q5noresponse[2695] <- "Other"
mydata$c_s3q5noresponse[2702] <- "Other"
mydata$c_s3q5noresponse[2709] <- "Other"
mydata$c_s3q5noresponse[2710] <- "Other"
mydata$c_s3q5noresponse[2719] <- "Other"
mydata$c_s3q5noresponse[2728] <- "Other"
mydata$c_s3q5noresponse[2735] <- "Other"
mydata$c_s3q5noresponse[2736] <- "Other"
mydata$c_s3q5noresponse[2737] <- "Other"
mydata$c_s3q5noresponse[2761] <- "Other"
mydata$c_s3q5noresponse[2762] <- "Other"
mydata$c_s3q5noresponse[2768] <- "Other"
mydata$c_s3q5noresponse[2771] <- "Other"
mydata$c_s3q5noresponse[2789] <- "Other"
mydata$c_s3q5noresponse[2792] <- "Other"
mydata$c_s3q5noresponse[2793] <- "Other"
mydata$c_s3q5noresponse[2802] <- "Other"
mydata$c_s3q5noresponse[2803] <- "Other"
mydata$c_s3q5noresponse[2822] <- "Other"
mydata$c_s3q5noresponse[2823] <- "Other"
mydata$c_s3q5noresponse[2824] <- "Other"
mydata$c_s3q5noresponse[2830] <- "Other"
mydata$c_s3q5noresponse[2832] <- "Other"
mydata$c_s3q5noresponse[2833] <- "Other"
mydata$c_s3q5noresponse[2834] <- "Other"
mydata$c_s3q5noresponse[2842] <- "Other"
mydata$c_s3q5noresponse[2843] <- "Other"
mydata$c_s3q5noresponse[2844] <- "Other"
mydata$c_s3q5noresponse[2845] <- "Other"
mydata$c_s3q5noresponse[2856] <- "Other"
mydata$c_s3q5noresponse[2857] <- "Other"
mydata$c_s3q5noresponse[2861] <- "Other"
mydata$c_s3q5noresponse[2862] <- "Other"
mydata$c_s3q5noresponse[2871] <- "Other"
mydata$c_s3q5noresponse[2872] <- "Other"
mydata$c_s3q5noresponse[2911] <- "Other"
mydata$c_s3q5noresponse[2914] <- "Other"
mydata$c_s3q5noresponse[2927] <- "Other"
mydata$c_s3q5noresponse[2942] <- "Other"
mydata$c_s3q5noresponse[2943] <- "Other"
mydata$c_s3q5noresponse[2945] <- "Other"
mydata$c_s3q5noresponse[2950] <- "Other"
mydata$c_s3q5noresponse[2952] <- "Other"
mydata$c_s3q5noresponse[2953] <- "Other"
mydata$c_s3q5noresponse[2954] <- "Other"
mydata$c_s3q5noresponse[2958] <- "Other"
mydata$c_s3q5noresponse[2959] <- "Other"
mydata$c_s3q5noresponse[2966] <- "Other"
mydata$c_s3q5noresponse[2983] <- "Other"
mydata$c_s3q5noresponse[2984] <- "Other"
mydata$c_s3q5noresponse[2985] <- "Other"
mydata$c_s3q5noresponse[2986] <- "Other"
mydata$c_s3q5noresponse[2987] <- "Other"
mydata$c_s3q5noresponse[2990] <- "Other"
mydata$c_s3q5noresponse[2991] <- "Other"
mydata$c_s3q5noresponse[2995] <- "Other"
mydata$c_s3q5noresponse[2999] <- "Other"
mydata$c_s3q5noresponse[3003] <- "Other"
mydata$c_s3q5noresponse[3004] <- "Other"
mydata$c_s3q5noresponse[3005] <- "Other"
mydata$c_s3q5noresponse[3007] <- "Other"
mydata$c_s3q5noresponse[3035] <- "Other"
mydata$c_s3q5noresponse[3036] <- "Other"
mydata$c_s3q5noresponse[3037] <- "Other"
mydata$c_s3q5noresponse[3039] <- "Other"
mydata$c_s3q5noresponse[3044] <- "Other"
mydata$c_s3q5noresponse[3053] <- "Other"
mydata$c_s3q5noresponse[3054] <- "Other"
mydata$c_s3q5noresponse[3055] <- "Other"
mydata$c_s3q5noresponse[3056] <- "Other"
mydata$c_s3q5noresponse[3057] <- "Other"
mydata$c_s3q5noresponse[3061] <- "Other"
mydata$c_s3q5noresponse[3062] <- "Other"
mydata$c_s3q5noresponse[3067] <- "Other"
mydata$c_s3q5noresponse[3068] <- "Other"
mydata$c_s3q5noresponse[3073] <- "Other"
mydata$c_s3q5noresponse[3082] <- "Other"
mydata$c_s3q5noresponse[3105] <- "Other"
mydata$c_s3q5noresponse[3112] <- "Other"
mydata$c_s3q5noresponse[3115] <- "Other"
mydata$c_s3q5noresponse[3407] <- "Other"
mydata$c_s3q5noresponse[3414] <- "Other"
mydata$c_s3q5noresponse[3415] <- "Other"
mydata$c_s3q5noresponse[3506] <- "Other"
mydata$c_s3q5noresponse[3510] <- "Other"
mydata$c_s3q5noresponse[3511] <- "Other"
mydata$c_s3q5noresponse[3512] <- "Other"
mydata$c_s3q5noresponse[3519] <- "Other"
mydata$c_s3q5noresponse[3520] <- "Other"
mydata$c_s3q5noresponse[3524] <- "Other"
mydata$c_s3q5noresponse[3525] <- "Other"
mydata$c_s3q5noresponse[3526] <- "Other"
mydata$c_s3q5noresponse[3532] <- "Other"
mydata$c_s3q5noresponse[3538] <- "Other"
mydata$c_s3q5noresponse[3550] <- "Other"
mydata$c_s3q5noresponse[3554] <- "Other"
mydata$c_s3q5noresponse[3555] <- "Other"
mydata$c_s3q5noresponse[3556] <- "Other"
mydata$c_s3q5noresponse[3560] <- "Other"
mydata$c_s3q5noresponse[3576] <- "Other"
mydata$c_s3q5noresponse[3577] <- "Other"
mydata$c_s3q5noresponse[3583] <- "Other"
mydata$c_s3q5noresponse[3609] <- "Other"
mydata$c_s3q5noresponse[3613] <- "Other"
mydata$c_s3q5noresponse[3615] <- "Other"
mydata$c_s3q5noresponse[3617] <- "Other"
mydata$c_s3q5noresponse[3624] <- "Other"
mydata$c_s3q5noresponse[3625] <- "Other"
mydata$c_s3q5noresponse[3648] <- "Other"
mydata$c_s3q5noresponse[3661] <- "Other"
mydata$c_s3q5noresponse[3666] <- "Other"
mydata$c_s3q5noresponse[3671] <- "Other"
mydata$c_s3q5noresponse[3681] <- "Other"
mydata$c_s3q5noresponse[3688] <- "Other"
mydata$c_s3q5noresponse[3689] <- "Other"
mydata$c_s3q5noresponse[3695] <- "Other"
mydata$c_s3q5noresponse[3698] <- "Other"
mydata$c_s3q5noresponse[3699] <- "Other"
mydata$c_s3q5noresponse[3703] <- "Other"
mydata$c_s3q5noresponse[3706] <- "Other"
mydata$c_s3q5noresponse[3709] <- "Other"
mydata$c_s3q5noresponse[3710] <- "Other"
mydata$c_s3q5noresponse[3719] <- "Other"
mydata$c_s3q5noresponse[3721] <- "Other"
mydata$c_s3q5noresponse[3727] <- "Other"
mydata$c_s3q5noresponse[3729] <- "Other"
mydata$c_s3q5noresponse[3740] <- "Other"
mydata$c_s3q5noresponse[3741] <- "Other"
mydata$c_s3q5noresponse[3759] <- "Other"
mydata$c_s3q5noresponse[3776] <- "Other"
mydata$c_s3q5noresponse[3831] <- "Other"
mydata$c_s3q5noresponse[3973] <- "Other"
mydata$c_s3q5noresponse[3974] <- "Other"
mydata$c_s3q5noresponse[3975] <- "Other"
mydata$c_s3q5noresponse[3976] <- "Other"
mydata$c_s3q5noresponse[3977] <- "Other"
mydata$c_s3q5noresponse[3984] <- "Other"
mydata$c_s3q5noresponse[3989] <- "Other"
mydata$c_s3q5noresponse[3991] <- "Other"
mydata$c_s3q5noresponse[3992] <- "Other"
mydata$c_s3q5noresponse[3993] <- "Other"
mydata$c_s3q5noresponse[3995] <- "Other"
mydata$c_s3q5noresponse[3996] <- "Other"
mydata$c_s3q5noresponse[3997] <- "Other"
mydata$c_s3q5noresponse[3999] <- "Other"
mydata$c_s3q5noresponse[4000] <- "Other"
mydata$c_s3q5noresponse[4001] <- "Other"
mydata$c_s3q5noresponse[4002] <- "Other"
mydata$c_s3q5noresponse[4006] <- "Other"
mydata$c_s3q5noresponse[4009] <- "Other"
mydata$c_s3q5noresponse[4010] <- "Other"
mydata$c_s3q5noresponse[4011] <- "Other"
mydata$c_s3q5noresponse[4013] <- "Other"
mydata$c_s3q5noresponse[4015] <- "Other"
mydata$c_s3q5noresponse[4020] <- "Other"
mydata$c_s3q5noresponse[4021] <- "Other"
mydata$c_s3q5noresponse[4022] <- "Other"
mydata$c_s3q5noresponse[4023] <- "Other"
mydata$c_s3q5noresponse[4024] <- "Other"
mydata$c_s3q5noresponse[4025] <- "Other"
mydata$c_s3q5noresponse[4026] <- "Other"
mydata$c_s3q5noresponse[4027] <- "Other"
mydata$c_s3q5noresponse[4028] <- "Other"
mydata$c_s3q5noresponse[4029] <- "Other"
mydata$c_s3q5noresponse[4030] <- "Other"
mydata$c_s3q5noresponse[4031] <- "Other"
mydata$c_s3q5noresponse[4033] <- "Other"
mydata$c_s3q5noresponse[4040] <- "Other"
mydata$c_s3q5noresponse[4041] <- "Other"
mydata$c_s3q5noresponse[4045] <- "Other"
mydata$c_s3q5noresponse[4046] <- "Other"
mydata$c_s3q5noresponse[4047] <- "Other"
mydata$c_s3q5noresponse[4056] <- "Other"
mydata$c_s3q5noresponse[4057] <- "Other"
mydata$c_s3q5noresponse[4058] <- "Other"
mydata$c_s3q5noresponse[4059] <- "Other"
mydata$c_s3q5noresponse[4060] <- "Other"
mydata$c_s3q5noresponse[4065] <- "Other"
mydata$c_s3q5noresponse[4270] <- "Other"
mydata$c_s3q5noresponse[4273] <- "Other"
mydata$c_s3q5noresponse[4274] <- "Other"
mydata$c_s3q5noresponse[4275] <- "Other"
mydata$c_s3q5noresponse[4283] <- "Other"
mydata$c_s3q5noresponse[4284] <- "Other"
mydata$c_s3q5noresponse[4285] <- "Other"
mydata$c_s3q5noresponse[4287] <- "Other"
mydata$c_s3q5noresponse[4288] <- "Other"
mydata$c_s3q5noresponse[4294] <- "Other"
mydata$c_s3q5noresponse[4301] <- "Other"
mydata$c_s3q5noresponse[4000] <- "Other"
mydata$c_s3q5noresponse[4001] <- "Other"
mydata$c_s3q5noresponse[4002] <- "Other"
mydata$c_s3q5noresponse[4006] <- "Other"
mydata$c_s3q5noresponse[4010] <- "Other"
mydata$c_s3q5noresponse[4011] <- "Other"
mydata$c_s3q5noresponse[4013] <- "Other"
mydata$c_s3q5noresponse[4015] <- "Other"
mydata$c_s3q5noresponse[4017] <- "Other"
mydata$c_s3q5noresponse[4018] <- "Other"
mydata$c_s3q5noresponse[4020] <- "Other"
mydata$c_s3q5noresponse[4021] <- "Other"
mydata$c_s3q5noresponse[4022] <- "Other"
mydata$c_s3q5noresponse[4023] <- "Other"
mydata$c_s3q5noresponse[4024] <- "Other"
mydata$c_s3q5noresponse[4025] <- "Other"
mydata$c_s3q5noresponse[4026] <- "Other"
mydata$c_s3q5noresponse[4027] <- "Other"
mydata$c_s3q5noresponse[4028] <- "Other"
mydata$c_s3q5noresponse[4033] <- "Other"
mydata$c_s3q5noresponse[4040] <- "Other"
mydata$c_s3q5noresponse[4041] <- "Other"
mydata$c_s3q5noresponse[4044] <- "Other"
mydata$c_s3q5noresponse[4045] <- "Other"
mydata$c_s3q5noresponse[4046] <- "Other"
mydata$c_s3q5noresponse[4047] <- "Other"
mydata$c_s3q5noresponse[4056] <- "Other"
mydata$c_s3q5noresponse[4057] <- "Other"
mydata$c_s3q5noresponse[4058] <- "Other"
mydata$c_s3q5noresponse[4059] <- "Other"
mydata$c_s3q5noresponse[4060] <- "Other"
mydata$c_s3q5noresponse[4254] <- "Other"
mydata$c_s3q5noresponse[4261] <- "Other"
mydata$c_s3q5noresponse[4270] <- "Other"
mydata$c_s3q5noresponse[4273] <- "Other"
mydata$c_s3q5noresponse[4274] <- "Other"
mydata$c_s3q5noresponse[4275] <- "Other"
mydata$c_s3q5noresponse[4284] <- "Other"
mydata$c_s3q5noresponse[4285] <- "Other"
mydata$c_s3q5noresponse[4287] <- "Other"
mydata$c_s3q5noresponse[4288] <- "Other"
mydata$c_s3q5noresponse[4294] <- "Other"
mydata$c_s3q5noresponse[4301] <- "Other"
mydata$c_s3q6_other[45] <- "Other"
mydata$c_s3q6_other[49] <- "Other"
mydata$c_s3q6_other[68] <- "Other"
mydata$c_s3q6_other[199] <- "Other"
mydata$c_s3q6_other[238] <- "Other"
mydata$c_s3q6_other[258] <- "Other"
mydata$c_s3q6_other[276] <- "Other"
mydata$c_s3q6_other[336] <- "Other"
mydata$c_s3q6_other[612] <- "Other"
mydata$c_s3q6_other[653] <- "Other"
mydata$c_s3q6_other[703] <- "Other"
mydata$c_s3q6_other[729] <- "Other"
mydata$c_s3q6_other[740] <- "Other"
mydata$c_s3q6_other[757] <- "Other"
mydata$c_s3q6_other[793] <- "Other"
mydata$c_s3q6_other[851] <- "Other"
mydata$c_s3q6_other[853] <- "Other"
mydata$c_s3q6_other[877] <- "Other"
mydata$c_s3q6_other[901] <- "Other"
mydata$c_s3q6_other[922] <- "Other"
mydata$c_s3q6_other[925] <- "Other"
mydata$c_s3q6_other[932] <- "Other"
mydata$c_s3q6_other[953] <- "Other"
mydata$c_s3q6_other[972] <- "Other"
mydata$c_s3q6_other[992] <- "Other"
mydata$c_s3q6_other[995] <- "Other"
mydata$c_s3q6_other[1034] <- "Other"
mydata$c_s3q6_other[1040] <- "Other"
mydata$c_s3q6_other[1072] <- "Other"
mydata$c_s3q6_other[1073] <- "Other"
mydata$c_s3q6_other[1112] <- "Other"
mydata$c_s3q6_other[1123] <- "Other"
mydata$c_s3q6_other[1128] <- "Other"
mydata$c_s3q6_other[1133] <- "Other"
mydata$c_s3q6_other[1144] <- "Other"
mydata$c_s3q6_other[1163] <- "Other"
mydata$c_s3q6_other[1183] <- "Other"
mydata$c_s3q6_other[1185] <- "Other"
mydata$c_s3q6_other[1232] <- "Other"
mydata$c_s3q6_other[1252] <- "Other"
mydata$c_s3q6_other[1307] <- "Other"
mydata$c_s3q6_other[1345] <- "Other"
mydata$c_s3q6_other[1367] <- "Other"
mydata$c_s3q6_other[1368] <- "Other"
mydata$c_s3q6_other[1399] <- "Other"
mydata$c_s3q6_other[1418] <- "Other"
mydata$c_s3q6_other[1419] <- "Other"
mydata$c_s3q6_other[1450] <- "Other"
mydata$c_s3q6_other[1456] <- "Other"
mydata$c_s3q6_other[1484] <- "Other"
mydata$c_s3q6_other[1485] <- "Other"
mydata$c_s3q6_other[1491] <- "Other"
mydata$c_s3q6_other[1493] <- "Other"
mydata$c_s3q6_other[1499] <- "Other"
mydata$c_s3q6_other[1520] <- "Other"
mydata$c_s3q6_other[1560] <- "Other"
mydata$c_s3q6_other[1572] <- "Other"
mydata$c_s3q6_other[1574] <- "Other"
mydata$c_s3q6_other[1583] <- "Other"
mydata$c_s3q6_other[1595] <- "Other"
mydata$c_s3q6_other[1596] <- "Other"
mydata$c_s3q6_other[1599] <- "Other"
mydata$c_s3q6_other[1606] <- "Other"
mydata$c_s3q6_other[1647] <- "Other"
mydata$c_s3q6_other[1664] <- "Other"
mydata$c_s3q6_other[1685] <- "Other"
mydata$c_s3q6_other[1707] <- "Other"
mydata$c_s3q6_other[1712] <- "Other"
mydata$c_s3q6_other[1713] <- "Other"
mydata$c_s3q6_other[1754] <- "Other"
mydata$c_s3q6_other[1771] <- "Other"
mydata$c_s3q6_other[1773] <- "Other"
mydata$c_s3q6_other[1779] <- "Other"
mydata$c_s3q6_other[1787] <- "Other"
mydata$c_s3q6_other[1791] <- "Other"
mydata$c_s3q6_other[1797] <- "Other"
mydata$c_s3q6_other[1798] <- "Other"
mydata$c_s3q6_other[1799] <- "Other"
mydata$c_s3q6_other[1803] <- "Other"
mydata$c_s3q6_other[1847] <- "Other"
mydata$c_s3q6_other[1861] <- "Other"
mydata$c_s3q6_other[1899] <- "Other"
mydata$c_s3q6_other[1901] <- "Other"
mydata$c_s3q6_other[1922] <- "Other"
mydata$c_s3q6_other[1936] <- "Other"
mydata$c_s3q6_other[2033] <- "Other"
mydata$c_s3q6_other[2153] <- "Other"
mydata$c_s3q6_other[2275] <- "Other"
mydata$c_s3q6_other[2366] <- "Other"
mydata$c_s3q6_other[2369] <- "Other"
mydata$c_s3q6_other[2371] <- "Other"
mydata$c_s3q6_other[2378] <- "Other"
mydata$c_s3q6_other[2397] <- "Other"
mydata$c_s3q6_other[2470] <- "Other"
mydata$c_s3q6_other[2471] <- "Other"
mydata$c_s3q6_other[2482] <- "Other"
mydata$c_s3q6_other[2580] <- "Other"
mydata$c_s3q6_other[2590] <- "Other"
mydata$c_s3q6_other[2603] <- "Other"
mydata$c_s3q6_other[2610] <- "Other"
mydata$c_s3q6_other[2627] <- "Other"
mydata$c_s3q6_other[2629] <- "Other"
mydata$c_s3q6_other[2633] <- "Other"
mydata$c_s3q6_other[2653] <- "Other"
mydata$c_s3q6_other[2666] <- "Other"
mydata$c_s3q6_other[2693] <- "Other"
mydata$c_s3q6_other[2756] <- "Other"
mydata$c_s3q6_other[2766] <- "Other"
mydata$c_s3q6_other[2770] <- "Other"
mydata$c_s3q6_other[2771] <- "Other"
mydata$c_s3q6_other[2783] <- "Other"
mydata$c_s3q6_other[2800] <- "Other"
mydata$c_s3q6_other[2821] <- "Other"
mydata$c_s3q6_other[2850] <- "Other"
mydata$c_s3q6_other[2888] <- "Other"
mydata$c_s3q6_other[2971] <- "Other"
mydata$c_s3q6_other[2998] <- "Other"
mydata$c_s3q6_other[3038] <- "Other"
mydata$c_s3q6_other[3053] <- "Other"
mydata$c_s3q6_other[3063] <- "Other"
mydata$c_s3q6_other[3107] <- "Other"
mydata$c_s3q6_other[3109] <- "Other"
mydata$c_s3q6_other[3165] <- "Other"
mydata$c_s3q6_other[3193] <- "Other"
mydata$c_s3q6_other[3195] <- "Other"
mydata$c_s3q6_other[3196] <- "Other"
mydata$c_s3q6_other[3216] <- "Other"
mydata$c_s3q6_other[3218] <- "Other"
mydata$c_s3q6_other[3220] <- "Other"
mydata$c_s3q6_other[3247] <- "Other"
mydata$c_s3q6_other[3272] <- "Other"
mydata$c_s3q6_other[3288] <- "Other"
mydata$c_s3q6_other[3290] <- "Other"
mydata$c_s3q6_other[3295] <- "Other"
mydata$c_s3q6_other[3296] <- "Other"
mydata$c_s3q6_other[3302] <- "Other"
mydata$c_s3q6_other[3331] <- "Other"
mydata$c_s3q6_other[3339] <- "Other"
mydata$c_s3q6_other[3360] <- "Other"
mydata$c_s3q6_other[3377] <- "Other"
mydata$c_s3q6_other[3378] <- "Other"
mydata$c_s3q6_other[3382] <- "Other"
mydata$c_s3q6_other[3434] <- "Other"
mydata$c_s3q6_other[3441] <- "Other"
mydata$c_s3q6_other[3458] <- "Other"
mydata$c_s3q6_other[3472] <- "Other"
mydata$c_s3q6_other[3480] <- "Other"
mydata$c_s3q6_other[3493] <- "Other"
mydata$c_s3q6_other[3503] <- "Other"
mydata$c_s3q6_other[3529] <- "Other"
mydata$c_s3q6_other[3566] <- "Other"
mydata$c_s3q6_other[3571] <- "Other"
mydata$c_s3q6_other[3597] <- "Other"
mydata$c_s3q6_other[3599] <- "Other"
mydata$c_s3q6_other[3606] <- "Other"
mydata$c_s3q6_other[3618] <- "Other"
mydata$c_s3q6_other[3645] <- "Other"
mydata$c_s3q6_other[3648] <- "Other"
mydata$c_s3q6_other[3714] <- "Other"
mydata$c_s3q6_other[3724] <- "Other"
mydata$c_s3q6_other[3726] <- "Other"
mydata$c_s3q6_other[3744] <- "Other"
mydata$c_s3q6_other[3808] <- "Other"
mydata$c_s3q6_other[3814] <- "Other"
mydata$c_s3q6_other[3821] <- "Other"
mydata$c_s3q6_other[3837] <- "Other"
mydata$c_s3q6_other[3844] <- "Other"
mydata$c_s3q6_other[3853] <- "Other"
mydata$c_s3q6_other[3871] <- "Other"
mydata$c_s3q6_other[3874] <- "Other"
mydata$c_s3q6_other[3899] <- "Other"
mydata$c_s3q6_other[3900] <- "Other"
mydata$c_s3q6_other[3978] <- "Other"
mydata$c_s3q6_other[3995] <- "Other"
mydata$c_s3q6_other[4008] <- "Other"
mydata$c_s3q6_other[4009] <- "Other"
mydata$c_s3q6_other[4016] <- "Other"
mydata$c_s3q6_other[4029] <- "Other"
mydata$c_s3q6_other[4030] <- "Other"
mydata$c_s3q6_other[4031] <- "Other"
mydata$c_s3q6_other[4091] <- "Other"
mydata$c_s3q6_other[4093] <- "Other"
mydata$c_s3q6_other[4131] <- "Other"
mydata$c_s3q6_other[4189] <- "Other"
mydata$c_s3q6_other[4229] <- "Other"
mydata$c_s3q6_other[4272] <- "Other"
mydata$c_s3q6noresponse[731] <- "Other"
mydata$c_s3q6noresponse[741] <- "Other"
mydata$c_s3q6noresponse[748] <- "Other"
mydata$c_s3q6noresponse[872] <- "Other"
mydata$c_s3q6noresponse[952] <- "Other"
mydata$c_s3q6noresponse[978] <- "Other"
mydata$c_s3q6noresponse[1021] <- "Other"
mydata$c_s3q6noresponse[1083] <- "Other"
mydata$c_s3q6noresponse[1090] <- "Other"
mydata$c_s3q6noresponse[1193] <- "Other"
mydata$c_s3q6noresponse[1273] <- "Other"
mydata$c_s3q6noresponse[1327] <- "Other"
mydata$c_s3q6noresponse[1453] <- "Other"
mydata$c_s3q6noresponse[1490] <- "Other"
mydata$c_s3q6noresponse[1496] <- "Other"
mydata$c_s3q6noresponse[1592] <- "Other"
mydata$c_s3q6noresponse[1597] <- "Other"
mydata$c_s3q6noresponse[1598] <- "Other"
mydata$c_s3q6noresponse[1612] <- "Other"
mydata$c_s3q6noresponse[1615] <- "Other"
mydata$c_s3q6noresponse[1630] <- "Other"
mydata$c_s3q6noresponse[1631] <- "Other"
mydata$c_s3q6noresponse[1636] <- "Other"
mydata$c_s3q6noresponse[1645] <- "Other"
mydata$c_s3q6noresponse[1675] <- "Other"
mydata$c_s3q6noresponse[1678] <- "Other"
mydata$c_s3q6noresponse[1719] <- "Other"
mydata$c_s3q6noresponse[1722] <- "Other"
mydata$c_s3q6noresponse[1729] <- "Other"
mydata$c_s3q6noresponse[1815] <- "Other"
mydata$c_s3q6noresponse[1885] <- "Other"
mydata$c_s3q6noresponse[1900] <- "Other"
mydata$c_s3q6noresponse[1943] <- "Other"
mydata$c_s3q6noresponse[1998] <- "Other"
mydata$c_s3q6noresponse[2341] <- "Other"
mydata$c_s3q6noresponse[2386] <- "Other"
mydata$c_s3q6noresponse[2468] <- "Other"
mydata$c_s3q6noresponse[2583] <- "Other"
mydata$c_s3q6noresponse[2585] <- "Other"
mydata$c_s3q6noresponse[2830] <- "Other"
mydata$c_s3q6noresponse[2856] <- "Other"
mydata$c_s3q6noresponse[2857] <- "Other"
mydata$c_s3q6noresponse[2958] <- "Other"
mydata$c_s3q6noresponse[3252] <- "Other"
mydata$c_s3q6noresponse[3254] <- "Other"
mydata$c_s3q6noresponse[3806] <- "Other"
mydata$c_s3q6noresponse[3823] <- "Other"
mydata$c_s3q6noresponse[3902] <- "Other"
mydata$c_s3q6noresponse[3916] <- "Other"
mydata$c_s3q6noresponse[3918] <- "Other"
mydata$c_s3q6noresponse[3968] <- "Other"
mydata$c_s3q7_other[290] <- "Other"
mydata$c_s3q7_other[336] <- "Other"
mydata$c_s3q7_other[609] <- "Other"
mydata$c_s3q7_other[653] <- "Other"
mydata$c_s3q7_other[813] <- "Other"
mydata$c_s3q7_other[901] <- "Other"
mydata$c_s3q7_other[959] <- "Other"
mydata$c_s3q7_other[972] <- "Other"
mydata$c_s3q7_other[973] <- "Other"
mydata$c_s3q7_other[1015] <- "Other"
mydata$c_s3q7_other[1020] <- "Other"
mydata$c_s3q7_other[1040] <- "Other"
mydata$c_s3q7_other[1119] <- "Other"
mydata$c_s3q7_other[1123] <- "Other"
mydata$c_s3q7_other[1183] <- "Other"
mydata$c_s3q7_other[1185] <- "Other"
mydata$c_s3q7_other[1220] <- "Other"
mydata$c_s3q7_other[1232] <- "Other"
mydata$c_s3q7_other[1252] <- "Other"
mydata$c_s3q7_other[1289] <- "Other"
mydata$c_s3q7_other[1314] <- "Other"
mydata$c_s3q7_other[1320] <- "Other"
mydata$c_s3q7_other[1327] <- "Other"
mydata$c_s3q7_other[1358] <- "Other"
mydata$c_s3q7_other[1367] <- "Other"
mydata$c_s3q7_other[1368] <- "Other"
mydata$c_s3q7_other[1399] <- "Other"
mydata$c_s3q7_other[1419] <- "Other"
mydata$c_s3q7_other[1455] <- "Other"
mydata$c_s3q7_other[1484] <- "Other"
mydata$c_s3q7_other[1485] <- "Other"
mydata$c_s3q7_other[1491] <- "Other"
mydata$c_s3q7_other[1493] <- "Other"
mydata$c_s3q7_other[1496] <- "Other"
mydata$c_s3q7_other[1499] <- "Other"
mydata$c_s3q7_other[1520] <- "Other"
mydata$c_s3q7_other[1523] <- "Other"
mydata$c_s3q7_other[1536] <- "Other"
mydata$c_s3q7_other[1560] <- "Other"
mydata$c_s3q7_other[1565] <- "Other"
mydata$c_s3q7_other[1572] <- "Other"
mydata$c_s3q7_other[1573] <- "Other"
mydata$c_s3q7_other[1574] <- "Other"
mydata$c_s3q7_other[1580] <- "Other"
mydata$c_s3q7_other[1584] <- "Other"
mydata$c_s3q7_other[1595] <- "Other"
mydata$c_s3q7_other[1606] <- "Other"
mydata$c_s3q7_other[1615] <- "Other"
mydata$c_s3q7_other[1678] <- "Other"
mydata$c_s3q7_other[1685] <- "Other"
mydata$c_s3q7_other[1707] <- "Other"
mydata$c_s3q7_other[1754] <- "Other"
mydata$c_s3q7_other[1771] <- "Other"
mydata$c_s3q7_other[1773] <- "Other"
mydata$c_s3q7_other[1779] <- "Other"
mydata$c_s3q7_other[1799] <- "Other"
mydata$c_s3q7_other[1801] <- "Other"
mydata$c_s3q7_other[1847] <- "Other"
mydata$c_s3q7_other[1900] <- "Other"
mydata$c_s3q7_other[1998] <- "Other"
mydata$c_s3q7_other[2143] <- "Other"
mydata$c_s3q7_other[2145] <- "Other"
mydata$c_s3q7_other[2153] <- "Other"
mydata$c_s3q7_other[2343] <- "Other"
mydata$c_s3q7_other[2368] <- "Other"
mydata$c_s3q7_other[2378] <- "Other"
mydata$c_s3q7_other[2389] <- "Other"
mydata$c_s3q7_other[2397] <- "Other"
mydata$c_s3q7_other[2469] <- "Other"
mydata$c_s3q7_other[2470] <- "Other"
mydata$c_s3q7_other[2471] <- "Other"
mydata$c_s3q7_other[2483] <- "Other"
mydata$c_s3q7_other[2578] <- "Other"
mydata$c_s3q7_other[2580] <- "Other"
mydata$c_s3q7_other[2583] <- "Other"
mydata$c_s3q7_other[2586] <- "Other"
mydata$c_s3q7_other[2601] <- "Other"
mydata$c_s3q7_other[2603] <- "Other"
mydata$c_s3q7_other[2609] <- "Other"
mydata$c_s3q7_other[2629] <- "Other"
mydata$c_s3q7_other[2693] <- "Other"
mydata$c_s3q7_other[2748] <- "Other"
mydata$c_s3q7_other[2766] <- "Other"
mydata$c_s3q7_other[2769] <- "Other"
mydata$c_s3q7_other[2783] <- "Other"
mydata$c_s3q7_other[2850] <- "Other"
mydata$c_s3q7_other[2998] <- "Other"
mydata$c_s3q7_other[3038] <- "Other"
mydata$c_s3q7_other[3063] <- "Other"
mydata$c_s3q7_other[3074] <- "Other"
mydata$c_s3q7_other[3193] <- "Other"
mydata$c_s3q7_other[3216] <- "Other"
mydata$c_s3q7_other[3218] <- "Other"
mydata$c_s3q7_other[3220] <- "Other"
mydata$c_s3q7_other[3247] <- "Other"
mydata$c_s3q7_other[3272] <- "Other"
mydata$c_s3q7_other[3296] <- "Other"
mydata$c_s3q7_other[3339] <- "Other"
mydata$c_s3q7_other[3373] <- "Other"
mydata$c_s3q7_other[3377] <- "Other"
mydata$c_s3q7_other[3378] <- "Other"
mydata$c_s3q7_other[3434] <- "Other"
mydata$c_s3q7_other[3441] <- "Other"
mydata$c_s3q7_other[3458] <- "Other"
mydata$c_s3q7_other[3480] <- "Other"
mydata$c_s3q7_other[3529] <- "Other"
mydata$c_s3q7_other[3552] <- "Other"
mydata$c_s3q7_other[3566] <- "Other"
mydata$c_s3q7_other[3571] <- "Other"
mydata$c_s3q7_other[3597] <- "Other"
mydata$c_s3q7_other[3606] <- "Other"
mydata$c_s3q7_other[3611] <- "Other"
mydata$c_s3q7_other[3618] <- "Other"
mydata$c_s3q7_other[3647] <- "Other"
mydata$c_s3q7_other[3649] <- "Other"
mydata$c_s3q7_other[3658] <- "Other"
mydata$c_s3q7_other[3714] <- "Other"
mydata$c_s3q7_other[3744] <- "Other"
mydata$c_s3q7_other[3792] <- "Other"
mydata$c_s3q7_other[3825] <- "Other"
mydata$c_s3q7_other[3837] <- "Other"
mydata$c_s3q7_other[3864] <- "Other"
mydata$c_s3q7_other[3874] <- "Other"
mydata$c_s3q7_other[3899] <- "Other"
mydata$c_s3q7_other[3900] <- "Other"
mydata$c_s3q7_other[3922] <- "Other"
mydata$c_s3q7_other[3978] <- "Other"
mydata$c_s3q7_other[4007] <- "Other"
mydata$c_s3q7_other[4008] <- "Other"
mydata$c_s3q7_other[4016] <- "Other"
mydata$c_s3q7_other[4017] <- "Other"
mydata$c_s3q7_other[4032] <- "Other"
mydata$c_s3q7_other[4085] <- "Other"
mydata$c_s3q7_other[4091] <- "Other"
mydata$c_s3q7_other[4093] <- "Other"
mydata$c_s3q7_other[4189] <- "Other"
mydata$c_s3q7_other[4265] <- "Other"
mydata$c_s3q7_other[4272] <- "Other"
mydata$c_s3q7noresponse[740] <- "Other"
mydata$c_s3q7noresponse[748] <- "Other"
mydata$c_s3q7noresponse[902] <- "Other"
mydata$c_s3q7noresponse[952] <- "Other"
mydata$c_s3q7noresponse[978] <- "Other"
mydata$c_s3q7noresponse[1021] <- "Other"
mydata$c_s3q7noresponse[1132] <- "Other"
mydata$c_s3q7noresponse[1134] <- "Other"
mydata$c_s3q7noresponse[1307] <- "Other"
mydata$c_s3q7noresponse[1344] <- "Other"
mydata$c_s3q7noresponse[1418] <- "Other"
mydata$c_s3q7noresponse[1450] <- "Other"
mydata$c_s3q7noresponse[1453] <- "Other"
mydata$c_s3q7noresponse[1490] <- "Other"
mydata$c_s3q7noresponse[1549] <- "Other"
mydata$c_s3q7noresponse[1596] <- "Other"
mydata$c_s3q7noresponse[1597] <- "Other"
mydata$c_s3q7noresponse[1599] <- "Other"
mydata$c_s3q7noresponse[1630] <- "Other"
mydata$c_s3q7noresponse[1631] <- "Other"
mydata$c_s3q7noresponse[1636] <- "Other"
mydata$c_s3q7noresponse[1647] <- "Other"
mydata$c_s3q7noresponse[1669] <- "Other"
mydata$c_s3q7noresponse[1675] <- "Other"
mydata$c_s3q7noresponse[1712] <- "Other"
mydata$c_s3q7noresponse[1719] <- "Other"
mydata$c_s3q7noresponse[1722] <- "Other"
mydata$c_s3q7noresponse[1790] <- "Other"
mydata$c_s3q7noresponse[1798] <- "Other"
mydata$c_s3q7noresponse[1815] <- "Other"
mydata$c_s3q7noresponse[1885] <- "Other"
mydata$c_s3q7noresponse[1899] <- "Other"
mydata$c_s3q7noresponse[1901] <- "Other"
mydata$c_s3q7noresponse[1936] <- "Other"
mydata$c_s3q7noresponse[1939] <- "Other"
mydata$c_s3q7noresponse[1943] <- "Other"
mydata$c_s3q7noresponse[2077] <- "Other"
mydata$c_s3q7noresponse[2297] <- "Other"
mydata$c_s3q7noresponse[2347] <- "Other"
mydata$c_s3q7noresponse[2348] <- "Other"
mydata$c_s3q7noresponse[2398] <- "Other"
mydata$c_s3q7noresponse[2468] <- "Other"
mydata$c_s3q7noresponse[2830] <- "Other"
mydata$c_s3q7noresponse[2856] <- "Other"
mydata$c_s3q7noresponse[2857] <- "Other"
mydata$c_s3q7noresponse[2958] <- "Other"
mydata$c_s3q7noresponse[2990] <- "Other"
mydata$c_s3q7noresponse[3252] <- "Other"
mydata$c_s3q7noresponse[3254] <- "Other"
mydata$c_s3q7noresponse[3437] <- "Other"
mydata$c_s3q7noresponse[3806] <- "Other"
mydata$c_s3q7noresponse[3823] <- "Other"
mydata$c_s3q7noresponse[3867] <- "Other"
mydata$c_s3q7noresponse[3902] <- "Other"
mydata$c_s3q7noresponse[3968] <- "Other"
# !!!No GPS data
haven::write_dta(mydata, paste0(filename, "_PU.dta"))
haven::write_sav(mydata, paste0(filename, "_PU.sav"))
# Add report title dynamically
title_var <- paste0("DOL-ILAB SDC - ", filename)