vignettes/raw-to-input-data.Rmd
raw-to-input-data.RmdThe data cleaning step is conducted using the suite of packages in tidyverse.
The code below is provided by the NLSY79 database to do the reading and initial processing of the data. Note that we did not modify this script except for the location of the file.
new_data <- read.table(here::here('data-raw/NLSY79/NLSY79.dat'), sep=' ')
names(new_data) <- c('R0000100',
'R0000300',
'R0000500',
'R0017300',
'R0047010',
'R0070500',
'R0070600',
'R0070700',
'R0070800',
'R0070900',
'R0091710',
'R0091910',
'R0092110',
'R0092310',
'R0092510',
'R0173600',
'R0214700',
'R0214800',
'R0216700',
'R0216701',
'R0229200',
'R0263710',
'R0337800',
'R0338910',
'R0349300',
'R0350410',
'R0360800',
'R0361910',
'R0372300',
'R0373410',
'R0383800',
'R0384910',
'R0406400',
'R0406401',
'R0410100',
'R0410300',
'R0417400',
'R0446810',
'R0545600',
'R0546610',
'R0558700',
'R0559710',
'R0571800',
'R0572810',
'R0584900',
'R0585910',
'R0598000',
'R0599010',
'R0618900',
'R0618901',
'R0664500',
'R0702510',
'R0839900',
'R0841010',
'R0853000',
'R0854110',
'R0866100',
'R0867210',
'R0879200',
'R0880310',
'R0892300',
'R0893410',
'R0898200',
'R0898201',
'R0905900',
'R0945610',
'R1087300',
'R1088210',
'R1100500',
'R1101410',
'R1113700',
'R1114610',
'R1126900',
'R1127810',
'R1140100',
'R1141010',
'R1145000',
'R1145001',
'R1205800',
'R1256010',
'R1463000',
'R1463910',
'R1476100',
'R1477010',
'R1489200',
'R1490110',
'R1502300',
'R1503210',
'R1515400',
'R1516310',
'R1520200',
'R1520201',
'R1605100',
'R1650810',
'R1809800',
'R1810710',
'R1822500',
'R1823410',
'R1835200',
'R1836110',
'R1847900',
'R1848810',
'R1860600',
'R1861510',
'R1890900',
'R1890901',
'R1905600',
'R1923410',
'R2171500',
'R2172410',
'R2185100',
'R2186010',
'R2198700',
'R2199610',
'R2212300',
'R2213210',
'R2225900',
'R2226810',
'R2258000',
'R2258001',
'R2306500',
'R2318210',
'R2376300',
'R2377210',
'R2387600',
'R2388510',
'R2398900',
'R2399810',
'R2410200',
'R2411110',
'R2421500',
'R2422410',
'R2445400',
'R2445401',
'R2509000',
'R2526010',
'R2770900',
'R2771000',
'R2771100',
'R2771200',
'R2772210',
'R2783800',
'R2783900',
'R2784000',
'R2784100',
'R2785110',
'R2796700',
'R2796800',
'R2796900',
'R2797000',
'R2798010',
'R2809600',
'R2809700',
'R2809800',
'R2809900',
'R2810910',
'R2822500',
'R2822600',
'R2822700',
'R2822800',
'R2823810',
'R2871100',
'R2871101',
'R2908100',
'R2925010',
'R3012700',
'R3012800',
'R3012900',
'R3013000',
'R3014010',
'R3025800',
'R3025900',
'R3026000',
'R3026100',
'R3027110',
'R3038900',
'R3039000',
'R3039100',
'R3039200',
'R3040210',
'R3052000',
'R3052100',
'R3052200',
'R3052300',
'R3053310',
'R3065100',
'R3065200',
'R3065300',
'R3065400',
'R3066410',
'R3074800',
'R3074801',
'R3110200',
'R3127800',
'R3340100',
'R3340200',
'R3340300',
'R3340400',
'R3341500',
'R3354100',
'R3354200',
'R3354300',
'R3354400',
'R3355500',
'R3368100',
'R3368200',
'R3368300',
'R3368400',
'R3369500',
'R3382100',
'R3382200',
'R3382300',
'R3382400',
'R3383500',
'R3396100',
'R3396200',
'R3396300',
'R3396400',
'R3397500',
'R3401500',
'R3401501',
'R3510200',
'R3523500',
'R3604400',
'R3604500',
'R3604600',
'R3604700',
'R3605800',
'R3616500',
'R3616600',
'R3616700',
'R3616800',
'R3617900',
'R3628600',
'R3628700',
'R3628800',
'R3628900',
'R3630000',
'R3640700',
'R3640800',
'R3640900',
'R3641000',
'R3642100',
'R3652800',
'R3652900',
'R3653000',
'R3653100',
'R3654200',
'R3656900',
'R3656901',
'R3710200',
'R3728500',
'R3954600',
'R3954700',
'R3954800',
'R3954900',
'R3956000',
'R3966800',
'R3966900',
'R3967000',
'R3967100',
'R3968200',
'R3979000',
'R3979100',
'R3979200',
'R3979300',
'R3980400',
'R3991200',
'R3991300',
'R3991400',
'R3991500',
'R3992600',
'R4003400',
'R4003500',
'R4003600',
'R4003700',
'R4004800',
'R4007400',
'R4007401',
'R4137900',
'R4193200',
'R4193300',
'R4193400',
'R4205500',
'R4205600',
'R4205700',
'R4205800',
'R4212700',
'R4212800',
'R4212900',
'R4213000',
'R4220300',
'R4220400',
'R4220500',
'R4220600',
'R4227800',
'R4227900',
'R4228000',
'R4416800',
'R4416900',
'R4417000',
'R4417100',
'R4417200',
'R4417300',
'R4418500',
'R4418501',
'R4526500',
'R4582900',
'R4583000',
'R4583100',
'R4583200',
'R4627100',
'R4627200',
'R4627300',
'R4627400',
'R4671000',
'R4671100',
'R4671200',
'R4671300',
'R4710600',
'R4710700',
'R4710800',
'R4710900',
'R4744900',
'R4745000',
'R4745100',
'R4745200',
'R5079800',
'R5079900',
'R5080000',
'R5080100',
'R5080200',
'R5080300',
'R5081500',
'R5103900',
'R5165200',
'R5165300',
'R5165400',
'R5165500',
'R5165600',
'R5166800',
'R5166901',
'R5221800',
'R5267100',
'R5267200',
'R5267300',
'R5267400',
'R5307400',
'R5307500',
'R5307600',
'R5307700',
'R5346600',
'R5346700',
'R5346800',
'R5346900',
'R5383700',
'R5383800',
'R5383900',
'R5384000',
'R5418200',
'R5418300',
'R5418400',
'R5418500',
'R5821800',
'R5912600',
'R5912700',
'R5912800',
'R5912900',
'R5913000',
'R5913800',
'R5913900',
'R5914000',
'R5914100',
'R5914200',
'R5916200',
'R5916300',
'R5916400',
'R5916500',
'R5916600',
'R6478000',
'R6478100',
'R6478200',
'R6478300',
'R6478400',
'R6479400',
'R6479600',
'R6504200',
'R6504300',
'R6504400',
'R6504500',
'R6504600',
'R6540400',
'R6578200',
'R6578300',
'R6578400',
'R6578500',
'R6578600',
'R6578700',
'R6578800',
'R6578900',
'R6579000',
'R6579100',
'R6579200',
'R6579300',
'R6579400',
'R6579500',
'R6579600',
'R6579700',
'R6579800',
'R6579900',
'R6580000',
'R6580100',
'R7005700',
'R7005800',
'R7005900',
'R7006000',
'R7006100',
'R7007100',
'R7007300',
'R7080400',
'R7080500',
'R7080600',
'R7080700',
'R7080800',
'R7103600',
'R7192900',
'R7193000',
'R7193100',
'R7193200',
'R7193300',
'R7193400',
'R7193500',
'R7193600',
'R7193700',
'R7193800',
'R7193900',
'R7194000',
'R7194100',
'R7194200',
'R7194300',
'R7194400',
'R7194500',
'R7194600',
'R7194700',
'R7194800',
'R7702900',
'R7703000',
'R7703100',
'R7703200',
'R7703300',
'R7704400',
'R7704600',
'R7769000',
'R7769100',
'R7769200',
'R7769300',
'R7769400',
'R7810500',
'R7878600',
'R7878700',
'R7878800',
'R7878900',
'R7879000',
'R7879600',
'R7879700',
'R7879800',
'R7879900',
'R7880000',
'R7880100',
'R7880200',
'R7880300',
'R7880400',
'R7880500',
'R7880600',
'R7880700',
'R7880800',
'R7880900',
'R7881000',
'R7881100',
'R7881200',
'R7881300',
'R7881400',
'R7881500',
'R8495200',
'R8495300',
'R8495400',
'R8495500',
'R8495600',
'R8496800',
'R8497000',
'T0014400',
'T0120800',
'T0120900',
'T0121000',
'T0121100',
'T0121200',
'T0121900',
'T0122000',
'T0122100',
'T0122200',
'T0122300',
'T0122400',
'T0122500',
'T0122600',
'T0122700',
'T0122800',
'T0122900',
'T0123000',
'T0123100',
'T0123200',
'T0123300',
'T0123400',
'T0123500',
'T0123600',
'T0123700',
'T0123800',
'T0986800',
'T0986900',
'T0987000',
'T0987100',
'T0987200',
'T0988600',
'T0988800',
'T1214300',
'T1280800',
'T1280900',
'T1281000',
'T1281100',
'T1281200',
'T1281800',
'T1281900',
'T1282000',
'T1282100',
'T1282200',
'T1282300',
'T1282400',
'T1282500',
'T1282600',
'T1282700',
'T1282800',
'T1282900',
'T1283000',
'T1283100',
'T1283200',
'T1283300',
'T1283400',
'T1283500',
'T1283600',
'T2209100',
'T2209200',
'T2209300',
'T2209400',
'T2209500',
'T2210600',
'T2210700',
'T2272800',
'T2301300',
'T2301400',
'T2301500',
'T2301600',
'T2301700',
'T2302300',
'T2302400',
'T2302500',
'T2302600',
'T2302700',
'T2302800',
'T2302900',
'T2303000',
'T2303100',
'T2303200',
'T2303300',
'T2303400',
'T2303500',
'T2303600',
'T2303700',
'T2303800',
'T2303900',
'T2304000',
'T2304100',
'T2304200',
'T3106900',
'T3107000',
'T3107100',
'T3107200',
'T3107300',
'T3108500',
'T3108600',
'T3212900',
'T3279800',
'T3279900',
'T3280000',
'T3280100',
'T3280200',
'T3280800',
'T3280900',
'T3281000',
'T3281100',
'T3281200',
'T3281300',
'T3281400',
'T3281500',
'T3281600',
'T3281700',
'T3281800',
'T3281900',
'T3282000',
'T3282100',
'T3282200',
'T3282300',
'T3282400',
'T3282500',
'T3282600',
'T3282700',
'T4110900',
'T4111100',
'T4111300',
'T4111500',
'T4111700',
'T4113000',
'T4201100',
'T4253500',
'T4253600',
'T4253700',
'T4253800',
'T4253900',
'T4254500',
'T4254600',
'T4254700',
'T4254800',
'T4254900',
'T4255000',
'T4255100',
'T4255200',
'T4255300',
'T4255400',
'T5019700',
'T5019900',
'T5020100',
'T5020300',
'T5020500',
'T5023400',
'T5176100',
'T5226800',
'T5226900',
'T5227000',
'T5227100',
'T5227200',
'T5227800',
'T5227900',
'T5228000',
'T5228100',
'T5228200',
'T5228300',
'T5228400',
'T5228500',
'T5228600',
'T5228700',
'T5768600',
'T5768800',
'T5769000',
'T5769200',
'T5769400',
'T5771300',
'T7743900',
'T7793000',
'T7793100',
'T7793200',
'T7793300',
'T7793400',
'T7793500',
'T7793600',
'T7793700',
'T7793800',
'T7793900',
'T7794000',
'T7794100',
'T7794200',
'T7794300',
'T7794400',
'T8215400',
'T8215600',
'T8215800',
'T8216000',
'T8216200',
'T9900000')
# Handle missing values
new_data[new_data == -1] = NA # Refused
new_data[new_data == -2] = NA # Dont know
new_data[new_data == -3] = NA # Invalid missing
new_data[new_data == -4] = NA # Valid missing
new_data[new_data == -5] = NA # Non-interview
# If there are values not categorized they will be represented as NA
vallabels = function(data) {
data$R0000300[17.0 <= data$R0000300 & data$R0000300 <= 99999.0] <- 17.0
data$R0000300 <- factor(data$R0000300,
levels=c(0.0,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,14.0,15.0,16.0,17.0),
labels=c("0: < 1",
"1",
"2",
"3",
"4",
"5",
"6",
"7",
"8",
"9",
"10",
"11",
"12",
"13",
"14",
"15",
"16",
"17 TO 99999: 17+"))
data$R0000500[0.0 <= data$R0000500 & data$R0000500 <= 56.0] <- 0.0
data$R0000500[73.0 <= data$R0000500 & data$R0000500 <= 99999.0] <- 73.0
data$R0000500 <- factor(data$R0000500,
levels=c(0.0,57.0,58.0,59.0,60.0,61.0,62.0,63.0,64.0,65.0,66.0,67.0,68.0,69.0,70.0,71.0,72.0,73.0),
labels=c("0 TO 56: < 57",
"57",
"58",
"59",
"60",
"61",
"62",
"63",
"64",
"65",
"66",
"67",
"68",
"69",
"70",
"71",
"72",
"73 TO 99999: 73+"))
data$R0017300 <- factor(data$R0017300,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R0047010[1.0 <= data$R0047010 & data$R0047010 <= 99.0] <- 1.0
data$R0047010[100.0 <= data$R0047010 & data$R0047010 <= 199.0] <- 100.0
data$R0047010[200.0 <= data$R0047010 & data$R0047010 <= 299.0] <- 200.0
data$R0047010[300.0 <= data$R0047010 & data$R0047010 <= 399.0] <- 300.0
data$R0047010[400.0 <= data$R0047010 & data$R0047010 <= 499.0] <- 400.0
data$R0047010[500.0 <= data$R0047010 & data$R0047010 <= 599.0] <- 500.0
data$R0047010[600.0 <= data$R0047010 & data$R0047010 <= 699.0] <- 600.0
data$R0047010[700.0 <= data$R0047010 & data$R0047010 <= 799.0] <- 700.0
data$R0047010[800.0 <= data$R0047010 & data$R0047010 <= 899.0] <- 800.0
data$R0047010[900.0 <= data$R0047010 & data$R0047010 <= 999.0] <- 900.0
data$R0047010[1000.0 <= data$R0047010 & data$R0047010 <= 9999999.0] <- 1000.0
data$R0047010 <- factor(data$R0047010,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0070500[1.0 <= data$R0070500 & data$R0070500 <= 9.0] <- 1.0
data$R0070500[10.0 <= data$R0070500 & data$R0070500 <= 19.0] <- 10.0
data$R0070500[20.0 <= data$R0070500 & data$R0070500 <= 29.0] <- 20.0
data$R0070500[30.0 <= data$R0070500 & data$R0070500 <= 39.0] <- 30.0
data$R0070500[40.0 <= data$R0070500 & data$R0070500 <= 49.0] <- 40.0
data$R0070500[50.0 <= data$R0070500 & data$R0070500 <= 59.0] <- 50.0
data$R0070500[60.0 <= data$R0070500 & data$R0070500 <= 69.0] <- 60.0
data$R0070500[70.0 <= data$R0070500 & data$R0070500 <= 79.0] <- 70.0
data$R0070500[80.0 <= data$R0070500 & data$R0070500 <= 89.0] <- 80.0
data$R0070500[90.0 <= data$R0070500 & data$R0070500 <= 99.0] <- 90.0
data$R0070500[100.0 <= data$R0070500 & data$R0070500 <= 9999999.0] <- 100.0
data$R0070500 <- factor(data$R0070500,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 9999999: 100+"))
data$R0070600[1.0 <= data$R0070600 & data$R0070600 <= 9.0] <- 1.0
data$R0070600[10.0 <= data$R0070600 & data$R0070600 <= 19.0] <- 10.0
data$R0070600[20.0 <= data$R0070600 & data$R0070600 <= 29.0] <- 20.0
data$R0070600[30.0 <= data$R0070600 & data$R0070600 <= 39.0] <- 30.0
data$R0070600[40.0 <= data$R0070600 & data$R0070600 <= 49.0] <- 40.0
data$R0070600[50.0 <= data$R0070600 & data$R0070600 <= 59.0] <- 50.0
data$R0070600[60.0 <= data$R0070600 & data$R0070600 <= 69.0] <- 60.0
data$R0070600[70.0 <= data$R0070600 & data$R0070600 <= 79.0] <- 70.0
data$R0070600[80.0 <= data$R0070600 & data$R0070600 <= 89.0] <- 80.0
data$R0070600[90.0 <= data$R0070600 & data$R0070600 <= 99.0] <- 90.0
data$R0070600[100.0 <= data$R0070600 & data$R0070600 <= 9999999.0] <- 100.0
data$R0070600 <- factor(data$R0070600,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 9999999: 100+"))
data$R0070700[1.0 <= data$R0070700 & data$R0070700 <= 9.0] <- 1.0
data$R0070700[10.0 <= data$R0070700 & data$R0070700 <= 19.0] <- 10.0
data$R0070700[20.0 <= data$R0070700 & data$R0070700 <= 29.0] <- 20.0
data$R0070700[30.0 <= data$R0070700 & data$R0070700 <= 39.0] <- 30.0
data$R0070700[40.0 <= data$R0070700 & data$R0070700 <= 49.0] <- 40.0
data$R0070700[50.0 <= data$R0070700 & data$R0070700 <= 59.0] <- 50.0
data$R0070700[60.0 <= data$R0070700 & data$R0070700 <= 69.0] <- 60.0
data$R0070700[70.0 <= data$R0070700 & data$R0070700 <= 79.0] <- 70.0
data$R0070700[80.0 <= data$R0070700 & data$R0070700 <= 89.0] <- 80.0
data$R0070700[90.0 <= data$R0070700 & data$R0070700 <= 99.0] <- 90.0
data$R0070700[100.0 <= data$R0070700 & data$R0070700 <= 9999999.0] <- 100.0
data$R0070700 <- factor(data$R0070700,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 9999999: 100+"))
data$R0070800[1.0 <= data$R0070800 & data$R0070800 <= 9.0] <- 1.0
data$R0070800[10.0 <= data$R0070800 & data$R0070800 <= 19.0] <- 10.0
data$R0070800[20.0 <= data$R0070800 & data$R0070800 <= 29.0] <- 20.0
data$R0070800[30.0 <= data$R0070800 & data$R0070800 <= 39.0] <- 30.0
data$R0070800[40.0 <= data$R0070800 & data$R0070800 <= 49.0] <- 40.0
data$R0070800[50.0 <= data$R0070800 & data$R0070800 <= 59.0] <- 50.0
data$R0070800[60.0 <= data$R0070800 & data$R0070800 <= 69.0] <- 60.0
data$R0070800[70.0 <= data$R0070800 & data$R0070800 <= 79.0] <- 70.0
data$R0070800[80.0 <= data$R0070800 & data$R0070800 <= 89.0] <- 80.0
data$R0070800[90.0 <= data$R0070800 & data$R0070800 <= 99.0] <- 90.0
data$R0070800[100.0 <= data$R0070800 & data$R0070800 <= 9999999.0] <- 100.0
data$R0070800 <- factor(data$R0070800,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 9999999: 100+"))
data$R0070900[1.0 <= data$R0070900 & data$R0070900 <= 9.0] <- 1.0
data$R0070900[10.0 <= data$R0070900 & data$R0070900 <= 19.0] <- 10.0
data$R0070900[20.0 <= data$R0070900 & data$R0070900 <= 29.0] <- 20.0
data$R0070900[30.0 <= data$R0070900 & data$R0070900 <= 39.0] <- 30.0
data$R0070900[40.0 <= data$R0070900 & data$R0070900 <= 49.0] <- 40.0
data$R0070900[50.0 <= data$R0070900 & data$R0070900 <= 59.0] <- 50.0
data$R0070900[60.0 <= data$R0070900 & data$R0070900 <= 69.0] <- 60.0
data$R0070900[70.0 <= data$R0070900 & data$R0070900 <= 79.0] <- 70.0
data$R0070900[80.0 <= data$R0070900 & data$R0070900 <= 89.0] <- 80.0
data$R0070900[90.0 <= data$R0070900 & data$R0070900 <= 99.0] <- 90.0
data$R0070900[100.0 <= data$R0070900 & data$R0070900 <= 9999999.0] <- 100.0
data$R0070900 <- factor(data$R0070900,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 9999999: 100+"))
data$R0091710[1.0 <= data$R0091710 & data$R0091710 <= 99.0] <- 1.0
data$R0091710[100.0 <= data$R0091710 & data$R0091710 <= 199.0] <- 100.0
data$R0091710[200.0 <= data$R0091710 & data$R0091710 <= 299.0] <- 200.0
data$R0091710[300.0 <= data$R0091710 & data$R0091710 <= 399.0] <- 300.0
data$R0091710[400.0 <= data$R0091710 & data$R0091710 <= 499.0] <- 400.0
data$R0091710[500.0 <= data$R0091710 & data$R0091710 <= 599.0] <- 500.0
data$R0091710[600.0 <= data$R0091710 & data$R0091710 <= 699.0] <- 600.0
data$R0091710[700.0 <= data$R0091710 & data$R0091710 <= 799.0] <- 700.0
data$R0091710[800.0 <= data$R0091710 & data$R0091710 <= 899.0] <- 800.0
data$R0091710[900.0 <= data$R0091710 & data$R0091710 <= 999.0] <- 900.0
data$R0091710[1000.0 <= data$R0091710 & data$R0091710 <= 9999999.0] <- 1000.0
data$R0091710 <- factor(data$R0091710,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0091910[1.0 <= data$R0091910 & data$R0091910 <= 99.0] <- 1.0
data$R0091910[100.0 <= data$R0091910 & data$R0091910 <= 199.0] <- 100.0
data$R0091910[200.0 <= data$R0091910 & data$R0091910 <= 299.0] <- 200.0
data$R0091910[300.0 <= data$R0091910 & data$R0091910 <= 399.0] <- 300.0
data$R0091910[400.0 <= data$R0091910 & data$R0091910 <= 499.0] <- 400.0
data$R0091910[500.0 <= data$R0091910 & data$R0091910 <= 599.0] <- 500.0
data$R0091910[600.0 <= data$R0091910 & data$R0091910 <= 699.0] <- 600.0
data$R0091910[700.0 <= data$R0091910 & data$R0091910 <= 799.0] <- 700.0
data$R0091910[800.0 <= data$R0091910 & data$R0091910 <= 899.0] <- 800.0
data$R0091910[900.0 <= data$R0091910 & data$R0091910 <= 999.0] <- 900.0
data$R0091910[1000.0 <= data$R0091910 & data$R0091910 <= 9999999.0] <- 1000.0
data$R0091910 <- factor(data$R0091910,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0092110[1.0 <= data$R0092110 & data$R0092110 <= 99.0] <- 1.0
data$R0092110[100.0 <= data$R0092110 & data$R0092110 <= 199.0] <- 100.0
data$R0092110[200.0 <= data$R0092110 & data$R0092110 <= 299.0] <- 200.0
data$R0092110[300.0 <= data$R0092110 & data$R0092110 <= 399.0] <- 300.0
data$R0092110[400.0 <= data$R0092110 & data$R0092110 <= 499.0] <- 400.0
data$R0092110[500.0 <= data$R0092110 & data$R0092110 <= 599.0] <- 500.0
data$R0092110[600.0 <= data$R0092110 & data$R0092110 <= 699.0] <- 600.0
data$R0092110[700.0 <= data$R0092110 & data$R0092110 <= 799.0] <- 700.0
data$R0092110[800.0 <= data$R0092110 & data$R0092110 <= 899.0] <- 800.0
data$R0092110[900.0 <= data$R0092110 & data$R0092110 <= 999.0] <- 900.0
data$R0092110[1000.0 <= data$R0092110 & data$R0092110 <= 9999999.0] <- 1000.0
data$R0092110 <- factor(data$R0092110,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0092310[1.0 <= data$R0092310 & data$R0092310 <= 99.0] <- 1.0
data$R0092310[100.0 <= data$R0092310 & data$R0092310 <= 199.0] <- 100.0
data$R0092310[200.0 <= data$R0092310 & data$R0092310 <= 299.0] <- 200.0
data$R0092310[300.0 <= data$R0092310 & data$R0092310 <= 399.0] <- 300.0
data$R0092310[400.0 <= data$R0092310 & data$R0092310 <= 499.0] <- 400.0
data$R0092310[500.0 <= data$R0092310 & data$R0092310 <= 599.0] <- 500.0
data$R0092310[600.0 <= data$R0092310 & data$R0092310 <= 699.0] <- 600.0
data$R0092310[700.0 <= data$R0092310 & data$R0092310 <= 799.0] <- 700.0
data$R0092310[800.0 <= data$R0092310 & data$R0092310 <= 899.0] <- 800.0
data$R0092310[900.0 <= data$R0092310 & data$R0092310 <= 999.0] <- 900.0
data$R0092310[1000.0 <= data$R0092310 & data$R0092310 <= 9999999.0] <- 1000.0
data$R0092310 <- factor(data$R0092310,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0092510[1.0 <= data$R0092510 & data$R0092510 <= 99.0] <- 1.0
data$R0092510[100.0 <= data$R0092510 & data$R0092510 <= 199.0] <- 100.0
data$R0092510[200.0 <= data$R0092510 & data$R0092510 <= 299.0] <- 200.0
data$R0092510[300.0 <= data$R0092510 & data$R0092510 <= 399.0] <- 300.0
data$R0092510[400.0 <= data$R0092510 & data$R0092510 <= 499.0] <- 400.0
data$R0092510[500.0 <= data$R0092510 & data$R0092510 <= 599.0] <- 500.0
data$R0092510[600.0 <= data$R0092510 & data$R0092510 <= 699.0] <- 600.0
data$R0092510[700.0 <= data$R0092510 & data$R0092510 <= 799.0] <- 700.0
data$R0092510[800.0 <= data$R0092510 & data$R0092510 <= 899.0] <- 800.0
data$R0092510[900.0 <= data$R0092510 & data$R0092510 <= 999.0] <- 900.0
data$R0092510[1000.0 <= data$R0092510 & data$R0092510 <= 9999999.0] <- 1000.0
data$R0092510 <- factor(data$R0092510,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0173600 <- factor(data$R0173600,
levels=c(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,14.0,15.0,16.0,17.0,18.0,19.0,20.0),
labels=c("CROSS MALE WHITE",
"CROSS MALE WH. POOR",
"CROSS MALE BLACK",
"CROSS MALE HISPANIC",
"CROSS FEMALE WHITE",
"CROSS FEMALE WH POOR",
"CROSS FEMALE BLACK",
"CROSS FEMALE HISPANIC",
"SUP MALE WH POOR",
"SUP MALE BLACK",
"SUP MALE HISPANIC",
"SUP FEM WH POOR",
"SUP FEMALE BLACK",
"SUP FEMALE HISPANIC",
"MIL MALE WHITE",
"MIL MALE BLACK",
"MIL MALE HISPANIC",
"MIL FEMALE WHITE",
"MIL FEMALE BLACK",
"MIL FEMALE HISPANIC"))
data$R0214700 <- factor(data$R0214700,
levels=c(1.0,2.0,3.0),
labels=c("HISPANIC",
"BLACK",
"NON-BLACK, NON-HISPANIC"))
data$R0214800 <- factor(data$R0214800,
levels=c(1.0,2.0),
labels=c("MALE",
"FEMALE"))
data$R0216700 <- factor(data$R0216700,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R0216701 <- factor(data$R0216701,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R0229200 <- factor(data$R0229200,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R0263710[1.0 <= data$R0263710 & data$R0263710 <= 99.0] <- 1.0
data$R0263710[100.0 <= data$R0263710 & data$R0263710 <= 199.0] <- 100.0
data$R0263710[200.0 <= data$R0263710 & data$R0263710 <= 299.0] <- 200.0
data$R0263710[300.0 <= data$R0263710 & data$R0263710 <= 399.0] <- 300.0
data$R0263710[400.0 <= data$R0263710 & data$R0263710 <= 499.0] <- 400.0
data$R0263710[500.0 <= data$R0263710 & data$R0263710 <= 599.0] <- 500.0
data$R0263710[600.0 <= data$R0263710 & data$R0263710 <= 699.0] <- 600.0
data$R0263710[700.0 <= data$R0263710 & data$R0263710 <= 799.0] <- 700.0
data$R0263710[800.0 <= data$R0263710 & data$R0263710 <= 899.0] <- 800.0
data$R0263710[900.0 <= data$R0263710 & data$R0263710 <= 999.0] <- 900.0
data$R0263710[1000.0 <= data$R0263710 & data$R0263710 <= 9999999.0] <- 1000.0
data$R0263710 <- factor(data$R0263710,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0337800[1.0 <= data$R0337800 & data$R0337800 <= 9.0] <- 1.0
data$R0337800[10.0 <= data$R0337800 & data$R0337800 <= 19.0] <- 10.0
data$R0337800[20.0 <= data$R0337800 & data$R0337800 <= 29.0] <- 20.0
data$R0337800[30.0 <= data$R0337800 & data$R0337800 <= 39.0] <- 30.0
data$R0337800[40.0 <= data$R0337800 & data$R0337800 <= 49.0] <- 40.0
data$R0337800[50.0 <= data$R0337800 & data$R0337800 <= 59.0] <- 50.0
data$R0337800[60.0 <= data$R0337800 & data$R0337800 <= 69.0] <- 60.0
data$R0337800[70.0 <= data$R0337800 & data$R0337800 <= 79.0] <- 70.0
data$R0337800[80.0 <= data$R0337800 & data$R0337800 <= 89.0] <- 80.0
data$R0337800[90.0 <= data$R0337800 & data$R0337800 <= 99.0] <- 90.0
data$R0337800[100.0 <= data$R0337800 & data$R0337800 <= 9999999.0] <- 100.0
data$R0337800 <- factor(data$R0337800,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 9999999: 100+"))
data$R0338910[1.0 <= data$R0338910 & data$R0338910 <= 99.0] <- 1.0
data$R0338910[100.0 <= data$R0338910 & data$R0338910 <= 199.0] <- 100.0
data$R0338910[200.0 <= data$R0338910 & data$R0338910 <= 299.0] <- 200.0
data$R0338910[300.0 <= data$R0338910 & data$R0338910 <= 399.0] <- 300.0
data$R0338910[400.0 <= data$R0338910 & data$R0338910 <= 499.0] <- 400.0
data$R0338910[500.0 <= data$R0338910 & data$R0338910 <= 599.0] <- 500.0
data$R0338910[600.0 <= data$R0338910 & data$R0338910 <= 699.0] <- 600.0
data$R0338910[700.0 <= data$R0338910 & data$R0338910 <= 799.0] <- 700.0
data$R0338910[800.0 <= data$R0338910 & data$R0338910 <= 899.0] <- 800.0
data$R0338910[900.0 <= data$R0338910 & data$R0338910 <= 999.0] <- 900.0
data$R0338910[1000.0 <= data$R0338910 & data$R0338910 <= 9999999.0] <- 1000.0
data$R0338910 <- factor(data$R0338910,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0349300[1.0 <= data$R0349300 & data$R0349300 <= 9.0] <- 1.0
data$R0349300[10.0 <= data$R0349300 & data$R0349300 <= 19.0] <- 10.0
data$R0349300[20.0 <= data$R0349300 & data$R0349300 <= 29.0] <- 20.0
data$R0349300[30.0 <= data$R0349300 & data$R0349300 <= 39.0] <- 30.0
data$R0349300[40.0 <= data$R0349300 & data$R0349300 <= 49.0] <- 40.0
data$R0349300[50.0 <= data$R0349300 & data$R0349300 <= 59.0] <- 50.0
data$R0349300[60.0 <= data$R0349300 & data$R0349300 <= 69.0] <- 60.0
data$R0349300[70.0 <= data$R0349300 & data$R0349300 <= 79.0] <- 70.0
data$R0349300[80.0 <= data$R0349300 & data$R0349300 <= 89.0] <- 80.0
data$R0349300[90.0 <= data$R0349300 & data$R0349300 <= 99.0] <- 90.0
data$R0349300[100.0 <= data$R0349300 & data$R0349300 <= 9999999.0] <- 100.0
data$R0349300 <- factor(data$R0349300,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 9999999: 100+"))
data$R0350410[1.0 <= data$R0350410 & data$R0350410 <= 99.0] <- 1.0
data$R0350410[100.0 <= data$R0350410 & data$R0350410 <= 199.0] <- 100.0
data$R0350410[200.0 <= data$R0350410 & data$R0350410 <= 299.0] <- 200.0
data$R0350410[300.0 <= data$R0350410 & data$R0350410 <= 399.0] <- 300.0
data$R0350410[400.0 <= data$R0350410 & data$R0350410 <= 499.0] <- 400.0
data$R0350410[500.0 <= data$R0350410 & data$R0350410 <= 599.0] <- 500.0
data$R0350410[600.0 <= data$R0350410 & data$R0350410 <= 699.0] <- 600.0
data$R0350410[700.0 <= data$R0350410 & data$R0350410 <= 799.0] <- 700.0
data$R0350410[800.0 <= data$R0350410 & data$R0350410 <= 899.0] <- 800.0
data$R0350410[900.0 <= data$R0350410 & data$R0350410 <= 999.0] <- 900.0
data$R0350410[1000.0 <= data$R0350410 & data$R0350410 <= 9999999.0] <- 1000.0
data$R0350410 <- factor(data$R0350410,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0360800[1.0 <= data$R0360800 & data$R0360800 <= 9.0] <- 1.0
data$R0360800[10.0 <= data$R0360800 & data$R0360800 <= 19.0] <- 10.0
data$R0360800[20.0 <= data$R0360800 & data$R0360800 <= 29.0] <- 20.0
data$R0360800[30.0 <= data$R0360800 & data$R0360800 <= 39.0] <- 30.0
data$R0360800[40.0 <= data$R0360800 & data$R0360800 <= 49.0] <- 40.0
data$R0360800[50.0 <= data$R0360800 & data$R0360800 <= 59.0] <- 50.0
data$R0360800[60.0 <= data$R0360800 & data$R0360800 <= 69.0] <- 60.0
data$R0360800[70.0 <= data$R0360800 & data$R0360800 <= 79.0] <- 70.0
data$R0360800[80.0 <= data$R0360800 & data$R0360800 <= 89.0] <- 80.0
data$R0360800[90.0 <= data$R0360800 & data$R0360800 <= 99.0] <- 90.0
data$R0360800[100.0 <= data$R0360800 & data$R0360800 <= 9999999.0] <- 100.0
data$R0360800 <- factor(data$R0360800,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 9999999: 100+"))
data$R0361910[1.0 <= data$R0361910 & data$R0361910 <= 99.0] <- 1.0
data$R0361910[100.0 <= data$R0361910 & data$R0361910 <= 199.0] <- 100.0
data$R0361910[200.0 <= data$R0361910 & data$R0361910 <= 299.0] <- 200.0
data$R0361910[300.0 <= data$R0361910 & data$R0361910 <= 399.0] <- 300.0
data$R0361910[400.0 <= data$R0361910 & data$R0361910 <= 499.0] <- 400.0
data$R0361910[500.0 <= data$R0361910 & data$R0361910 <= 599.0] <- 500.0
data$R0361910[600.0 <= data$R0361910 & data$R0361910 <= 699.0] <- 600.0
data$R0361910[700.0 <= data$R0361910 & data$R0361910 <= 799.0] <- 700.0
data$R0361910[800.0 <= data$R0361910 & data$R0361910 <= 899.0] <- 800.0
data$R0361910[900.0 <= data$R0361910 & data$R0361910 <= 999.0] <- 900.0
data$R0361910[1000.0 <= data$R0361910 & data$R0361910 <= 9999999.0] <- 1000.0
data$R0361910 <- factor(data$R0361910,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0372300[1.0 <= data$R0372300 & data$R0372300 <= 9.0] <- 1.0
data$R0372300[10.0 <= data$R0372300 & data$R0372300 <= 19.0] <- 10.0
data$R0372300[20.0 <= data$R0372300 & data$R0372300 <= 29.0] <- 20.0
data$R0372300[30.0 <= data$R0372300 & data$R0372300 <= 39.0] <- 30.0
data$R0372300[40.0 <= data$R0372300 & data$R0372300 <= 49.0] <- 40.0
data$R0372300[50.0 <= data$R0372300 & data$R0372300 <= 59.0] <- 50.0
data$R0372300[60.0 <= data$R0372300 & data$R0372300 <= 69.0] <- 60.0
data$R0372300[70.0 <= data$R0372300 & data$R0372300 <= 79.0] <- 70.0
data$R0372300[80.0 <= data$R0372300 & data$R0372300 <= 89.0] <- 80.0
data$R0372300[90.0 <= data$R0372300 & data$R0372300 <= 99.0] <- 90.0
data$R0372300[100.0 <= data$R0372300 & data$R0372300 <= 9999999.0] <- 100.0
data$R0372300 <- factor(data$R0372300,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 9999999: 100+"))
data$R0373410[1.0 <= data$R0373410 & data$R0373410 <= 99.0] <- 1.0
data$R0373410[100.0 <= data$R0373410 & data$R0373410 <= 199.0] <- 100.0
data$R0373410[200.0 <= data$R0373410 & data$R0373410 <= 299.0] <- 200.0
data$R0373410[300.0 <= data$R0373410 & data$R0373410 <= 399.0] <- 300.0
data$R0373410[400.0 <= data$R0373410 & data$R0373410 <= 499.0] <- 400.0
data$R0373410[500.0 <= data$R0373410 & data$R0373410 <= 599.0] <- 500.0
data$R0373410[600.0 <= data$R0373410 & data$R0373410 <= 699.0] <- 600.0
data$R0373410[700.0 <= data$R0373410 & data$R0373410 <= 799.0] <- 700.0
data$R0373410[800.0 <= data$R0373410 & data$R0373410 <= 899.0] <- 800.0
data$R0373410[900.0 <= data$R0373410 & data$R0373410 <= 999.0] <- 900.0
data$R0373410[1000.0 <= data$R0373410 & data$R0373410 <= 9999999.0] <- 1000.0
data$R0373410 <- factor(data$R0373410,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0383800[1.0 <= data$R0383800 & data$R0383800 <= 9.0] <- 1.0
data$R0383800[10.0 <= data$R0383800 & data$R0383800 <= 19.0] <- 10.0
data$R0383800[20.0 <= data$R0383800 & data$R0383800 <= 29.0] <- 20.0
data$R0383800[30.0 <= data$R0383800 & data$R0383800 <= 39.0] <- 30.0
data$R0383800[40.0 <= data$R0383800 & data$R0383800 <= 49.0] <- 40.0
data$R0383800[50.0 <= data$R0383800 & data$R0383800 <= 59.0] <- 50.0
data$R0383800[60.0 <= data$R0383800 & data$R0383800 <= 69.0] <- 60.0
data$R0383800[70.0 <= data$R0383800 & data$R0383800 <= 79.0] <- 70.0
data$R0383800[80.0 <= data$R0383800 & data$R0383800 <= 89.0] <- 80.0
data$R0383800[90.0 <= data$R0383800 & data$R0383800 <= 99.0] <- 90.0
data$R0383800[100.0 <= data$R0383800 & data$R0383800 <= 9999999.0] <- 100.0
data$R0383800 <- factor(data$R0383800,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 9999999: 100+"))
data$R0384910[1.0 <= data$R0384910 & data$R0384910 <= 99.0] <- 1.0
data$R0384910[100.0 <= data$R0384910 & data$R0384910 <= 199.0] <- 100.0
data$R0384910[200.0 <= data$R0384910 & data$R0384910 <= 299.0] <- 200.0
data$R0384910[300.0 <= data$R0384910 & data$R0384910 <= 399.0] <- 300.0
data$R0384910[400.0 <= data$R0384910 & data$R0384910 <= 499.0] <- 400.0
data$R0384910[500.0 <= data$R0384910 & data$R0384910 <= 599.0] <- 500.0
data$R0384910[600.0 <= data$R0384910 & data$R0384910 <= 699.0] <- 600.0
data$R0384910[700.0 <= data$R0384910 & data$R0384910 <= 799.0] <- 700.0
data$R0384910[800.0 <= data$R0384910 & data$R0384910 <= 899.0] <- 800.0
data$R0384910[900.0 <= data$R0384910 & data$R0384910 <= 999.0] <- 900.0
data$R0384910[1000.0 <= data$R0384910 & data$R0384910 <= 9999999.0] <- 1000.0
data$R0384910 <- factor(data$R0384910,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0406400 <- factor(data$R0406400,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R0406401 <- factor(data$R0406401,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R0410100[17.0 <= data$R0410100 & data$R0410100 <= 99999.0] <- 17.0
data$R0410100 <- factor(data$R0410100,
levels=c(0.0,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,14.0,15.0,16.0,17.0),
labels=c("0: < 1",
"1",
"2",
"3",
"4",
"5",
"6",
"7",
"8",
"9",
"10",
"11",
"12",
"13",
"14",
"15",
"16",
"17 TO 99999: 17+"))
data$R0410300[0.0 <= data$R0410300 & data$R0410300 <= 54.0] <- 0.0
data$R0410300[71.0 <= data$R0410300 & data$R0410300 <= 99999.0] <- 71.0
data$R0410300 <- factor(data$R0410300,
levels=c(0.0,55.0,56.0,57.0,58.0,59.0,60.0,61.0,62.0,63.0,64.0,65.0,66.0,67.0,68.0,69.0,70.0,71.0),
labels=c("0 TO 54: < 55",
"55",
"56",
"57",
"58",
"59",
"60",
"61",
"62",
"63",
"64",
"65",
"66",
"67",
"68",
"69",
"70",
"71 TO 99999: 71+"))
data$R0417400 <- factor(data$R0417400,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R0446810[1.0 <= data$R0446810 & data$R0446810 <= 99.0] <- 1.0
data$R0446810[100.0 <= data$R0446810 & data$R0446810 <= 199.0] <- 100.0
data$R0446810[200.0 <= data$R0446810 & data$R0446810 <= 299.0] <- 200.0
data$R0446810[300.0 <= data$R0446810 & data$R0446810 <= 399.0] <- 300.0
data$R0446810[400.0 <= data$R0446810 & data$R0446810 <= 499.0] <- 400.0
data$R0446810[500.0 <= data$R0446810 & data$R0446810 <= 599.0] <- 500.0
data$R0446810[600.0 <= data$R0446810 & data$R0446810 <= 699.0] <- 600.0
data$R0446810[700.0 <= data$R0446810 & data$R0446810 <= 799.0] <- 700.0
data$R0446810[800.0 <= data$R0446810 & data$R0446810 <= 899.0] <- 800.0
data$R0446810[900.0 <= data$R0446810 & data$R0446810 <= 999.0] <- 900.0
data$R0446810[1000.0 <= data$R0446810 & data$R0446810 <= 9999999.0] <- 1000.0
data$R0446810 <- factor(data$R0446810,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0545600[1.0 <= data$R0545600 & data$R0545600 <= 9.0] <- 1.0
data$R0545600[10.0 <= data$R0545600 & data$R0545600 <= 19.0] <- 10.0
data$R0545600[20.0 <= data$R0545600 & data$R0545600 <= 29.0] <- 20.0
data$R0545600[30.0 <= data$R0545600 & data$R0545600 <= 39.0] <- 30.0
data$R0545600[40.0 <= data$R0545600 & data$R0545600 <= 49.0] <- 40.0
data$R0545600[50.0 <= data$R0545600 & data$R0545600 <= 59.0] <- 50.0
data$R0545600[60.0 <= data$R0545600 & data$R0545600 <= 69.0] <- 60.0
data$R0545600[70.0 <= data$R0545600 & data$R0545600 <= 79.0] <- 70.0
data$R0545600[80.0 <= data$R0545600 & data$R0545600 <= 89.0] <- 80.0
data$R0545600[90.0 <= data$R0545600 & data$R0545600 <= 99.0] <- 90.0
data$R0545600[100.0 <= data$R0545600 & data$R0545600 <= 9999999.0] <- 100.0
data$R0545600 <- factor(data$R0545600,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 9999999: 100+"))
data$R0546610[1.0 <= data$R0546610 & data$R0546610 <= 99.0] <- 1.0
data$R0546610[100.0 <= data$R0546610 & data$R0546610 <= 199.0] <- 100.0
data$R0546610[200.0 <= data$R0546610 & data$R0546610 <= 299.0] <- 200.0
data$R0546610[300.0 <= data$R0546610 & data$R0546610 <= 399.0] <- 300.0
data$R0546610[400.0 <= data$R0546610 & data$R0546610 <= 499.0] <- 400.0
data$R0546610[500.0 <= data$R0546610 & data$R0546610 <= 599.0] <- 500.0
data$R0546610[600.0 <= data$R0546610 & data$R0546610 <= 699.0] <- 600.0
data$R0546610[700.0 <= data$R0546610 & data$R0546610 <= 799.0] <- 700.0
data$R0546610[800.0 <= data$R0546610 & data$R0546610 <= 899.0] <- 800.0
data$R0546610[900.0 <= data$R0546610 & data$R0546610 <= 999.0] <- 900.0
data$R0546610[1000.0 <= data$R0546610 & data$R0546610 <= 9999999.0] <- 1000.0
data$R0546610 <- factor(data$R0546610,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0558700[1.0 <= data$R0558700 & data$R0558700 <= 9.0] <- 1.0
data$R0558700[10.0 <= data$R0558700 & data$R0558700 <= 19.0] <- 10.0
data$R0558700[20.0 <= data$R0558700 & data$R0558700 <= 29.0] <- 20.0
data$R0558700[30.0 <= data$R0558700 & data$R0558700 <= 39.0] <- 30.0
data$R0558700[40.0 <= data$R0558700 & data$R0558700 <= 49.0] <- 40.0
data$R0558700[50.0 <= data$R0558700 & data$R0558700 <= 59.0] <- 50.0
data$R0558700[60.0 <= data$R0558700 & data$R0558700 <= 69.0] <- 60.0
data$R0558700[70.0 <= data$R0558700 & data$R0558700 <= 79.0] <- 70.0
data$R0558700[80.0 <= data$R0558700 & data$R0558700 <= 89.0] <- 80.0
data$R0558700[90.0 <= data$R0558700 & data$R0558700 <= 99.0] <- 90.0
data$R0558700[100.0 <= data$R0558700 & data$R0558700 <= 9999999.0] <- 100.0
data$R0558700 <- factor(data$R0558700,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 9999999: 100+"))
data$R0559710[1.0 <= data$R0559710 & data$R0559710 <= 99.0] <- 1.0
data$R0559710[100.0 <= data$R0559710 & data$R0559710 <= 199.0] <- 100.0
data$R0559710[200.0 <= data$R0559710 & data$R0559710 <= 299.0] <- 200.0
data$R0559710[300.0 <= data$R0559710 & data$R0559710 <= 399.0] <- 300.0
data$R0559710[400.0 <= data$R0559710 & data$R0559710 <= 499.0] <- 400.0
data$R0559710[500.0 <= data$R0559710 & data$R0559710 <= 599.0] <- 500.0
data$R0559710[600.0 <= data$R0559710 & data$R0559710 <= 699.0] <- 600.0
data$R0559710[700.0 <= data$R0559710 & data$R0559710 <= 799.0] <- 700.0
data$R0559710[800.0 <= data$R0559710 & data$R0559710 <= 899.0] <- 800.0
data$R0559710[900.0 <= data$R0559710 & data$R0559710 <= 999.0] <- 900.0
data$R0559710[1000.0 <= data$R0559710 & data$R0559710 <= 9999999.0] <- 1000.0
data$R0559710 <- factor(data$R0559710,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0571800[1.0 <= data$R0571800 & data$R0571800 <= 9.0] <- 1.0
data$R0571800[10.0 <= data$R0571800 & data$R0571800 <= 19.0] <- 10.0
data$R0571800[20.0 <= data$R0571800 & data$R0571800 <= 29.0] <- 20.0
data$R0571800[30.0 <= data$R0571800 & data$R0571800 <= 39.0] <- 30.0
data$R0571800[40.0 <= data$R0571800 & data$R0571800 <= 49.0] <- 40.0
data$R0571800[50.0 <= data$R0571800 & data$R0571800 <= 59.0] <- 50.0
data$R0571800[60.0 <= data$R0571800 & data$R0571800 <= 69.0] <- 60.0
data$R0571800[70.0 <= data$R0571800 & data$R0571800 <= 79.0] <- 70.0
data$R0571800[80.0 <= data$R0571800 & data$R0571800 <= 89.0] <- 80.0
data$R0571800[90.0 <= data$R0571800 & data$R0571800 <= 99.0] <- 90.0
data$R0571800[100.0 <= data$R0571800 & data$R0571800 <= 9999999.0] <- 100.0
data$R0571800 <- factor(data$R0571800,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 9999999: 100+"))
data$R0572810[1.0 <= data$R0572810 & data$R0572810 <= 99.0] <- 1.0
data$R0572810[100.0 <= data$R0572810 & data$R0572810 <= 199.0] <- 100.0
data$R0572810[200.0 <= data$R0572810 & data$R0572810 <= 299.0] <- 200.0
data$R0572810[300.0 <= data$R0572810 & data$R0572810 <= 399.0] <- 300.0
data$R0572810[400.0 <= data$R0572810 & data$R0572810 <= 499.0] <- 400.0
data$R0572810[500.0 <= data$R0572810 & data$R0572810 <= 599.0] <- 500.0
data$R0572810[600.0 <= data$R0572810 & data$R0572810 <= 699.0] <- 600.0
data$R0572810[700.0 <= data$R0572810 & data$R0572810 <= 799.0] <- 700.0
data$R0572810[800.0 <= data$R0572810 & data$R0572810 <= 899.0] <- 800.0
data$R0572810[900.0 <= data$R0572810 & data$R0572810 <= 999.0] <- 900.0
data$R0572810[1000.0 <= data$R0572810 & data$R0572810 <= 9999999.0] <- 1000.0
data$R0572810 <- factor(data$R0572810,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0584900[1.0 <= data$R0584900 & data$R0584900 <= 9.0] <- 1.0
data$R0584900[10.0 <= data$R0584900 & data$R0584900 <= 19.0] <- 10.0
data$R0584900[20.0 <= data$R0584900 & data$R0584900 <= 29.0] <- 20.0
data$R0584900[30.0 <= data$R0584900 & data$R0584900 <= 39.0] <- 30.0
data$R0584900[40.0 <= data$R0584900 & data$R0584900 <= 49.0] <- 40.0
data$R0584900[50.0 <= data$R0584900 & data$R0584900 <= 59.0] <- 50.0
data$R0584900[60.0 <= data$R0584900 & data$R0584900 <= 69.0] <- 60.0
data$R0584900[70.0 <= data$R0584900 & data$R0584900 <= 79.0] <- 70.0
data$R0584900[80.0 <= data$R0584900 & data$R0584900 <= 89.0] <- 80.0
data$R0584900[90.0 <= data$R0584900 & data$R0584900 <= 99.0] <- 90.0
data$R0584900[100.0 <= data$R0584900 & data$R0584900 <= 9999999.0] <- 100.0
data$R0584900 <- factor(data$R0584900,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 9999999: 100+"))
data$R0585910[1.0 <= data$R0585910 & data$R0585910 <= 99.0] <- 1.0
data$R0585910[100.0 <= data$R0585910 & data$R0585910 <= 199.0] <- 100.0
data$R0585910[200.0 <= data$R0585910 & data$R0585910 <= 299.0] <- 200.0
data$R0585910[300.0 <= data$R0585910 & data$R0585910 <= 399.0] <- 300.0
data$R0585910[400.0 <= data$R0585910 & data$R0585910 <= 499.0] <- 400.0
data$R0585910[500.0 <= data$R0585910 & data$R0585910 <= 599.0] <- 500.0
data$R0585910[600.0 <= data$R0585910 & data$R0585910 <= 699.0] <- 600.0
data$R0585910[700.0 <= data$R0585910 & data$R0585910 <= 799.0] <- 700.0
data$R0585910[800.0 <= data$R0585910 & data$R0585910 <= 899.0] <- 800.0
data$R0585910[900.0 <= data$R0585910 & data$R0585910 <= 999.0] <- 900.0
data$R0585910[1000.0 <= data$R0585910 & data$R0585910 <= 9999999.0] <- 1000.0
data$R0585910 <- factor(data$R0585910,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0598000[1.0 <= data$R0598000 & data$R0598000 <= 9.0] <- 1.0
data$R0598000[10.0 <= data$R0598000 & data$R0598000 <= 19.0] <- 10.0
data$R0598000[20.0 <= data$R0598000 & data$R0598000 <= 29.0] <- 20.0
data$R0598000[30.0 <= data$R0598000 & data$R0598000 <= 39.0] <- 30.0
data$R0598000[40.0 <= data$R0598000 & data$R0598000 <= 49.0] <- 40.0
data$R0598000[50.0 <= data$R0598000 & data$R0598000 <= 59.0] <- 50.0
data$R0598000[60.0 <= data$R0598000 & data$R0598000 <= 69.0] <- 60.0
data$R0598000[70.0 <= data$R0598000 & data$R0598000 <= 79.0] <- 70.0
data$R0598000[80.0 <= data$R0598000 & data$R0598000 <= 89.0] <- 80.0
data$R0598000[90.0 <= data$R0598000 & data$R0598000 <= 99.0] <- 90.0
data$R0598000[100.0 <= data$R0598000 & data$R0598000 <= 9999999.0] <- 100.0
data$R0598000 <- factor(data$R0598000,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 9999999: 100+"))
data$R0599010[1.0 <= data$R0599010 & data$R0599010 <= 99.0] <- 1.0
data$R0599010[100.0 <= data$R0599010 & data$R0599010 <= 199.0] <- 100.0
data$R0599010[200.0 <= data$R0599010 & data$R0599010 <= 299.0] <- 200.0
data$R0599010[300.0 <= data$R0599010 & data$R0599010 <= 399.0] <- 300.0
data$R0599010[400.0 <= data$R0599010 & data$R0599010 <= 499.0] <- 400.0
data$R0599010[500.0 <= data$R0599010 & data$R0599010 <= 599.0] <- 500.0
data$R0599010[600.0 <= data$R0599010 & data$R0599010 <= 699.0] <- 600.0
data$R0599010[700.0 <= data$R0599010 & data$R0599010 <= 799.0] <- 700.0
data$R0599010[800.0 <= data$R0599010 & data$R0599010 <= 899.0] <- 800.0
data$R0599010[900.0 <= data$R0599010 & data$R0599010 <= 999.0] <- 900.0
data$R0599010[1000.0 <= data$R0599010 & data$R0599010 <= 9999999.0] <- 1000.0
data$R0599010 <- factor(data$R0599010,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0618900 <- factor(data$R0618900,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R0618901 <- factor(data$R0618901,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R0664500 <- factor(data$R0664500,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R0702510[1.0 <= data$R0702510 & data$R0702510 <= 99.0] <- 1.0
data$R0702510[100.0 <= data$R0702510 & data$R0702510 <= 199.0] <- 100.0
data$R0702510[200.0 <= data$R0702510 & data$R0702510 <= 299.0] <- 200.0
data$R0702510[300.0 <= data$R0702510 & data$R0702510 <= 399.0] <- 300.0
data$R0702510[400.0 <= data$R0702510 & data$R0702510 <= 499.0] <- 400.0
data$R0702510[500.0 <= data$R0702510 & data$R0702510 <= 599.0] <- 500.0
data$R0702510[600.0 <= data$R0702510 & data$R0702510 <= 699.0] <- 600.0
data$R0702510[700.0 <= data$R0702510 & data$R0702510 <= 799.0] <- 700.0
data$R0702510[800.0 <= data$R0702510 & data$R0702510 <= 899.0] <- 800.0
data$R0702510[900.0 <= data$R0702510 & data$R0702510 <= 999.0] <- 900.0
data$R0702510[1000.0 <= data$R0702510 & data$R0702510 <= 9999999.0] <- 1000.0
data$R0702510 <- factor(data$R0702510,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0839900[1.0 <= data$R0839900 & data$R0839900 <= 9.0] <- 1.0
data$R0839900[10.0 <= data$R0839900 & data$R0839900 <= 19.0] <- 10.0
data$R0839900[20.0 <= data$R0839900 & data$R0839900 <= 29.0] <- 20.0
data$R0839900[30.0 <= data$R0839900 & data$R0839900 <= 39.0] <- 30.0
data$R0839900[40.0 <= data$R0839900 & data$R0839900 <= 49.0] <- 40.0
data$R0839900[50.0 <= data$R0839900 & data$R0839900 <= 59.0] <- 50.0
data$R0839900[60.0 <= data$R0839900 & data$R0839900 <= 69.0] <- 60.0
data$R0839900[70.0 <= data$R0839900 & data$R0839900 <= 79.0] <- 70.0
data$R0839900[80.0 <= data$R0839900 & data$R0839900 <= 89.0] <- 80.0
data$R0839900[90.0 <= data$R0839900 & data$R0839900 <= 99.0] <- 90.0
data$R0839900[100.0 <= data$R0839900 & data$R0839900 <= 9999999.0] <- 100.0
data$R0839900 <- factor(data$R0839900,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 9999999: 100+"))
data$R0841010[1.0 <= data$R0841010 & data$R0841010 <= 99.0] <- 1.0
data$R0841010[100.0 <= data$R0841010 & data$R0841010 <= 199.0] <- 100.0
data$R0841010[200.0 <= data$R0841010 & data$R0841010 <= 299.0] <- 200.0
data$R0841010[300.0 <= data$R0841010 & data$R0841010 <= 399.0] <- 300.0
data$R0841010[400.0 <= data$R0841010 & data$R0841010 <= 499.0] <- 400.0
data$R0841010[500.0 <= data$R0841010 & data$R0841010 <= 599.0] <- 500.0
data$R0841010[600.0 <= data$R0841010 & data$R0841010 <= 699.0] <- 600.0
data$R0841010[700.0 <= data$R0841010 & data$R0841010 <= 799.0] <- 700.0
data$R0841010[800.0 <= data$R0841010 & data$R0841010 <= 899.0] <- 800.0
data$R0841010[900.0 <= data$R0841010 & data$R0841010 <= 999.0] <- 900.0
data$R0841010[1000.0 <= data$R0841010 & data$R0841010 <= 9999999.0] <- 1000.0
data$R0841010 <- factor(data$R0841010,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0853000[1.0 <= data$R0853000 & data$R0853000 <= 9.0] <- 1.0
data$R0853000[10.0 <= data$R0853000 & data$R0853000 <= 19.0] <- 10.0
data$R0853000[20.0 <= data$R0853000 & data$R0853000 <= 29.0] <- 20.0
data$R0853000[30.0 <= data$R0853000 & data$R0853000 <= 39.0] <- 30.0
data$R0853000[40.0 <= data$R0853000 & data$R0853000 <= 49.0] <- 40.0
data$R0853000[50.0 <= data$R0853000 & data$R0853000 <= 59.0] <- 50.0
data$R0853000[60.0 <= data$R0853000 & data$R0853000 <= 69.0] <- 60.0
data$R0853000[70.0 <= data$R0853000 & data$R0853000 <= 79.0] <- 70.0
data$R0853000[80.0 <= data$R0853000 & data$R0853000 <= 89.0] <- 80.0
data$R0853000[90.0 <= data$R0853000 & data$R0853000 <= 99.0] <- 90.0
data$R0853000[100.0 <= data$R0853000 & data$R0853000 <= 9999999.0] <- 100.0
data$R0853000 <- factor(data$R0853000,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 9999999: 100+"))
data$R0854110[1.0 <= data$R0854110 & data$R0854110 <= 99.0] <- 1.0
data$R0854110[100.0 <= data$R0854110 & data$R0854110 <= 199.0] <- 100.0
data$R0854110[200.0 <= data$R0854110 & data$R0854110 <= 299.0] <- 200.0
data$R0854110[300.0 <= data$R0854110 & data$R0854110 <= 399.0] <- 300.0
data$R0854110[400.0 <= data$R0854110 & data$R0854110 <= 499.0] <- 400.0
data$R0854110[500.0 <= data$R0854110 & data$R0854110 <= 599.0] <- 500.0
data$R0854110[600.0 <= data$R0854110 & data$R0854110 <= 699.0] <- 600.0
data$R0854110[700.0 <= data$R0854110 & data$R0854110 <= 799.0] <- 700.0
data$R0854110[800.0 <= data$R0854110 & data$R0854110 <= 899.0] <- 800.0
data$R0854110[900.0 <= data$R0854110 & data$R0854110 <= 999.0] <- 900.0
data$R0854110[1000.0 <= data$R0854110 & data$R0854110 <= 9999999.0] <- 1000.0
data$R0854110 <- factor(data$R0854110,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0866100[1.0 <= data$R0866100 & data$R0866100 <= 9.0] <- 1.0
data$R0866100[10.0 <= data$R0866100 & data$R0866100 <= 19.0] <- 10.0
data$R0866100[20.0 <= data$R0866100 & data$R0866100 <= 29.0] <- 20.0
data$R0866100[30.0 <= data$R0866100 & data$R0866100 <= 39.0] <- 30.0
data$R0866100[40.0 <= data$R0866100 & data$R0866100 <= 49.0] <- 40.0
data$R0866100[50.0 <= data$R0866100 & data$R0866100 <= 59.0] <- 50.0
data$R0866100[60.0 <= data$R0866100 & data$R0866100 <= 69.0] <- 60.0
data$R0866100[70.0 <= data$R0866100 & data$R0866100 <= 79.0] <- 70.0
data$R0866100[80.0 <= data$R0866100 & data$R0866100 <= 89.0] <- 80.0
data$R0866100[90.0 <= data$R0866100 & data$R0866100 <= 99.0] <- 90.0
data$R0866100[100.0 <= data$R0866100 & data$R0866100 <= 9999999.0] <- 100.0
data$R0866100 <- factor(data$R0866100,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 9999999: 100+"))
data$R0867210[1.0 <= data$R0867210 & data$R0867210 <= 99.0] <- 1.0
data$R0867210[100.0 <= data$R0867210 & data$R0867210 <= 199.0] <- 100.0
data$R0867210[200.0 <= data$R0867210 & data$R0867210 <= 299.0] <- 200.0
data$R0867210[300.0 <= data$R0867210 & data$R0867210 <= 399.0] <- 300.0
data$R0867210[400.0 <= data$R0867210 & data$R0867210 <= 499.0] <- 400.0
data$R0867210[500.0 <= data$R0867210 & data$R0867210 <= 599.0] <- 500.0
data$R0867210[600.0 <= data$R0867210 & data$R0867210 <= 699.0] <- 600.0
data$R0867210[700.0 <= data$R0867210 & data$R0867210 <= 799.0] <- 700.0
data$R0867210[800.0 <= data$R0867210 & data$R0867210 <= 899.0] <- 800.0
data$R0867210[900.0 <= data$R0867210 & data$R0867210 <= 999.0] <- 900.0
data$R0867210[1000.0 <= data$R0867210 & data$R0867210 <= 9999999.0] <- 1000.0
data$R0867210 <- factor(data$R0867210,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0879200[1.0 <= data$R0879200 & data$R0879200 <= 9.0] <- 1.0
data$R0879200[10.0 <= data$R0879200 & data$R0879200 <= 19.0] <- 10.0
data$R0879200[20.0 <= data$R0879200 & data$R0879200 <= 29.0] <- 20.0
data$R0879200[30.0 <= data$R0879200 & data$R0879200 <= 39.0] <- 30.0
data$R0879200[40.0 <= data$R0879200 & data$R0879200 <= 49.0] <- 40.0
data$R0879200[50.0 <= data$R0879200 & data$R0879200 <= 59.0] <- 50.0
data$R0879200[60.0 <= data$R0879200 & data$R0879200 <= 69.0] <- 60.0
data$R0879200[70.0 <= data$R0879200 & data$R0879200 <= 79.0] <- 70.0
data$R0879200[80.0 <= data$R0879200 & data$R0879200 <= 89.0] <- 80.0
data$R0879200[90.0 <= data$R0879200 & data$R0879200 <= 99.0] <- 90.0
data$R0879200[100.0 <= data$R0879200 & data$R0879200 <= 9999999.0] <- 100.0
data$R0879200 <- factor(data$R0879200,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 9999999: 100+"))
data$R0880310[1.0 <= data$R0880310 & data$R0880310 <= 99.0] <- 1.0
data$R0880310[100.0 <= data$R0880310 & data$R0880310 <= 199.0] <- 100.0
data$R0880310[200.0 <= data$R0880310 & data$R0880310 <= 299.0] <- 200.0
data$R0880310[300.0 <= data$R0880310 & data$R0880310 <= 399.0] <- 300.0
data$R0880310[400.0 <= data$R0880310 & data$R0880310 <= 499.0] <- 400.0
data$R0880310[500.0 <= data$R0880310 & data$R0880310 <= 599.0] <- 500.0
data$R0880310[600.0 <= data$R0880310 & data$R0880310 <= 699.0] <- 600.0
data$R0880310[700.0 <= data$R0880310 & data$R0880310 <= 799.0] <- 700.0
data$R0880310[800.0 <= data$R0880310 & data$R0880310 <= 899.0] <- 800.0
data$R0880310[900.0 <= data$R0880310 & data$R0880310 <= 999.0] <- 900.0
data$R0880310[1000.0 <= data$R0880310 & data$R0880310 <= 9999999.0] <- 1000.0
data$R0880310 <- factor(data$R0880310,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0892300[1.0 <= data$R0892300 & data$R0892300 <= 9.0] <- 1.0
data$R0892300[10.0 <= data$R0892300 & data$R0892300 <= 19.0] <- 10.0
data$R0892300[20.0 <= data$R0892300 & data$R0892300 <= 29.0] <- 20.0
data$R0892300[30.0 <= data$R0892300 & data$R0892300 <= 39.0] <- 30.0
data$R0892300[40.0 <= data$R0892300 & data$R0892300 <= 49.0] <- 40.0
data$R0892300[50.0 <= data$R0892300 & data$R0892300 <= 59.0] <- 50.0
data$R0892300[60.0 <= data$R0892300 & data$R0892300 <= 69.0] <- 60.0
data$R0892300[70.0 <= data$R0892300 & data$R0892300 <= 79.0] <- 70.0
data$R0892300[80.0 <= data$R0892300 & data$R0892300 <= 89.0] <- 80.0
data$R0892300[90.0 <= data$R0892300 & data$R0892300 <= 99.0] <- 90.0
data$R0892300[100.0 <= data$R0892300 & data$R0892300 <= 9999999.0] <- 100.0
data$R0892300 <- factor(data$R0892300,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 9999999: 100+"))
data$R0893410[1.0 <= data$R0893410 & data$R0893410 <= 99.0] <- 1.0
data$R0893410[100.0 <= data$R0893410 & data$R0893410 <= 199.0] <- 100.0
data$R0893410[200.0 <= data$R0893410 & data$R0893410 <= 299.0] <- 200.0
data$R0893410[300.0 <= data$R0893410 & data$R0893410 <= 399.0] <- 300.0
data$R0893410[400.0 <= data$R0893410 & data$R0893410 <= 499.0] <- 400.0
data$R0893410[500.0 <= data$R0893410 & data$R0893410 <= 599.0] <- 500.0
data$R0893410[600.0 <= data$R0893410 & data$R0893410 <= 699.0] <- 600.0
data$R0893410[700.0 <= data$R0893410 & data$R0893410 <= 799.0] <- 700.0
data$R0893410[800.0 <= data$R0893410 & data$R0893410 <= 899.0] <- 800.0
data$R0893410[900.0 <= data$R0893410 & data$R0893410 <= 999.0] <- 900.0
data$R0893410[1000.0 <= data$R0893410 & data$R0893410 <= 9999999.0] <- 1000.0
data$R0893410 <- factor(data$R0893410,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R0898200 <- factor(data$R0898200,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R0898201 <- factor(data$R0898201,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R0905900 <- factor(data$R0905900,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R0945610[1.0 <= data$R0945610 & data$R0945610 <= 99.0] <- 1.0
data$R0945610[100.0 <= data$R0945610 & data$R0945610 <= 199.0] <- 100.0
data$R0945610[200.0 <= data$R0945610 & data$R0945610 <= 299.0] <- 200.0
data$R0945610[300.0 <= data$R0945610 & data$R0945610 <= 399.0] <- 300.0
data$R0945610[400.0 <= data$R0945610 & data$R0945610 <= 499.0] <- 400.0
data$R0945610[500.0 <= data$R0945610 & data$R0945610 <= 599.0] <- 500.0
data$R0945610[600.0 <= data$R0945610 & data$R0945610 <= 699.0] <- 600.0
data$R0945610[700.0 <= data$R0945610 & data$R0945610 <= 799.0] <- 700.0
data$R0945610[800.0 <= data$R0945610 & data$R0945610 <= 899.0] <- 800.0
data$R0945610[900.0 <= data$R0945610 & data$R0945610 <= 999.0] <- 900.0
data$R0945610[1000.0 <= data$R0945610 & data$R0945610 <= 9999999.0] <- 1000.0
data$R0945610 <- factor(data$R0945610,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R1087300[1.0 <= data$R1087300 & data$R1087300 <= 4.0] <- 1.0
data$R1087300[5.0 <= data$R1087300 & data$R1087300 <= 9.0] <- 5.0
data$R1087300[10.0 <= data$R1087300 & data$R1087300 <= 14.0] <- 10.0
data$R1087300[15.0 <= data$R1087300 & data$R1087300 <= 19.0] <- 15.0
data$R1087300[20.0 <= data$R1087300 & data$R1087300 <= 24.0] <- 20.0
data$R1087300[25.0 <= data$R1087300 & data$R1087300 <= 29.0] <- 25.0
data$R1087300[30.0 <= data$R1087300 & data$R1087300 <= 34.0] <- 30.0
data$R1087300[35.0 <= data$R1087300 & data$R1087300 <= 39.0] <- 35.0
data$R1087300[40.0 <= data$R1087300 & data$R1087300 <= 44.0] <- 40.0
data$R1087300[45.0 <= data$R1087300 & data$R1087300 <= 49.0] <- 45.0
data$R1087300[50.0 <= data$R1087300 & data$R1087300 <= 9999999.0] <- 50.0
data$R1087300 <- factor(data$R1087300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R1088210[1.0 <= data$R1088210 & data$R1088210 <= 99.0] <- 1.0
data$R1088210[100.0 <= data$R1088210 & data$R1088210 <= 199.0] <- 100.0
data$R1088210[200.0 <= data$R1088210 & data$R1088210 <= 299.0] <- 200.0
data$R1088210[300.0 <= data$R1088210 & data$R1088210 <= 399.0] <- 300.0
data$R1088210[400.0 <= data$R1088210 & data$R1088210 <= 499.0] <- 400.0
data$R1088210[500.0 <= data$R1088210 & data$R1088210 <= 599.0] <- 500.0
data$R1088210[600.0 <= data$R1088210 & data$R1088210 <= 699.0] <- 600.0
data$R1088210[700.0 <= data$R1088210 & data$R1088210 <= 799.0] <- 700.0
data$R1088210[800.0 <= data$R1088210 & data$R1088210 <= 899.0] <- 800.0
data$R1088210[900.0 <= data$R1088210 & data$R1088210 <= 999.0] <- 900.0
data$R1088210[1000.0 <= data$R1088210 & data$R1088210 <= 9999999.0] <- 1000.0
data$R1088210 <- factor(data$R1088210,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R1100500[1.0 <= data$R1100500 & data$R1100500 <= 4.0] <- 1.0
data$R1100500[5.0 <= data$R1100500 & data$R1100500 <= 9.0] <- 5.0
data$R1100500[10.0 <= data$R1100500 & data$R1100500 <= 14.0] <- 10.0
data$R1100500[15.0 <= data$R1100500 & data$R1100500 <= 19.0] <- 15.0
data$R1100500[20.0 <= data$R1100500 & data$R1100500 <= 24.0] <- 20.0
data$R1100500[25.0 <= data$R1100500 & data$R1100500 <= 29.0] <- 25.0
data$R1100500[30.0 <= data$R1100500 & data$R1100500 <= 34.0] <- 30.0
data$R1100500[35.0 <= data$R1100500 & data$R1100500 <= 39.0] <- 35.0
data$R1100500[40.0 <= data$R1100500 & data$R1100500 <= 44.0] <- 40.0
data$R1100500[45.0 <= data$R1100500 & data$R1100500 <= 49.0] <- 45.0
data$R1100500[50.0 <= data$R1100500 & data$R1100500 <= 9999999.0] <- 50.0
data$R1100500 <- factor(data$R1100500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R1101410[1.0 <= data$R1101410 & data$R1101410 <= 99.0] <- 1.0
data$R1101410[100.0 <= data$R1101410 & data$R1101410 <= 199.0] <- 100.0
data$R1101410[200.0 <= data$R1101410 & data$R1101410 <= 299.0] <- 200.0
data$R1101410[300.0 <= data$R1101410 & data$R1101410 <= 399.0] <- 300.0
data$R1101410[400.0 <= data$R1101410 & data$R1101410 <= 499.0] <- 400.0
data$R1101410[500.0 <= data$R1101410 & data$R1101410 <= 599.0] <- 500.0
data$R1101410[600.0 <= data$R1101410 & data$R1101410 <= 699.0] <- 600.0
data$R1101410[700.0 <= data$R1101410 & data$R1101410 <= 799.0] <- 700.0
data$R1101410[800.0 <= data$R1101410 & data$R1101410 <= 899.0] <- 800.0
data$R1101410[900.0 <= data$R1101410 & data$R1101410 <= 999.0] <- 900.0
data$R1101410[1000.0 <= data$R1101410 & data$R1101410 <= 9999999.0] <- 1000.0
data$R1101410 <- factor(data$R1101410,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R1113700[1.0 <= data$R1113700 & data$R1113700 <= 4.0] <- 1.0
data$R1113700[5.0 <= data$R1113700 & data$R1113700 <= 9.0] <- 5.0
data$R1113700[10.0 <= data$R1113700 & data$R1113700 <= 14.0] <- 10.0
data$R1113700[15.0 <= data$R1113700 & data$R1113700 <= 19.0] <- 15.0
data$R1113700[20.0 <= data$R1113700 & data$R1113700 <= 24.0] <- 20.0
data$R1113700[25.0 <= data$R1113700 & data$R1113700 <= 29.0] <- 25.0
data$R1113700[30.0 <= data$R1113700 & data$R1113700 <= 34.0] <- 30.0
data$R1113700[35.0 <= data$R1113700 & data$R1113700 <= 39.0] <- 35.0
data$R1113700[40.0 <= data$R1113700 & data$R1113700 <= 44.0] <- 40.0
data$R1113700[45.0 <= data$R1113700 & data$R1113700 <= 49.0] <- 45.0
data$R1113700[50.0 <= data$R1113700 & data$R1113700 <= 9999999.0] <- 50.0
data$R1113700 <- factor(data$R1113700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R1114610[1.0 <= data$R1114610 & data$R1114610 <= 99.0] <- 1.0
data$R1114610[100.0 <= data$R1114610 & data$R1114610 <= 199.0] <- 100.0
data$R1114610[200.0 <= data$R1114610 & data$R1114610 <= 299.0] <- 200.0
data$R1114610[300.0 <= data$R1114610 & data$R1114610 <= 399.0] <- 300.0
data$R1114610[400.0 <= data$R1114610 & data$R1114610 <= 499.0] <- 400.0
data$R1114610[500.0 <= data$R1114610 & data$R1114610 <= 599.0] <- 500.0
data$R1114610[600.0 <= data$R1114610 & data$R1114610 <= 699.0] <- 600.0
data$R1114610[700.0 <= data$R1114610 & data$R1114610 <= 799.0] <- 700.0
data$R1114610[800.0 <= data$R1114610 & data$R1114610 <= 899.0] <- 800.0
data$R1114610[900.0 <= data$R1114610 & data$R1114610 <= 999.0] <- 900.0
data$R1114610[1000.0 <= data$R1114610 & data$R1114610 <= 9999999.0] <- 1000.0
data$R1114610 <- factor(data$R1114610,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R1126900[1.0 <= data$R1126900 & data$R1126900 <= 4.0] <- 1.0
data$R1126900[5.0 <= data$R1126900 & data$R1126900 <= 9.0] <- 5.0
data$R1126900[10.0 <= data$R1126900 & data$R1126900 <= 14.0] <- 10.0
data$R1126900[15.0 <= data$R1126900 & data$R1126900 <= 19.0] <- 15.0
data$R1126900[20.0 <= data$R1126900 & data$R1126900 <= 24.0] <- 20.0
data$R1126900[25.0 <= data$R1126900 & data$R1126900 <= 29.0] <- 25.0
data$R1126900[30.0 <= data$R1126900 & data$R1126900 <= 34.0] <- 30.0
data$R1126900[35.0 <= data$R1126900 & data$R1126900 <= 39.0] <- 35.0
data$R1126900[40.0 <= data$R1126900 & data$R1126900 <= 44.0] <- 40.0
data$R1126900[45.0 <= data$R1126900 & data$R1126900 <= 49.0] <- 45.0
data$R1126900[50.0 <= data$R1126900 & data$R1126900 <= 9999999.0] <- 50.0
data$R1126900 <- factor(data$R1126900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R1127810[1.0 <= data$R1127810 & data$R1127810 <= 99.0] <- 1.0
data$R1127810[100.0 <= data$R1127810 & data$R1127810 <= 199.0] <- 100.0
data$R1127810[200.0 <= data$R1127810 & data$R1127810 <= 299.0] <- 200.0
data$R1127810[300.0 <= data$R1127810 & data$R1127810 <= 399.0] <- 300.0
data$R1127810[400.0 <= data$R1127810 & data$R1127810 <= 499.0] <- 400.0
data$R1127810[500.0 <= data$R1127810 & data$R1127810 <= 599.0] <- 500.0
data$R1127810[600.0 <= data$R1127810 & data$R1127810 <= 699.0] <- 600.0
data$R1127810[700.0 <= data$R1127810 & data$R1127810 <= 799.0] <- 700.0
data$R1127810[800.0 <= data$R1127810 & data$R1127810 <= 899.0] <- 800.0
data$R1127810[900.0 <= data$R1127810 & data$R1127810 <= 999.0] <- 900.0
data$R1127810[1000.0 <= data$R1127810 & data$R1127810 <= 9999999.0] <- 1000.0
data$R1127810 <- factor(data$R1127810,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R1140100[1.0 <= data$R1140100 & data$R1140100 <= 4.0] <- 1.0
data$R1140100[5.0 <= data$R1140100 & data$R1140100 <= 9.0] <- 5.0
data$R1140100[10.0 <= data$R1140100 & data$R1140100 <= 14.0] <- 10.0
data$R1140100[15.0 <= data$R1140100 & data$R1140100 <= 19.0] <- 15.0
data$R1140100[20.0 <= data$R1140100 & data$R1140100 <= 24.0] <- 20.0
data$R1140100[25.0 <= data$R1140100 & data$R1140100 <= 29.0] <- 25.0
data$R1140100[30.0 <= data$R1140100 & data$R1140100 <= 34.0] <- 30.0
data$R1140100[35.0 <= data$R1140100 & data$R1140100 <= 39.0] <- 35.0
data$R1140100[40.0 <= data$R1140100 & data$R1140100 <= 44.0] <- 40.0
data$R1140100[45.0 <= data$R1140100 & data$R1140100 <= 49.0] <- 45.0
data$R1140100[50.0 <= data$R1140100 & data$R1140100 <= 9999999.0] <- 50.0
data$R1140100 <- factor(data$R1140100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R1141010[1.0 <= data$R1141010 & data$R1141010 <= 99.0] <- 1.0
data$R1141010[100.0 <= data$R1141010 & data$R1141010 <= 199.0] <- 100.0
data$R1141010[200.0 <= data$R1141010 & data$R1141010 <= 299.0] <- 200.0
data$R1141010[300.0 <= data$R1141010 & data$R1141010 <= 399.0] <- 300.0
data$R1141010[400.0 <= data$R1141010 & data$R1141010 <= 499.0] <- 400.0
data$R1141010[500.0 <= data$R1141010 & data$R1141010 <= 599.0] <- 500.0
data$R1141010[600.0 <= data$R1141010 & data$R1141010 <= 699.0] <- 600.0
data$R1141010[700.0 <= data$R1141010 & data$R1141010 <= 799.0] <- 700.0
data$R1141010[800.0 <= data$R1141010 & data$R1141010 <= 899.0] <- 800.0
data$R1141010[900.0 <= data$R1141010 & data$R1141010 <= 999.0] <- 900.0
data$R1141010[1000.0 <= data$R1141010 & data$R1141010 <= 9999999.0] <- 1000.0
data$R1141010 <- factor(data$R1141010,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R1145000 <- factor(data$R1145000,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R1145001 <- factor(data$R1145001,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R1205800 <- factor(data$R1205800,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R1256010[1.0 <= data$R1256010 & data$R1256010 <= 99.0] <- 1.0
data$R1256010[100.0 <= data$R1256010 & data$R1256010 <= 199.0] <- 100.0
data$R1256010[200.0 <= data$R1256010 & data$R1256010 <= 299.0] <- 200.0
data$R1256010[300.0 <= data$R1256010 & data$R1256010 <= 399.0] <- 300.0
data$R1256010[400.0 <= data$R1256010 & data$R1256010 <= 499.0] <- 400.0
data$R1256010[500.0 <= data$R1256010 & data$R1256010 <= 599.0] <- 500.0
data$R1256010[600.0 <= data$R1256010 & data$R1256010 <= 699.0] <- 600.0
data$R1256010[700.0 <= data$R1256010 & data$R1256010 <= 799.0] <- 700.0
data$R1256010[800.0 <= data$R1256010 & data$R1256010 <= 899.0] <- 800.0
data$R1256010[900.0 <= data$R1256010 & data$R1256010 <= 999.0] <- 900.0
data$R1256010[1000.0 <= data$R1256010 & data$R1256010 <= 9999999.0] <- 1000.0
data$R1256010 <- factor(data$R1256010,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R1463000[1.0 <= data$R1463000 & data$R1463000 <= 4.0] <- 1.0
data$R1463000[5.0 <= data$R1463000 & data$R1463000 <= 9.0] <- 5.0
data$R1463000[10.0 <= data$R1463000 & data$R1463000 <= 14.0] <- 10.0
data$R1463000[15.0 <= data$R1463000 & data$R1463000 <= 19.0] <- 15.0
data$R1463000[20.0 <= data$R1463000 & data$R1463000 <= 24.0] <- 20.0
data$R1463000[25.0 <= data$R1463000 & data$R1463000 <= 29.0] <- 25.0
data$R1463000[30.0 <= data$R1463000 & data$R1463000 <= 34.0] <- 30.0
data$R1463000[35.0 <= data$R1463000 & data$R1463000 <= 39.0] <- 35.0
data$R1463000[40.0 <= data$R1463000 & data$R1463000 <= 44.0] <- 40.0
data$R1463000[45.0 <= data$R1463000 & data$R1463000 <= 49.0] <- 45.0
data$R1463000[50.0 <= data$R1463000 & data$R1463000 <= 9999999.0] <- 50.0
data$R1463000 <- factor(data$R1463000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R1463910[1.0 <= data$R1463910 & data$R1463910 <= 99.0] <- 1.0
data$R1463910[100.0 <= data$R1463910 & data$R1463910 <= 199.0] <- 100.0
data$R1463910[200.0 <= data$R1463910 & data$R1463910 <= 299.0] <- 200.0
data$R1463910[300.0 <= data$R1463910 & data$R1463910 <= 399.0] <- 300.0
data$R1463910[400.0 <= data$R1463910 & data$R1463910 <= 499.0] <- 400.0
data$R1463910[500.0 <= data$R1463910 & data$R1463910 <= 599.0] <- 500.0
data$R1463910[600.0 <= data$R1463910 & data$R1463910 <= 699.0] <- 600.0
data$R1463910[700.0 <= data$R1463910 & data$R1463910 <= 799.0] <- 700.0
data$R1463910[800.0 <= data$R1463910 & data$R1463910 <= 899.0] <- 800.0
data$R1463910[900.0 <= data$R1463910 & data$R1463910 <= 999.0] <- 900.0
data$R1463910[1000.0 <= data$R1463910 & data$R1463910 <= 9999999.0] <- 1000.0
data$R1463910 <- factor(data$R1463910,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R1476100[1.0 <= data$R1476100 & data$R1476100 <= 4.0] <- 1.0
data$R1476100[5.0 <= data$R1476100 & data$R1476100 <= 9.0] <- 5.0
data$R1476100[10.0 <= data$R1476100 & data$R1476100 <= 14.0] <- 10.0
data$R1476100[15.0 <= data$R1476100 & data$R1476100 <= 19.0] <- 15.0
data$R1476100[20.0 <= data$R1476100 & data$R1476100 <= 24.0] <- 20.0
data$R1476100[25.0 <= data$R1476100 & data$R1476100 <= 29.0] <- 25.0
data$R1476100[30.0 <= data$R1476100 & data$R1476100 <= 34.0] <- 30.0
data$R1476100[35.0 <= data$R1476100 & data$R1476100 <= 39.0] <- 35.0
data$R1476100[40.0 <= data$R1476100 & data$R1476100 <= 44.0] <- 40.0
data$R1476100[45.0 <= data$R1476100 & data$R1476100 <= 49.0] <- 45.0
data$R1476100[50.0 <= data$R1476100 & data$R1476100 <= 9999999.0] <- 50.0
data$R1476100 <- factor(data$R1476100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R1477010[1.0 <= data$R1477010 & data$R1477010 <= 99.0] <- 1.0
data$R1477010[100.0 <= data$R1477010 & data$R1477010 <= 199.0] <- 100.0
data$R1477010[200.0 <= data$R1477010 & data$R1477010 <= 299.0] <- 200.0
data$R1477010[300.0 <= data$R1477010 & data$R1477010 <= 399.0] <- 300.0
data$R1477010[400.0 <= data$R1477010 & data$R1477010 <= 499.0] <- 400.0
data$R1477010[500.0 <= data$R1477010 & data$R1477010 <= 599.0] <- 500.0
data$R1477010[600.0 <= data$R1477010 & data$R1477010 <= 699.0] <- 600.0
data$R1477010[700.0 <= data$R1477010 & data$R1477010 <= 799.0] <- 700.0
data$R1477010[800.0 <= data$R1477010 & data$R1477010 <= 899.0] <- 800.0
data$R1477010[900.0 <= data$R1477010 & data$R1477010 <= 999.0] <- 900.0
data$R1477010[1000.0 <= data$R1477010 & data$R1477010 <= 9999999.0] <- 1000.0
data$R1477010 <- factor(data$R1477010,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R1489200[1.0 <= data$R1489200 & data$R1489200 <= 4.0] <- 1.0
data$R1489200[5.0 <= data$R1489200 & data$R1489200 <= 9.0] <- 5.0
data$R1489200[10.0 <= data$R1489200 & data$R1489200 <= 14.0] <- 10.0
data$R1489200[15.0 <= data$R1489200 & data$R1489200 <= 19.0] <- 15.0
data$R1489200[20.0 <= data$R1489200 & data$R1489200 <= 24.0] <- 20.0
data$R1489200[25.0 <= data$R1489200 & data$R1489200 <= 29.0] <- 25.0
data$R1489200[30.0 <= data$R1489200 & data$R1489200 <= 34.0] <- 30.0
data$R1489200[35.0 <= data$R1489200 & data$R1489200 <= 39.0] <- 35.0
data$R1489200[40.0 <= data$R1489200 & data$R1489200 <= 44.0] <- 40.0
data$R1489200[45.0 <= data$R1489200 & data$R1489200 <= 49.0] <- 45.0
data$R1489200[50.0 <= data$R1489200 & data$R1489200 <= 9999999.0] <- 50.0
data$R1489200 <- factor(data$R1489200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R1490110[1.0 <= data$R1490110 & data$R1490110 <= 99.0] <- 1.0
data$R1490110[100.0 <= data$R1490110 & data$R1490110 <= 199.0] <- 100.0
data$R1490110[200.0 <= data$R1490110 & data$R1490110 <= 299.0] <- 200.0
data$R1490110[300.0 <= data$R1490110 & data$R1490110 <= 399.0] <- 300.0
data$R1490110[400.0 <= data$R1490110 & data$R1490110 <= 499.0] <- 400.0
data$R1490110[500.0 <= data$R1490110 & data$R1490110 <= 599.0] <- 500.0
data$R1490110[600.0 <= data$R1490110 & data$R1490110 <= 699.0] <- 600.0
data$R1490110[700.0 <= data$R1490110 & data$R1490110 <= 799.0] <- 700.0
data$R1490110[800.0 <= data$R1490110 & data$R1490110 <= 899.0] <- 800.0
data$R1490110[900.0 <= data$R1490110 & data$R1490110 <= 999.0] <- 900.0
data$R1490110[1000.0 <= data$R1490110 & data$R1490110 <= 9999999.0] <- 1000.0
data$R1490110 <- factor(data$R1490110,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R1502300[1.0 <= data$R1502300 & data$R1502300 <= 4.0] <- 1.0
data$R1502300[5.0 <= data$R1502300 & data$R1502300 <= 9.0] <- 5.0
data$R1502300[10.0 <= data$R1502300 & data$R1502300 <= 14.0] <- 10.0
data$R1502300[15.0 <= data$R1502300 & data$R1502300 <= 19.0] <- 15.0
data$R1502300[20.0 <= data$R1502300 & data$R1502300 <= 24.0] <- 20.0
data$R1502300[25.0 <= data$R1502300 & data$R1502300 <= 29.0] <- 25.0
data$R1502300[30.0 <= data$R1502300 & data$R1502300 <= 34.0] <- 30.0
data$R1502300[35.0 <= data$R1502300 & data$R1502300 <= 39.0] <- 35.0
data$R1502300[40.0 <= data$R1502300 & data$R1502300 <= 44.0] <- 40.0
data$R1502300[45.0 <= data$R1502300 & data$R1502300 <= 49.0] <- 45.0
data$R1502300[50.0 <= data$R1502300 & data$R1502300 <= 9999999.0] <- 50.0
data$R1502300 <- factor(data$R1502300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R1503210[1.0 <= data$R1503210 & data$R1503210 <= 99.0] <- 1.0
data$R1503210[100.0 <= data$R1503210 & data$R1503210 <= 199.0] <- 100.0
data$R1503210[200.0 <= data$R1503210 & data$R1503210 <= 299.0] <- 200.0
data$R1503210[300.0 <= data$R1503210 & data$R1503210 <= 399.0] <- 300.0
data$R1503210[400.0 <= data$R1503210 & data$R1503210 <= 499.0] <- 400.0
data$R1503210[500.0 <= data$R1503210 & data$R1503210 <= 599.0] <- 500.0
data$R1503210[600.0 <= data$R1503210 & data$R1503210 <= 699.0] <- 600.0
data$R1503210[700.0 <= data$R1503210 & data$R1503210 <= 799.0] <- 700.0
data$R1503210[800.0 <= data$R1503210 & data$R1503210 <= 899.0] <- 800.0
data$R1503210[900.0 <= data$R1503210 & data$R1503210 <= 999.0] <- 900.0
data$R1503210[1000.0 <= data$R1503210 & data$R1503210 <= 9999999.0] <- 1000.0
data$R1503210 <- factor(data$R1503210,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R1515400[1.0 <= data$R1515400 & data$R1515400 <= 4.0] <- 1.0
data$R1515400[5.0 <= data$R1515400 & data$R1515400 <= 9.0] <- 5.0
data$R1515400[10.0 <= data$R1515400 & data$R1515400 <= 14.0] <- 10.0
data$R1515400[15.0 <= data$R1515400 & data$R1515400 <= 19.0] <- 15.0
data$R1515400[20.0 <= data$R1515400 & data$R1515400 <= 24.0] <- 20.0
data$R1515400[25.0 <= data$R1515400 & data$R1515400 <= 29.0] <- 25.0
data$R1515400[30.0 <= data$R1515400 & data$R1515400 <= 34.0] <- 30.0
data$R1515400[35.0 <= data$R1515400 & data$R1515400 <= 39.0] <- 35.0
data$R1515400[40.0 <= data$R1515400 & data$R1515400 <= 44.0] <- 40.0
data$R1515400[45.0 <= data$R1515400 & data$R1515400 <= 49.0] <- 45.0
data$R1515400[50.0 <= data$R1515400 & data$R1515400 <= 9999999.0] <- 50.0
data$R1515400 <- factor(data$R1515400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R1516310[1.0 <= data$R1516310 & data$R1516310 <= 99.0] <- 1.0
data$R1516310[100.0 <= data$R1516310 & data$R1516310 <= 199.0] <- 100.0
data$R1516310[200.0 <= data$R1516310 & data$R1516310 <= 299.0] <- 200.0
data$R1516310[300.0 <= data$R1516310 & data$R1516310 <= 399.0] <- 300.0
data$R1516310[400.0 <= data$R1516310 & data$R1516310 <= 499.0] <- 400.0
data$R1516310[500.0 <= data$R1516310 & data$R1516310 <= 599.0] <- 500.0
data$R1516310[600.0 <= data$R1516310 & data$R1516310 <= 699.0] <- 600.0
data$R1516310[700.0 <= data$R1516310 & data$R1516310 <= 799.0] <- 700.0
data$R1516310[800.0 <= data$R1516310 & data$R1516310 <= 899.0] <- 800.0
data$R1516310[900.0 <= data$R1516310 & data$R1516310 <= 999.0] <- 900.0
data$R1516310[1000.0 <= data$R1516310 & data$R1516310 <= 9999999.0] <- 1000.0
data$R1516310 <- factor(data$R1516310,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R1520200 <- factor(data$R1520200,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R1520201 <- factor(data$R1520201,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R1605100 <- factor(data$R1605100,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R1650810[1.0 <= data$R1650810 & data$R1650810 <= 99.0] <- 1.0
data$R1650810[100.0 <= data$R1650810 & data$R1650810 <= 199.0] <- 100.0
data$R1650810[200.0 <= data$R1650810 & data$R1650810 <= 299.0] <- 200.0
data$R1650810[300.0 <= data$R1650810 & data$R1650810 <= 399.0] <- 300.0
data$R1650810[400.0 <= data$R1650810 & data$R1650810 <= 499.0] <- 400.0
data$R1650810[500.0 <= data$R1650810 & data$R1650810 <= 599.0] <- 500.0
data$R1650810[600.0 <= data$R1650810 & data$R1650810 <= 699.0] <- 600.0
data$R1650810[700.0 <= data$R1650810 & data$R1650810 <= 799.0] <- 700.0
data$R1650810[800.0 <= data$R1650810 & data$R1650810 <= 899.0] <- 800.0
data$R1650810[900.0 <= data$R1650810 & data$R1650810 <= 999.0] <- 900.0
data$R1650810[1000.0 <= data$R1650810 & data$R1650810 <= 9999999.0] <- 1000.0
data$R1650810 <- factor(data$R1650810,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R1809800[1.0 <= data$R1809800 & data$R1809800 <= 4.0] <- 1.0
data$R1809800[5.0 <= data$R1809800 & data$R1809800 <= 9.0] <- 5.0
data$R1809800[10.0 <= data$R1809800 & data$R1809800 <= 14.0] <- 10.0
data$R1809800[15.0 <= data$R1809800 & data$R1809800 <= 19.0] <- 15.0
data$R1809800[20.0 <= data$R1809800 & data$R1809800 <= 24.0] <- 20.0
data$R1809800[25.0 <= data$R1809800 & data$R1809800 <= 29.0] <- 25.0
data$R1809800[30.0 <= data$R1809800 & data$R1809800 <= 34.0] <- 30.0
data$R1809800[35.0 <= data$R1809800 & data$R1809800 <= 39.0] <- 35.0
data$R1809800[40.0 <= data$R1809800 & data$R1809800 <= 44.0] <- 40.0
data$R1809800[45.0 <= data$R1809800 & data$R1809800 <= 49.0] <- 45.0
data$R1809800[50.0 <= data$R1809800 & data$R1809800 <= 9999999.0] <- 50.0
data$R1809800 <- factor(data$R1809800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R1810710[1.0 <= data$R1810710 & data$R1810710 <= 99.0] <- 1.0
data$R1810710[100.0 <= data$R1810710 & data$R1810710 <= 199.0] <- 100.0
data$R1810710[200.0 <= data$R1810710 & data$R1810710 <= 299.0] <- 200.0
data$R1810710[300.0 <= data$R1810710 & data$R1810710 <= 399.0] <- 300.0
data$R1810710[400.0 <= data$R1810710 & data$R1810710 <= 499.0] <- 400.0
data$R1810710[500.0 <= data$R1810710 & data$R1810710 <= 599.0] <- 500.0
data$R1810710[600.0 <= data$R1810710 & data$R1810710 <= 699.0] <- 600.0
data$R1810710[700.0 <= data$R1810710 & data$R1810710 <= 799.0] <- 700.0
data$R1810710[800.0 <= data$R1810710 & data$R1810710 <= 899.0] <- 800.0
data$R1810710[900.0 <= data$R1810710 & data$R1810710 <= 999.0] <- 900.0
data$R1810710[1000.0 <= data$R1810710 & data$R1810710 <= 9999999.0] <- 1000.0
data$R1810710 <- factor(data$R1810710,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R1822500[1.0 <= data$R1822500 & data$R1822500 <= 4.0] <- 1.0
data$R1822500[5.0 <= data$R1822500 & data$R1822500 <= 9.0] <- 5.0
data$R1822500[10.0 <= data$R1822500 & data$R1822500 <= 14.0] <- 10.0
data$R1822500[15.0 <= data$R1822500 & data$R1822500 <= 19.0] <- 15.0
data$R1822500[20.0 <= data$R1822500 & data$R1822500 <= 24.0] <- 20.0
data$R1822500[25.0 <= data$R1822500 & data$R1822500 <= 29.0] <- 25.0
data$R1822500[30.0 <= data$R1822500 & data$R1822500 <= 34.0] <- 30.0
data$R1822500[35.0 <= data$R1822500 & data$R1822500 <= 39.0] <- 35.0
data$R1822500[40.0 <= data$R1822500 & data$R1822500 <= 44.0] <- 40.0
data$R1822500[45.0 <= data$R1822500 & data$R1822500 <= 49.0] <- 45.0
data$R1822500[50.0 <= data$R1822500 & data$R1822500 <= 9999999.0] <- 50.0
data$R1822500 <- factor(data$R1822500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R1823410[1.0 <= data$R1823410 & data$R1823410 <= 99.0] <- 1.0
data$R1823410[100.0 <= data$R1823410 & data$R1823410 <= 199.0] <- 100.0
data$R1823410[200.0 <= data$R1823410 & data$R1823410 <= 299.0] <- 200.0
data$R1823410[300.0 <= data$R1823410 & data$R1823410 <= 399.0] <- 300.0
data$R1823410[400.0 <= data$R1823410 & data$R1823410 <= 499.0] <- 400.0
data$R1823410[500.0 <= data$R1823410 & data$R1823410 <= 599.0] <- 500.0
data$R1823410[600.0 <= data$R1823410 & data$R1823410 <= 699.0] <- 600.0
data$R1823410[700.0 <= data$R1823410 & data$R1823410 <= 799.0] <- 700.0
data$R1823410[800.0 <= data$R1823410 & data$R1823410 <= 899.0] <- 800.0
data$R1823410[900.0 <= data$R1823410 & data$R1823410 <= 999.0] <- 900.0
data$R1823410[1000.0 <= data$R1823410 & data$R1823410 <= 9999999.0] <- 1000.0
data$R1823410 <- factor(data$R1823410,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R1835200[1.0 <= data$R1835200 & data$R1835200 <= 4.0] <- 1.0
data$R1835200[5.0 <= data$R1835200 & data$R1835200 <= 9.0] <- 5.0
data$R1835200[10.0 <= data$R1835200 & data$R1835200 <= 14.0] <- 10.0
data$R1835200[15.0 <= data$R1835200 & data$R1835200 <= 19.0] <- 15.0
data$R1835200[20.0 <= data$R1835200 & data$R1835200 <= 24.0] <- 20.0
data$R1835200[25.0 <= data$R1835200 & data$R1835200 <= 29.0] <- 25.0
data$R1835200[30.0 <= data$R1835200 & data$R1835200 <= 34.0] <- 30.0
data$R1835200[35.0 <= data$R1835200 & data$R1835200 <= 39.0] <- 35.0
data$R1835200[40.0 <= data$R1835200 & data$R1835200 <= 44.0] <- 40.0
data$R1835200[45.0 <= data$R1835200 & data$R1835200 <= 49.0] <- 45.0
data$R1835200[50.0 <= data$R1835200 & data$R1835200 <= 9999999.0] <- 50.0
data$R1835200 <- factor(data$R1835200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R1836110[1.0 <= data$R1836110 & data$R1836110 <= 99.0] <- 1.0
data$R1836110[100.0 <= data$R1836110 & data$R1836110 <= 199.0] <- 100.0
data$R1836110[200.0 <= data$R1836110 & data$R1836110 <= 299.0] <- 200.0
data$R1836110[300.0 <= data$R1836110 & data$R1836110 <= 399.0] <- 300.0
data$R1836110[400.0 <= data$R1836110 & data$R1836110 <= 499.0] <- 400.0
data$R1836110[500.0 <= data$R1836110 & data$R1836110 <= 599.0] <- 500.0
data$R1836110[600.0 <= data$R1836110 & data$R1836110 <= 699.0] <- 600.0
data$R1836110[700.0 <= data$R1836110 & data$R1836110 <= 799.0] <- 700.0
data$R1836110[800.0 <= data$R1836110 & data$R1836110 <= 899.0] <- 800.0
data$R1836110[900.0 <= data$R1836110 & data$R1836110 <= 999.0] <- 900.0
data$R1836110[1000.0 <= data$R1836110 & data$R1836110 <= 9999999.0] <- 1000.0
data$R1836110 <- factor(data$R1836110,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R1847900[1.0 <= data$R1847900 & data$R1847900 <= 4.0] <- 1.0
data$R1847900[5.0 <= data$R1847900 & data$R1847900 <= 9.0] <- 5.0
data$R1847900[10.0 <= data$R1847900 & data$R1847900 <= 14.0] <- 10.0
data$R1847900[15.0 <= data$R1847900 & data$R1847900 <= 19.0] <- 15.0
data$R1847900[20.0 <= data$R1847900 & data$R1847900 <= 24.0] <- 20.0
data$R1847900[25.0 <= data$R1847900 & data$R1847900 <= 29.0] <- 25.0
data$R1847900[30.0 <= data$R1847900 & data$R1847900 <= 34.0] <- 30.0
data$R1847900[35.0 <= data$R1847900 & data$R1847900 <= 39.0] <- 35.0
data$R1847900[40.0 <= data$R1847900 & data$R1847900 <= 44.0] <- 40.0
data$R1847900[45.0 <= data$R1847900 & data$R1847900 <= 49.0] <- 45.0
data$R1847900[50.0 <= data$R1847900 & data$R1847900 <= 9999999.0] <- 50.0
data$R1847900 <- factor(data$R1847900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R1848810[1.0 <= data$R1848810 & data$R1848810 <= 99.0] <- 1.0
data$R1848810[100.0 <= data$R1848810 & data$R1848810 <= 199.0] <- 100.0
data$R1848810[200.0 <= data$R1848810 & data$R1848810 <= 299.0] <- 200.0
data$R1848810[300.0 <= data$R1848810 & data$R1848810 <= 399.0] <- 300.0
data$R1848810[400.0 <= data$R1848810 & data$R1848810 <= 499.0] <- 400.0
data$R1848810[500.0 <= data$R1848810 & data$R1848810 <= 599.0] <- 500.0
data$R1848810[600.0 <= data$R1848810 & data$R1848810 <= 699.0] <- 600.0
data$R1848810[700.0 <= data$R1848810 & data$R1848810 <= 799.0] <- 700.0
data$R1848810[800.0 <= data$R1848810 & data$R1848810 <= 899.0] <- 800.0
data$R1848810[900.0 <= data$R1848810 & data$R1848810 <= 999.0] <- 900.0
data$R1848810[1000.0 <= data$R1848810 & data$R1848810 <= 9999999.0] <- 1000.0
data$R1848810 <- factor(data$R1848810,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R1860600[1.0 <= data$R1860600 & data$R1860600 <= 4.0] <- 1.0
data$R1860600[5.0 <= data$R1860600 & data$R1860600 <= 9.0] <- 5.0
data$R1860600[10.0 <= data$R1860600 & data$R1860600 <= 14.0] <- 10.0
data$R1860600[15.0 <= data$R1860600 & data$R1860600 <= 19.0] <- 15.0
data$R1860600[20.0 <= data$R1860600 & data$R1860600 <= 24.0] <- 20.0
data$R1860600[25.0 <= data$R1860600 & data$R1860600 <= 29.0] <- 25.0
data$R1860600[30.0 <= data$R1860600 & data$R1860600 <= 34.0] <- 30.0
data$R1860600[35.0 <= data$R1860600 & data$R1860600 <= 39.0] <- 35.0
data$R1860600[40.0 <= data$R1860600 & data$R1860600 <= 44.0] <- 40.0
data$R1860600[45.0 <= data$R1860600 & data$R1860600 <= 49.0] <- 45.0
data$R1860600[50.0 <= data$R1860600 & data$R1860600 <= 9999999.0] <- 50.0
data$R1860600 <- factor(data$R1860600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R1861510[1.0 <= data$R1861510 & data$R1861510 <= 99.0] <- 1.0
data$R1861510[100.0 <= data$R1861510 & data$R1861510 <= 199.0] <- 100.0
data$R1861510[200.0 <= data$R1861510 & data$R1861510 <= 299.0] <- 200.0
data$R1861510[300.0 <= data$R1861510 & data$R1861510 <= 399.0] <- 300.0
data$R1861510[400.0 <= data$R1861510 & data$R1861510 <= 499.0] <- 400.0
data$R1861510[500.0 <= data$R1861510 & data$R1861510 <= 599.0] <- 500.0
data$R1861510[600.0 <= data$R1861510 & data$R1861510 <= 699.0] <- 600.0
data$R1861510[700.0 <= data$R1861510 & data$R1861510 <= 799.0] <- 700.0
data$R1861510[800.0 <= data$R1861510 & data$R1861510 <= 899.0] <- 800.0
data$R1861510[900.0 <= data$R1861510 & data$R1861510 <= 999.0] <- 900.0
data$R1861510[1000.0 <= data$R1861510 & data$R1861510 <= 9999999.0] <- 1000.0
data$R1861510 <- factor(data$R1861510,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R1890900 <- factor(data$R1890900,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R1890901 <- factor(data$R1890901,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R1905600 <- factor(data$R1905600,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R1923410[1.0 <= data$R1923410 & data$R1923410 <= 99.0] <- 1.0
data$R1923410[100.0 <= data$R1923410 & data$R1923410 <= 199.0] <- 100.0
data$R1923410[200.0 <= data$R1923410 & data$R1923410 <= 299.0] <- 200.0
data$R1923410[300.0 <= data$R1923410 & data$R1923410 <= 399.0] <- 300.0
data$R1923410[400.0 <= data$R1923410 & data$R1923410 <= 499.0] <- 400.0
data$R1923410[500.0 <= data$R1923410 & data$R1923410 <= 599.0] <- 500.0
data$R1923410[600.0 <= data$R1923410 & data$R1923410 <= 699.0] <- 600.0
data$R1923410[700.0 <= data$R1923410 & data$R1923410 <= 799.0] <- 700.0
data$R1923410[800.0 <= data$R1923410 & data$R1923410 <= 899.0] <- 800.0
data$R1923410[900.0 <= data$R1923410 & data$R1923410 <= 999.0] <- 900.0
data$R1923410[1000.0 <= data$R1923410 & data$R1923410 <= 9999999.0] <- 1000.0
data$R1923410 <- factor(data$R1923410,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R2171500[1.0 <= data$R2171500 & data$R2171500 <= 4.0] <- 1.0
data$R2171500[5.0 <= data$R2171500 & data$R2171500 <= 9.0] <- 5.0
data$R2171500[10.0 <= data$R2171500 & data$R2171500 <= 14.0] <- 10.0
data$R2171500[15.0 <= data$R2171500 & data$R2171500 <= 19.0] <- 15.0
data$R2171500[20.0 <= data$R2171500 & data$R2171500 <= 24.0] <- 20.0
data$R2171500[25.0 <= data$R2171500 & data$R2171500 <= 29.0] <- 25.0
data$R2171500[30.0 <= data$R2171500 & data$R2171500 <= 34.0] <- 30.0
data$R2171500[35.0 <= data$R2171500 & data$R2171500 <= 39.0] <- 35.0
data$R2171500[40.0 <= data$R2171500 & data$R2171500 <= 44.0] <- 40.0
data$R2171500[45.0 <= data$R2171500 & data$R2171500 <= 49.0] <- 45.0
data$R2171500[50.0 <= data$R2171500 & data$R2171500 <= 9999999.0] <- 50.0
data$R2171500 <- factor(data$R2171500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2172410[1.0 <= data$R2172410 & data$R2172410 <= 99.0] <- 1.0
data$R2172410[100.0 <= data$R2172410 & data$R2172410 <= 199.0] <- 100.0
data$R2172410[200.0 <= data$R2172410 & data$R2172410 <= 299.0] <- 200.0
data$R2172410[300.0 <= data$R2172410 & data$R2172410 <= 399.0] <- 300.0
data$R2172410[400.0 <= data$R2172410 & data$R2172410 <= 499.0] <- 400.0
data$R2172410[500.0 <= data$R2172410 & data$R2172410 <= 599.0] <- 500.0
data$R2172410[600.0 <= data$R2172410 & data$R2172410 <= 699.0] <- 600.0
data$R2172410[700.0 <= data$R2172410 & data$R2172410 <= 799.0] <- 700.0
data$R2172410[800.0 <= data$R2172410 & data$R2172410 <= 899.0] <- 800.0
data$R2172410[900.0 <= data$R2172410 & data$R2172410 <= 999.0] <- 900.0
data$R2172410[1000.0 <= data$R2172410 & data$R2172410 <= 9999999.0] <- 1000.0
data$R2172410 <- factor(data$R2172410,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R2185100[1.0 <= data$R2185100 & data$R2185100 <= 4.0] <- 1.0
data$R2185100[5.0 <= data$R2185100 & data$R2185100 <= 9.0] <- 5.0
data$R2185100[10.0 <= data$R2185100 & data$R2185100 <= 14.0] <- 10.0
data$R2185100[15.0 <= data$R2185100 & data$R2185100 <= 19.0] <- 15.0
data$R2185100[20.0 <= data$R2185100 & data$R2185100 <= 24.0] <- 20.0
data$R2185100[25.0 <= data$R2185100 & data$R2185100 <= 29.0] <- 25.0
data$R2185100[30.0 <= data$R2185100 & data$R2185100 <= 34.0] <- 30.0
data$R2185100[35.0 <= data$R2185100 & data$R2185100 <= 39.0] <- 35.0
data$R2185100[40.0 <= data$R2185100 & data$R2185100 <= 44.0] <- 40.0
data$R2185100[45.0 <= data$R2185100 & data$R2185100 <= 49.0] <- 45.0
data$R2185100[50.0 <= data$R2185100 & data$R2185100 <= 9999999.0] <- 50.0
data$R2185100 <- factor(data$R2185100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2186010[1.0 <= data$R2186010 & data$R2186010 <= 99.0] <- 1.0
data$R2186010[100.0 <= data$R2186010 & data$R2186010 <= 199.0] <- 100.0
data$R2186010[200.0 <= data$R2186010 & data$R2186010 <= 299.0] <- 200.0
data$R2186010[300.0 <= data$R2186010 & data$R2186010 <= 399.0] <- 300.0
data$R2186010[400.0 <= data$R2186010 & data$R2186010 <= 499.0] <- 400.0
data$R2186010[500.0 <= data$R2186010 & data$R2186010 <= 599.0] <- 500.0
data$R2186010[600.0 <= data$R2186010 & data$R2186010 <= 699.0] <- 600.0
data$R2186010[700.0 <= data$R2186010 & data$R2186010 <= 799.0] <- 700.0
data$R2186010[800.0 <= data$R2186010 & data$R2186010 <= 899.0] <- 800.0
data$R2186010[900.0 <= data$R2186010 & data$R2186010 <= 999.0] <- 900.0
data$R2186010[1000.0 <= data$R2186010 & data$R2186010 <= 9999999.0] <- 1000.0
data$R2186010 <- factor(data$R2186010,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R2198700[1.0 <= data$R2198700 & data$R2198700 <= 4.0] <- 1.0
data$R2198700[5.0 <= data$R2198700 & data$R2198700 <= 9.0] <- 5.0
data$R2198700[10.0 <= data$R2198700 & data$R2198700 <= 14.0] <- 10.0
data$R2198700[15.0 <= data$R2198700 & data$R2198700 <= 19.0] <- 15.0
data$R2198700[20.0 <= data$R2198700 & data$R2198700 <= 24.0] <- 20.0
data$R2198700[25.0 <= data$R2198700 & data$R2198700 <= 29.0] <- 25.0
data$R2198700[30.0 <= data$R2198700 & data$R2198700 <= 34.0] <- 30.0
data$R2198700[35.0 <= data$R2198700 & data$R2198700 <= 39.0] <- 35.0
data$R2198700[40.0 <= data$R2198700 & data$R2198700 <= 44.0] <- 40.0
data$R2198700[45.0 <= data$R2198700 & data$R2198700 <= 49.0] <- 45.0
data$R2198700[50.0 <= data$R2198700 & data$R2198700 <= 9999999.0] <- 50.0
data$R2198700 <- factor(data$R2198700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2199610[1.0 <= data$R2199610 & data$R2199610 <= 99.0] <- 1.0
data$R2199610[100.0 <= data$R2199610 & data$R2199610 <= 199.0] <- 100.0
data$R2199610[200.0 <= data$R2199610 & data$R2199610 <= 299.0] <- 200.0
data$R2199610[300.0 <= data$R2199610 & data$R2199610 <= 399.0] <- 300.0
data$R2199610[400.0 <= data$R2199610 & data$R2199610 <= 499.0] <- 400.0
data$R2199610[500.0 <= data$R2199610 & data$R2199610 <= 599.0] <- 500.0
data$R2199610[600.0 <= data$R2199610 & data$R2199610 <= 699.0] <- 600.0
data$R2199610[700.0 <= data$R2199610 & data$R2199610 <= 799.0] <- 700.0
data$R2199610[800.0 <= data$R2199610 & data$R2199610 <= 899.0] <- 800.0
data$R2199610[900.0 <= data$R2199610 & data$R2199610 <= 999.0] <- 900.0
data$R2199610[1000.0 <= data$R2199610 & data$R2199610 <= 9999999.0] <- 1000.0
data$R2199610 <- factor(data$R2199610,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R2212300[1.0 <= data$R2212300 & data$R2212300 <= 4.0] <- 1.0
data$R2212300[5.0 <= data$R2212300 & data$R2212300 <= 9.0] <- 5.0
data$R2212300[10.0 <= data$R2212300 & data$R2212300 <= 14.0] <- 10.0
data$R2212300[15.0 <= data$R2212300 & data$R2212300 <= 19.0] <- 15.0
data$R2212300[20.0 <= data$R2212300 & data$R2212300 <= 24.0] <- 20.0
data$R2212300[25.0 <= data$R2212300 & data$R2212300 <= 29.0] <- 25.0
data$R2212300[30.0 <= data$R2212300 & data$R2212300 <= 34.0] <- 30.0
data$R2212300[35.0 <= data$R2212300 & data$R2212300 <= 39.0] <- 35.0
data$R2212300[40.0 <= data$R2212300 & data$R2212300 <= 44.0] <- 40.0
data$R2212300[45.0 <= data$R2212300 & data$R2212300 <= 49.0] <- 45.0
data$R2212300[50.0 <= data$R2212300 & data$R2212300 <= 9999999.0] <- 50.0
data$R2212300 <- factor(data$R2212300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2213210[1.0 <= data$R2213210 & data$R2213210 <= 99.0] <- 1.0
data$R2213210[100.0 <= data$R2213210 & data$R2213210 <= 199.0] <- 100.0
data$R2213210[200.0 <= data$R2213210 & data$R2213210 <= 299.0] <- 200.0
data$R2213210[300.0 <= data$R2213210 & data$R2213210 <= 399.0] <- 300.0
data$R2213210[400.0 <= data$R2213210 & data$R2213210 <= 499.0] <- 400.0
data$R2213210[500.0 <= data$R2213210 & data$R2213210 <= 599.0] <- 500.0
data$R2213210[600.0 <= data$R2213210 & data$R2213210 <= 699.0] <- 600.0
data$R2213210[700.0 <= data$R2213210 & data$R2213210 <= 799.0] <- 700.0
data$R2213210[800.0 <= data$R2213210 & data$R2213210 <= 899.0] <- 800.0
data$R2213210[900.0 <= data$R2213210 & data$R2213210 <= 999.0] <- 900.0
data$R2213210[1000.0 <= data$R2213210 & data$R2213210 <= 9999999.0] <- 1000.0
data$R2213210 <- factor(data$R2213210,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R2225900[1.0 <= data$R2225900 & data$R2225900 <= 4.0] <- 1.0
data$R2225900[5.0 <= data$R2225900 & data$R2225900 <= 9.0] <- 5.0
data$R2225900[10.0 <= data$R2225900 & data$R2225900 <= 14.0] <- 10.0
data$R2225900[15.0 <= data$R2225900 & data$R2225900 <= 19.0] <- 15.0
data$R2225900[20.0 <= data$R2225900 & data$R2225900 <= 24.0] <- 20.0
data$R2225900[25.0 <= data$R2225900 & data$R2225900 <= 29.0] <- 25.0
data$R2225900[30.0 <= data$R2225900 & data$R2225900 <= 34.0] <- 30.0
data$R2225900[35.0 <= data$R2225900 & data$R2225900 <= 39.0] <- 35.0
data$R2225900[40.0 <= data$R2225900 & data$R2225900 <= 44.0] <- 40.0
data$R2225900[45.0 <= data$R2225900 & data$R2225900 <= 49.0] <- 45.0
data$R2225900[50.0 <= data$R2225900 & data$R2225900 <= 9999999.0] <- 50.0
data$R2225900 <- factor(data$R2225900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2226810[1.0 <= data$R2226810 & data$R2226810 <= 99.0] <- 1.0
data$R2226810[100.0 <= data$R2226810 & data$R2226810 <= 199.0] <- 100.0
data$R2226810[200.0 <= data$R2226810 & data$R2226810 <= 299.0] <- 200.0
data$R2226810[300.0 <= data$R2226810 & data$R2226810 <= 399.0] <- 300.0
data$R2226810[400.0 <= data$R2226810 & data$R2226810 <= 499.0] <- 400.0
data$R2226810[500.0 <= data$R2226810 & data$R2226810 <= 599.0] <- 500.0
data$R2226810[600.0 <= data$R2226810 & data$R2226810 <= 699.0] <- 600.0
data$R2226810[700.0 <= data$R2226810 & data$R2226810 <= 799.0] <- 700.0
data$R2226810[800.0 <= data$R2226810 & data$R2226810 <= 899.0] <- 800.0
data$R2226810[900.0 <= data$R2226810 & data$R2226810 <= 999.0] <- 900.0
data$R2226810[1000.0 <= data$R2226810 & data$R2226810 <= 9999999.0] <- 1000.0
data$R2226810 <- factor(data$R2226810,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R2258000 <- factor(data$R2258000,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R2258001 <- factor(data$R2258001,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R2306500 <- factor(data$R2306500,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R2318210[1.0 <= data$R2318210 & data$R2318210 <= 99.0] <- 1.0
data$R2318210[100.0 <= data$R2318210 & data$R2318210 <= 199.0] <- 100.0
data$R2318210[200.0 <= data$R2318210 & data$R2318210 <= 299.0] <- 200.0
data$R2318210[300.0 <= data$R2318210 & data$R2318210 <= 399.0] <- 300.0
data$R2318210[400.0 <= data$R2318210 & data$R2318210 <= 499.0] <- 400.0
data$R2318210[500.0 <= data$R2318210 & data$R2318210 <= 599.0] <- 500.0
data$R2318210[600.0 <= data$R2318210 & data$R2318210 <= 699.0] <- 600.0
data$R2318210[700.0 <= data$R2318210 & data$R2318210 <= 799.0] <- 700.0
data$R2318210[800.0 <= data$R2318210 & data$R2318210 <= 899.0] <- 800.0
data$R2318210[900.0 <= data$R2318210 & data$R2318210 <= 999.0] <- 900.0
data$R2318210[1000.0 <= data$R2318210 & data$R2318210 <= 9999999.0] <- 1000.0
data$R2318210 <- factor(data$R2318210,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R2376300[1.0 <= data$R2376300 & data$R2376300 <= 4.0] <- 1.0
data$R2376300[5.0 <= data$R2376300 & data$R2376300 <= 9.0] <- 5.0
data$R2376300[10.0 <= data$R2376300 & data$R2376300 <= 14.0] <- 10.0
data$R2376300[15.0 <= data$R2376300 & data$R2376300 <= 19.0] <- 15.0
data$R2376300[20.0 <= data$R2376300 & data$R2376300 <= 24.0] <- 20.0
data$R2376300[25.0 <= data$R2376300 & data$R2376300 <= 29.0] <- 25.0
data$R2376300[30.0 <= data$R2376300 & data$R2376300 <= 34.0] <- 30.0
data$R2376300[35.0 <= data$R2376300 & data$R2376300 <= 39.0] <- 35.0
data$R2376300[40.0 <= data$R2376300 & data$R2376300 <= 44.0] <- 40.0
data$R2376300[45.0 <= data$R2376300 & data$R2376300 <= 49.0] <- 45.0
data$R2376300[50.0 <= data$R2376300 & data$R2376300 <= 9999999.0] <- 50.0
data$R2376300 <- factor(data$R2376300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2377210[1.0 <= data$R2377210 & data$R2377210 <= 99.0] <- 1.0
data$R2377210[100.0 <= data$R2377210 & data$R2377210 <= 199.0] <- 100.0
data$R2377210[200.0 <= data$R2377210 & data$R2377210 <= 299.0] <- 200.0
data$R2377210[300.0 <= data$R2377210 & data$R2377210 <= 399.0] <- 300.0
data$R2377210[400.0 <= data$R2377210 & data$R2377210 <= 499.0] <- 400.0
data$R2377210[500.0 <= data$R2377210 & data$R2377210 <= 599.0] <- 500.0
data$R2377210[600.0 <= data$R2377210 & data$R2377210 <= 699.0] <- 600.0
data$R2377210[700.0 <= data$R2377210 & data$R2377210 <= 799.0] <- 700.0
data$R2377210[800.0 <= data$R2377210 & data$R2377210 <= 899.0] <- 800.0
data$R2377210[900.0 <= data$R2377210 & data$R2377210 <= 999.0] <- 900.0
data$R2377210[1000.0 <= data$R2377210 & data$R2377210 <= 9999999.0] <- 1000.0
data$R2377210 <- factor(data$R2377210,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R2387600[1.0 <= data$R2387600 & data$R2387600 <= 4.0] <- 1.0
data$R2387600[5.0 <= data$R2387600 & data$R2387600 <= 9.0] <- 5.0
data$R2387600[10.0 <= data$R2387600 & data$R2387600 <= 14.0] <- 10.0
data$R2387600[15.0 <= data$R2387600 & data$R2387600 <= 19.0] <- 15.0
data$R2387600[20.0 <= data$R2387600 & data$R2387600 <= 24.0] <- 20.0
data$R2387600[25.0 <= data$R2387600 & data$R2387600 <= 29.0] <- 25.0
data$R2387600[30.0 <= data$R2387600 & data$R2387600 <= 34.0] <- 30.0
data$R2387600[35.0 <= data$R2387600 & data$R2387600 <= 39.0] <- 35.0
data$R2387600[40.0 <= data$R2387600 & data$R2387600 <= 44.0] <- 40.0
data$R2387600[45.0 <= data$R2387600 & data$R2387600 <= 49.0] <- 45.0
data$R2387600[50.0 <= data$R2387600 & data$R2387600 <= 9999999.0] <- 50.0
data$R2387600 <- factor(data$R2387600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2388510[1.0 <= data$R2388510 & data$R2388510 <= 99.0] <- 1.0
data$R2388510[100.0 <= data$R2388510 & data$R2388510 <= 199.0] <- 100.0
data$R2388510[200.0 <= data$R2388510 & data$R2388510 <= 299.0] <- 200.0
data$R2388510[300.0 <= data$R2388510 & data$R2388510 <= 399.0] <- 300.0
data$R2388510[400.0 <= data$R2388510 & data$R2388510 <= 499.0] <- 400.0
data$R2388510[500.0 <= data$R2388510 & data$R2388510 <= 599.0] <- 500.0
data$R2388510[600.0 <= data$R2388510 & data$R2388510 <= 699.0] <- 600.0
data$R2388510[700.0 <= data$R2388510 & data$R2388510 <= 799.0] <- 700.0
data$R2388510[800.0 <= data$R2388510 & data$R2388510 <= 899.0] <- 800.0
data$R2388510[900.0 <= data$R2388510 & data$R2388510 <= 999.0] <- 900.0
data$R2388510[1000.0 <= data$R2388510 & data$R2388510 <= 9999999.0] <- 1000.0
data$R2388510 <- factor(data$R2388510,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R2398900[1.0 <= data$R2398900 & data$R2398900 <= 4.0] <- 1.0
data$R2398900[5.0 <= data$R2398900 & data$R2398900 <= 9.0] <- 5.0
data$R2398900[10.0 <= data$R2398900 & data$R2398900 <= 14.0] <- 10.0
data$R2398900[15.0 <= data$R2398900 & data$R2398900 <= 19.0] <- 15.0
data$R2398900[20.0 <= data$R2398900 & data$R2398900 <= 24.0] <- 20.0
data$R2398900[25.0 <= data$R2398900 & data$R2398900 <= 29.0] <- 25.0
data$R2398900[30.0 <= data$R2398900 & data$R2398900 <= 34.0] <- 30.0
data$R2398900[35.0 <= data$R2398900 & data$R2398900 <= 39.0] <- 35.0
data$R2398900[40.0 <= data$R2398900 & data$R2398900 <= 44.0] <- 40.0
data$R2398900[45.0 <= data$R2398900 & data$R2398900 <= 49.0] <- 45.0
data$R2398900[50.0 <= data$R2398900 & data$R2398900 <= 9999999.0] <- 50.0
data$R2398900 <- factor(data$R2398900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2399810[1.0 <= data$R2399810 & data$R2399810 <= 99.0] <- 1.0
data$R2399810[100.0 <= data$R2399810 & data$R2399810 <= 199.0] <- 100.0
data$R2399810[200.0 <= data$R2399810 & data$R2399810 <= 299.0] <- 200.0
data$R2399810[300.0 <= data$R2399810 & data$R2399810 <= 399.0] <- 300.0
data$R2399810[400.0 <= data$R2399810 & data$R2399810 <= 499.0] <- 400.0
data$R2399810[500.0 <= data$R2399810 & data$R2399810 <= 599.0] <- 500.0
data$R2399810[600.0 <= data$R2399810 & data$R2399810 <= 699.0] <- 600.0
data$R2399810[700.0 <= data$R2399810 & data$R2399810 <= 799.0] <- 700.0
data$R2399810[800.0 <= data$R2399810 & data$R2399810 <= 899.0] <- 800.0
data$R2399810[900.0 <= data$R2399810 & data$R2399810 <= 999.0] <- 900.0
data$R2399810[1000.0 <= data$R2399810 & data$R2399810 <= 9999999.0] <- 1000.0
data$R2399810 <- factor(data$R2399810,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R2410200[1.0 <= data$R2410200 & data$R2410200 <= 4.0] <- 1.0
data$R2410200[5.0 <= data$R2410200 & data$R2410200 <= 9.0] <- 5.0
data$R2410200[10.0 <= data$R2410200 & data$R2410200 <= 14.0] <- 10.0
data$R2410200[15.0 <= data$R2410200 & data$R2410200 <= 19.0] <- 15.0
data$R2410200[20.0 <= data$R2410200 & data$R2410200 <= 24.0] <- 20.0
data$R2410200[25.0 <= data$R2410200 & data$R2410200 <= 29.0] <- 25.0
data$R2410200[30.0 <= data$R2410200 & data$R2410200 <= 34.0] <- 30.0
data$R2410200[35.0 <= data$R2410200 & data$R2410200 <= 39.0] <- 35.0
data$R2410200[40.0 <= data$R2410200 & data$R2410200 <= 44.0] <- 40.0
data$R2410200[45.0 <= data$R2410200 & data$R2410200 <= 49.0] <- 45.0
data$R2410200[50.0 <= data$R2410200 & data$R2410200 <= 9999999.0] <- 50.0
data$R2410200 <- factor(data$R2410200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2411110[1.0 <= data$R2411110 & data$R2411110 <= 99.0] <- 1.0
data$R2411110[100.0 <= data$R2411110 & data$R2411110 <= 199.0] <- 100.0
data$R2411110[200.0 <= data$R2411110 & data$R2411110 <= 299.0] <- 200.0
data$R2411110[300.0 <= data$R2411110 & data$R2411110 <= 399.0] <- 300.0
data$R2411110[400.0 <= data$R2411110 & data$R2411110 <= 499.0] <- 400.0
data$R2411110[500.0 <= data$R2411110 & data$R2411110 <= 599.0] <- 500.0
data$R2411110[600.0 <= data$R2411110 & data$R2411110 <= 699.0] <- 600.0
data$R2411110[700.0 <= data$R2411110 & data$R2411110 <= 799.0] <- 700.0
data$R2411110[800.0 <= data$R2411110 & data$R2411110 <= 899.0] <- 800.0
data$R2411110[900.0 <= data$R2411110 & data$R2411110 <= 999.0] <- 900.0
data$R2411110[1000.0 <= data$R2411110 & data$R2411110 <= 9999999.0] <- 1000.0
data$R2411110 <- factor(data$R2411110,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R2421500[1.0 <= data$R2421500 & data$R2421500 <= 4.0] <- 1.0
data$R2421500[5.0 <= data$R2421500 & data$R2421500 <= 9.0] <- 5.0
data$R2421500[10.0 <= data$R2421500 & data$R2421500 <= 14.0] <- 10.0
data$R2421500[15.0 <= data$R2421500 & data$R2421500 <= 19.0] <- 15.0
data$R2421500[20.0 <= data$R2421500 & data$R2421500 <= 24.0] <- 20.0
data$R2421500[25.0 <= data$R2421500 & data$R2421500 <= 29.0] <- 25.0
data$R2421500[30.0 <= data$R2421500 & data$R2421500 <= 34.0] <- 30.0
data$R2421500[35.0 <= data$R2421500 & data$R2421500 <= 39.0] <- 35.0
data$R2421500[40.0 <= data$R2421500 & data$R2421500 <= 44.0] <- 40.0
data$R2421500[45.0 <= data$R2421500 & data$R2421500 <= 49.0] <- 45.0
data$R2421500[50.0 <= data$R2421500 & data$R2421500 <= 9999999.0] <- 50.0
data$R2421500 <- factor(data$R2421500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2422410[1.0 <= data$R2422410 & data$R2422410 <= 99.0] <- 1.0
data$R2422410[100.0 <= data$R2422410 & data$R2422410 <= 199.0] <- 100.0
data$R2422410[200.0 <= data$R2422410 & data$R2422410 <= 299.0] <- 200.0
data$R2422410[300.0 <= data$R2422410 & data$R2422410 <= 399.0] <- 300.0
data$R2422410[400.0 <= data$R2422410 & data$R2422410 <= 499.0] <- 400.0
data$R2422410[500.0 <= data$R2422410 & data$R2422410 <= 599.0] <- 500.0
data$R2422410[600.0 <= data$R2422410 & data$R2422410 <= 699.0] <- 600.0
data$R2422410[700.0 <= data$R2422410 & data$R2422410 <= 799.0] <- 700.0
data$R2422410[800.0 <= data$R2422410 & data$R2422410 <= 899.0] <- 800.0
data$R2422410[900.0 <= data$R2422410 & data$R2422410 <= 999.0] <- 900.0
data$R2422410[1000.0 <= data$R2422410 & data$R2422410 <= 9999999.0] <- 1000.0
data$R2422410 <- factor(data$R2422410,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R2445400 <- factor(data$R2445400,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R2445401 <- factor(data$R2445401,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R2509000 <- factor(data$R2509000,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R2526010[1.0 <= data$R2526010 & data$R2526010 <= 99.0] <- 1.0
data$R2526010[100.0 <= data$R2526010 & data$R2526010 <= 199.0] <- 100.0
data$R2526010[200.0 <= data$R2526010 & data$R2526010 <= 299.0] <- 200.0
data$R2526010[300.0 <= data$R2526010 & data$R2526010 <= 399.0] <- 300.0
data$R2526010[400.0 <= data$R2526010 & data$R2526010 <= 499.0] <- 400.0
data$R2526010[500.0 <= data$R2526010 & data$R2526010 <= 599.0] <- 500.0
data$R2526010[600.0 <= data$R2526010 & data$R2526010 <= 699.0] <- 600.0
data$R2526010[700.0 <= data$R2526010 & data$R2526010 <= 799.0] <- 700.0
data$R2526010[800.0 <= data$R2526010 & data$R2526010 <= 899.0] <- 800.0
data$R2526010[900.0 <= data$R2526010 & data$R2526010 <= 999.0] <- 900.0
data$R2526010[1000.0 <= data$R2526010 & data$R2526010 <= 9999999.0] <- 1000.0
data$R2526010 <- factor(data$R2526010,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R2770900[1.0 <= data$R2770900 & data$R2770900 <= 4.0] <- 1.0
data$R2770900[5.0 <= data$R2770900 & data$R2770900 <= 9.0] <- 5.0
data$R2770900[10.0 <= data$R2770900 & data$R2770900 <= 14.0] <- 10.0
data$R2770900[15.0 <= data$R2770900 & data$R2770900 <= 19.0] <- 15.0
data$R2770900[20.0 <= data$R2770900 & data$R2770900 <= 24.0] <- 20.0
data$R2770900[25.0 <= data$R2770900 & data$R2770900 <= 29.0] <- 25.0
data$R2770900[30.0 <= data$R2770900 & data$R2770900 <= 34.0] <- 30.0
data$R2770900[35.0 <= data$R2770900 & data$R2770900 <= 39.0] <- 35.0
data$R2770900[40.0 <= data$R2770900 & data$R2770900 <= 44.0] <- 40.0
data$R2770900[45.0 <= data$R2770900 & data$R2770900 <= 49.0] <- 45.0
data$R2770900[50.0 <= data$R2770900 & data$R2770900 <= 9999999.0] <- 50.0
data$R2770900 <- factor(data$R2770900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2771000[1.0 <= data$R2771000 & data$R2771000 <= 4.0] <- 1.0
data$R2771000[5.0 <= data$R2771000 & data$R2771000 <= 9.0] <- 5.0
data$R2771000[10.0 <= data$R2771000 & data$R2771000 <= 14.0] <- 10.0
data$R2771000[15.0 <= data$R2771000 & data$R2771000 <= 19.0] <- 15.0
data$R2771000[20.0 <= data$R2771000 & data$R2771000 <= 24.0] <- 20.0
data$R2771000[25.0 <= data$R2771000 & data$R2771000 <= 29.0] <- 25.0
data$R2771000[30.0 <= data$R2771000 & data$R2771000 <= 34.0] <- 30.0
data$R2771000[35.0 <= data$R2771000 & data$R2771000 <= 39.0] <- 35.0
data$R2771000[40.0 <= data$R2771000 & data$R2771000 <= 44.0] <- 40.0
data$R2771000[45.0 <= data$R2771000 & data$R2771000 <= 49.0] <- 45.0
data$R2771000[50.0 <= data$R2771000 & data$R2771000 <= 9999999.0] <- 50.0
data$R2771000 <- factor(data$R2771000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2771100 <- factor(data$R2771100,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R2771200[1.0 <= data$R2771200 & data$R2771200 <= 4.0] <- 1.0
data$R2771200[5.0 <= data$R2771200 & data$R2771200 <= 9.0] <- 5.0
data$R2771200[10.0 <= data$R2771200 & data$R2771200 <= 14.0] <- 10.0
data$R2771200[15.0 <= data$R2771200 & data$R2771200 <= 19.0] <- 15.0
data$R2771200[20.0 <= data$R2771200 & data$R2771200 <= 24.0] <- 20.0
data$R2771200[25.0 <= data$R2771200 & data$R2771200 <= 29.0] <- 25.0
data$R2771200[30.0 <= data$R2771200 & data$R2771200 <= 34.0] <- 30.0
data$R2771200[35.0 <= data$R2771200 & data$R2771200 <= 39.0] <- 35.0
data$R2771200[40.0 <= data$R2771200 & data$R2771200 <= 44.0] <- 40.0
data$R2771200[45.0 <= data$R2771200 & data$R2771200 <= 49.0] <- 45.0
data$R2771200[50.0 <= data$R2771200 & data$R2771200 <= 9999999.0] <- 50.0
data$R2771200 <- factor(data$R2771200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2772210[1.0 <= data$R2772210 & data$R2772210 <= 99.0] <- 1.0
data$R2772210[100.0 <= data$R2772210 & data$R2772210 <= 199.0] <- 100.0
data$R2772210[200.0 <= data$R2772210 & data$R2772210 <= 299.0] <- 200.0
data$R2772210[300.0 <= data$R2772210 & data$R2772210 <= 399.0] <- 300.0
data$R2772210[400.0 <= data$R2772210 & data$R2772210 <= 499.0] <- 400.0
data$R2772210[500.0 <= data$R2772210 & data$R2772210 <= 599.0] <- 500.0
data$R2772210[600.0 <= data$R2772210 & data$R2772210 <= 699.0] <- 600.0
data$R2772210[700.0 <= data$R2772210 & data$R2772210 <= 799.0] <- 700.0
data$R2772210[800.0 <= data$R2772210 & data$R2772210 <= 899.0] <- 800.0
data$R2772210[900.0 <= data$R2772210 & data$R2772210 <= 999.0] <- 900.0
data$R2772210[1000.0 <= data$R2772210 & data$R2772210 <= 9999999.0] <- 1000.0
data$R2772210 <- factor(data$R2772210,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R2783800[1.0 <= data$R2783800 & data$R2783800 <= 4.0] <- 1.0
data$R2783800[5.0 <= data$R2783800 & data$R2783800 <= 9.0] <- 5.0
data$R2783800[10.0 <= data$R2783800 & data$R2783800 <= 14.0] <- 10.0
data$R2783800[15.0 <= data$R2783800 & data$R2783800 <= 19.0] <- 15.0
data$R2783800[20.0 <= data$R2783800 & data$R2783800 <= 24.0] <- 20.0
data$R2783800[25.0 <= data$R2783800 & data$R2783800 <= 29.0] <- 25.0
data$R2783800[30.0 <= data$R2783800 & data$R2783800 <= 34.0] <- 30.0
data$R2783800[35.0 <= data$R2783800 & data$R2783800 <= 39.0] <- 35.0
data$R2783800[40.0 <= data$R2783800 & data$R2783800 <= 44.0] <- 40.0
data$R2783800[45.0 <= data$R2783800 & data$R2783800 <= 49.0] <- 45.0
data$R2783800[50.0 <= data$R2783800 & data$R2783800 <= 9999999.0] <- 50.0
data$R2783800 <- factor(data$R2783800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2783900[1.0 <= data$R2783900 & data$R2783900 <= 4.0] <- 1.0
data$R2783900[5.0 <= data$R2783900 & data$R2783900 <= 9.0] <- 5.0
data$R2783900[10.0 <= data$R2783900 & data$R2783900 <= 14.0] <- 10.0
data$R2783900[15.0 <= data$R2783900 & data$R2783900 <= 19.0] <- 15.0
data$R2783900[20.0 <= data$R2783900 & data$R2783900 <= 24.0] <- 20.0
data$R2783900[25.0 <= data$R2783900 & data$R2783900 <= 29.0] <- 25.0
data$R2783900[30.0 <= data$R2783900 & data$R2783900 <= 34.0] <- 30.0
data$R2783900[35.0 <= data$R2783900 & data$R2783900 <= 39.0] <- 35.0
data$R2783900[40.0 <= data$R2783900 & data$R2783900 <= 44.0] <- 40.0
data$R2783900[45.0 <= data$R2783900 & data$R2783900 <= 49.0] <- 45.0
data$R2783900[50.0 <= data$R2783900 & data$R2783900 <= 9999999.0] <- 50.0
data$R2783900 <- factor(data$R2783900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2784000 <- factor(data$R2784000,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R2784100[1.0 <= data$R2784100 & data$R2784100 <= 4.0] <- 1.0
data$R2784100[5.0 <= data$R2784100 & data$R2784100 <= 9.0] <- 5.0
data$R2784100[10.0 <= data$R2784100 & data$R2784100 <= 14.0] <- 10.0
data$R2784100[15.0 <= data$R2784100 & data$R2784100 <= 19.0] <- 15.0
data$R2784100[20.0 <= data$R2784100 & data$R2784100 <= 24.0] <- 20.0
data$R2784100[25.0 <= data$R2784100 & data$R2784100 <= 29.0] <- 25.0
data$R2784100[30.0 <= data$R2784100 & data$R2784100 <= 34.0] <- 30.0
data$R2784100[35.0 <= data$R2784100 & data$R2784100 <= 39.0] <- 35.0
data$R2784100[40.0 <= data$R2784100 & data$R2784100 <= 44.0] <- 40.0
data$R2784100[45.0 <= data$R2784100 & data$R2784100 <= 49.0] <- 45.0
data$R2784100[50.0 <= data$R2784100 & data$R2784100 <= 9999999.0] <- 50.0
data$R2784100 <- factor(data$R2784100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2785110[1.0 <= data$R2785110 & data$R2785110 <= 99.0] <- 1.0
data$R2785110[100.0 <= data$R2785110 & data$R2785110 <= 199.0] <- 100.0
data$R2785110[200.0 <= data$R2785110 & data$R2785110 <= 299.0] <- 200.0
data$R2785110[300.0 <= data$R2785110 & data$R2785110 <= 399.0] <- 300.0
data$R2785110[400.0 <= data$R2785110 & data$R2785110 <= 499.0] <- 400.0
data$R2785110[500.0 <= data$R2785110 & data$R2785110 <= 599.0] <- 500.0
data$R2785110[600.0 <= data$R2785110 & data$R2785110 <= 699.0] <- 600.0
data$R2785110[700.0 <= data$R2785110 & data$R2785110 <= 799.0] <- 700.0
data$R2785110[800.0 <= data$R2785110 & data$R2785110 <= 899.0] <- 800.0
data$R2785110[900.0 <= data$R2785110 & data$R2785110 <= 999.0] <- 900.0
data$R2785110[1000.0 <= data$R2785110 & data$R2785110 <= 9999999.0] <- 1000.0
data$R2785110 <- factor(data$R2785110,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R2796700[1.0 <= data$R2796700 & data$R2796700 <= 4.0] <- 1.0
data$R2796700[5.0 <= data$R2796700 & data$R2796700 <= 9.0] <- 5.0
data$R2796700[10.0 <= data$R2796700 & data$R2796700 <= 14.0] <- 10.0
data$R2796700[15.0 <= data$R2796700 & data$R2796700 <= 19.0] <- 15.0
data$R2796700[20.0 <= data$R2796700 & data$R2796700 <= 24.0] <- 20.0
data$R2796700[25.0 <= data$R2796700 & data$R2796700 <= 29.0] <- 25.0
data$R2796700[30.0 <= data$R2796700 & data$R2796700 <= 34.0] <- 30.0
data$R2796700[35.0 <= data$R2796700 & data$R2796700 <= 39.0] <- 35.0
data$R2796700[40.0 <= data$R2796700 & data$R2796700 <= 44.0] <- 40.0
data$R2796700[45.0 <= data$R2796700 & data$R2796700 <= 49.0] <- 45.0
data$R2796700[50.0 <= data$R2796700 & data$R2796700 <= 9999999.0] <- 50.0
data$R2796700 <- factor(data$R2796700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2796800[1.0 <= data$R2796800 & data$R2796800 <= 4.0] <- 1.0
data$R2796800[5.0 <= data$R2796800 & data$R2796800 <= 9.0] <- 5.0
data$R2796800[10.0 <= data$R2796800 & data$R2796800 <= 14.0] <- 10.0
data$R2796800[15.0 <= data$R2796800 & data$R2796800 <= 19.0] <- 15.0
data$R2796800[20.0 <= data$R2796800 & data$R2796800 <= 24.0] <- 20.0
data$R2796800[25.0 <= data$R2796800 & data$R2796800 <= 29.0] <- 25.0
data$R2796800[30.0 <= data$R2796800 & data$R2796800 <= 34.0] <- 30.0
data$R2796800[35.0 <= data$R2796800 & data$R2796800 <= 39.0] <- 35.0
data$R2796800[40.0 <= data$R2796800 & data$R2796800 <= 44.0] <- 40.0
data$R2796800[45.0 <= data$R2796800 & data$R2796800 <= 49.0] <- 45.0
data$R2796800[50.0 <= data$R2796800 & data$R2796800 <= 9999999.0] <- 50.0
data$R2796800 <- factor(data$R2796800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2796900 <- factor(data$R2796900,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R2797000[1.0 <= data$R2797000 & data$R2797000 <= 4.0] <- 1.0
data$R2797000[5.0 <= data$R2797000 & data$R2797000 <= 9.0] <- 5.0
data$R2797000[10.0 <= data$R2797000 & data$R2797000 <= 14.0] <- 10.0
data$R2797000[15.0 <= data$R2797000 & data$R2797000 <= 19.0] <- 15.0
data$R2797000[20.0 <= data$R2797000 & data$R2797000 <= 24.0] <- 20.0
data$R2797000[25.0 <= data$R2797000 & data$R2797000 <= 29.0] <- 25.0
data$R2797000[30.0 <= data$R2797000 & data$R2797000 <= 34.0] <- 30.0
data$R2797000[35.0 <= data$R2797000 & data$R2797000 <= 39.0] <- 35.0
data$R2797000[40.0 <= data$R2797000 & data$R2797000 <= 44.0] <- 40.0
data$R2797000[45.0 <= data$R2797000 & data$R2797000 <= 49.0] <- 45.0
data$R2797000[50.0 <= data$R2797000 & data$R2797000 <= 9999999.0] <- 50.0
data$R2797000 <- factor(data$R2797000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2798010[1.0 <= data$R2798010 & data$R2798010 <= 99.0] <- 1.0
data$R2798010[100.0 <= data$R2798010 & data$R2798010 <= 199.0] <- 100.0
data$R2798010[200.0 <= data$R2798010 & data$R2798010 <= 299.0] <- 200.0
data$R2798010[300.0 <= data$R2798010 & data$R2798010 <= 399.0] <- 300.0
data$R2798010[400.0 <= data$R2798010 & data$R2798010 <= 499.0] <- 400.0
data$R2798010[500.0 <= data$R2798010 & data$R2798010 <= 599.0] <- 500.0
data$R2798010[600.0 <= data$R2798010 & data$R2798010 <= 699.0] <- 600.0
data$R2798010[700.0 <= data$R2798010 & data$R2798010 <= 799.0] <- 700.0
data$R2798010[800.0 <= data$R2798010 & data$R2798010 <= 899.0] <- 800.0
data$R2798010[900.0 <= data$R2798010 & data$R2798010 <= 999.0] <- 900.0
data$R2798010[1000.0 <= data$R2798010 & data$R2798010 <= 9999999.0] <- 1000.0
data$R2798010 <- factor(data$R2798010,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R2809600[1.0 <= data$R2809600 & data$R2809600 <= 4.0] <- 1.0
data$R2809600[5.0 <= data$R2809600 & data$R2809600 <= 9.0] <- 5.0
data$R2809600[10.0 <= data$R2809600 & data$R2809600 <= 14.0] <- 10.0
data$R2809600[15.0 <= data$R2809600 & data$R2809600 <= 19.0] <- 15.0
data$R2809600[20.0 <= data$R2809600 & data$R2809600 <= 24.0] <- 20.0
data$R2809600[25.0 <= data$R2809600 & data$R2809600 <= 29.0] <- 25.0
data$R2809600[30.0 <= data$R2809600 & data$R2809600 <= 34.0] <- 30.0
data$R2809600[35.0 <= data$R2809600 & data$R2809600 <= 39.0] <- 35.0
data$R2809600[40.0 <= data$R2809600 & data$R2809600 <= 44.0] <- 40.0
data$R2809600[45.0 <= data$R2809600 & data$R2809600 <= 49.0] <- 45.0
data$R2809600[50.0 <= data$R2809600 & data$R2809600 <= 9999999.0] <- 50.0
data$R2809600 <- factor(data$R2809600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2809700[1.0 <= data$R2809700 & data$R2809700 <= 4.0] <- 1.0
data$R2809700[5.0 <= data$R2809700 & data$R2809700 <= 9.0] <- 5.0
data$R2809700[10.0 <= data$R2809700 & data$R2809700 <= 14.0] <- 10.0
data$R2809700[15.0 <= data$R2809700 & data$R2809700 <= 19.0] <- 15.0
data$R2809700[20.0 <= data$R2809700 & data$R2809700 <= 24.0] <- 20.0
data$R2809700[25.0 <= data$R2809700 & data$R2809700 <= 29.0] <- 25.0
data$R2809700[30.0 <= data$R2809700 & data$R2809700 <= 34.0] <- 30.0
data$R2809700[35.0 <= data$R2809700 & data$R2809700 <= 39.0] <- 35.0
data$R2809700[40.0 <= data$R2809700 & data$R2809700 <= 44.0] <- 40.0
data$R2809700[45.0 <= data$R2809700 & data$R2809700 <= 49.0] <- 45.0
data$R2809700[50.0 <= data$R2809700 & data$R2809700 <= 9999999.0] <- 50.0
data$R2809700 <- factor(data$R2809700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2809800 <- factor(data$R2809800,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R2809900[1.0 <= data$R2809900 & data$R2809900 <= 4.0] <- 1.0
data$R2809900[5.0 <= data$R2809900 & data$R2809900 <= 9.0] <- 5.0
data$R2809900[10.0 <= data$R2809900 & data$R2809900 <= 14.0] <- 10.0
data$R2809900[15.0 <= data$R2809900 & data$R2809900 <= 19.0] <- 15.0
data$R2809900[20.0 <= data$R2809900 & data$R2809900 <= 24.0] <- 20.0
data$R2809900[25.0 <= data$R2809900 & data$R2809900 <= 29.0] <- 25.0
data$R2809900[30.0 <= data$R2809900 & data$R2809900 <= 34.0] <- 30.0
data$R2809900[35.0 <= data$R2809900 & data$R2809900 <= 39.0] <- 35.0
data$R2809900[40.0 <= data$R2809900 & data$R2809900 <= 44.0] <- 40.0
data$R2809900[45.0 <= data$R2809900 & data$R2809900 <= 49.0] <- 45.0
data$R2809900[50.0 <= data$R2809900 & data$R2809900 <= 9999999.0] <- 50.0
data$R2809900 <- factor(data$R2809900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2810910[1.0 <= data$R2810910 & data$R2810910 <= 99.0] <- 1.0
data$R2810910[100.0 <= data$R2810910 & data$R2810910 <= 199.0] <- 100.0
data$R2810910[200.0 <= data$R2810910 & data$R2810910 <= 299.0] <- 200.0
data$R2810910[300.0 <= data$R2810910 & data$R2810910 <= 399.0] <- 300.0
data$R2810910[400.0 <= data$R2810910 & data$R2810910 <= 499.0] <- 400.0
data$R2810910[500.0 <= data$R2810910 & data$R2810910 <= 599.0] <- 500.0
data$R2810910[600.0 <= data$R2810910 & data$R2810910 <= 699.0] <- 600.0
data$R2810910[700.0 <= data$R2810910 & data$R2810910 <= 799.0] <- 700.0
data$R2810910[800.0 <= data$R2810910 & data$R2810910 <= 899.0] <- 800.0
data$R2810910[900.0 <= data$R2810910 & data$R2810910 <= 999.0] <- 900.0
data$R2810910[1000.0 <= data$R2810910 & data$R2810910 <= 9999999.0] <- 1000.0
data$R2810910 <- factor(data$R2810910,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R2822500[1.0 <= data$R2822500 & data$R2822500 <= 4.0] <- 1.0
data$R2822500[5.0 <= data$R2822500 & data$R2822500 <= 9.0] <- 5.0
data$R2822500[10.0 <= data$R2822500 & data$R2822500 <= 14.0] <- 10.0
data$R2822500[15.0 <= data$R2822500 & data$R2822500 <= 19.0] <- 15.0
data$R2822500[20.0 <= data$R2822500 & data$R2822500 <= 24.0] <- 20.0
data$R2822500[25.0 <= data$R2822500 & data$R2822500 <= 29.0] <- 25.0
data$R2822500[30.0 <= data$R2822500 & data$R2822500 <= 34.0] <- 30.0
data$R2822500[35.0 <= data$R2822500 & data$R2822500 <= 39.0] <- 35.0
data$R2822500[40.0 <= data$R2822500 & data$R2822500 <= 44.0] <- 40.0
data$R2822500[45.0 <= data$R2822500 & data$R2822500 <= 49.0] <- 45.0
data$R2822500[50.0 <= data$R2822500 & data$R2822500 <= 9999999.0] <- 50.0
data$R2822500 <- factor(data$R2822500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2822600[1.0 <= data$R2822600 & data$R2822600 <= 4.0] <- 1.0
data$R2822600[5.0 <= data$R2822600 & data$R2822600 <= 9.0] <- 5.0
data$R2822600[10.0 <= data$R2822600 & data$R2822600 <= 14.0] <- 10.0
data$R2822600[15.0 <= data$R2822600 & data$R2822600 <= 19.0] <- 15.0
data$R2822600[20.0 <= data$R2822600 & data$R2822600 <= 24.0] <- 20.0
data$R2822600[25.0 <= data$R2822600 & data$R2822600 <= 29.0] <- 25.0
data$R2822600[30.0 <= data$R2822600 & data$R2822600 <= 34.0] <- 30.0
data$R2822600[35.0 <= data$R2822600 & data$R2822600 <= 39.0] <- 35.0
data$R2822600[40.0 <= data$R2822600 & data$R2822600 <= 44.0] <- 40.0
data$R2822600[45.0 <= data$R2822600 & data$R2822600 <= 49.0] <- 45.0
data$R2822600[50.0 <= data$R2822600 & data$R2822600 <= 9999999.0] <- 50.0
data$R2822600 <- factor(data$R2822600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2822700 <- factor(data$R2822700,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R2822800[1.0 <= data$R2822800 & data$R2822800 <= 4.0] <- 1.0
data$R2822800[5.0 <= data$R2822800 & data$R2822800 <= 9.0] <- 5.0
data$R2822800[10.0 <= data$R2822800 & data$R2822800 <= 14.0] <- 10.0
data$R2822800[15.0 <= data$R2822800 & data$R2822800 <= 19.0] <- 15.0
data$R2822800[20.0 <= data$R2822800 & data$R2822800 <= 24.0] <- 20.0
data$R2822800[25.0 <= data$R2822800 & data$R2822800 <= 29.0] <- 25.0
data$R2822800[30.0 <= data$R2822800 & data$R2822800 <= 34.0] <- 30.0
data$R2822800[35.0 <= data$R2822800 & data$R2822800 <= 39.0] <- 35.0
data$R2822800[40.0 <= data$R2822800 & data$R2822800 <= 44.0] <- 40.0
data$R2822800[45.0 <= data$R2822800 & data$R2822800 <= 49.0] <- 45.0
data$R2822800[50.0 <= data$R2822800 & data$R2822800 <= 9999999.0] <- 50.0
data$R2822800 <- factor(data$R2822800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R2823810[1.0 <= data$R2823810 & data$R2823810 <= 99.0] <- 1.0
data$R2823810[100.0 <= data$R2823810 & data$R2823810 <= 199.0] <- 100.0
data$R2823810[200.0 <= data$R2823810 & data$R2823810 <= 299.0] <- 200.0
data$R2823810[300.0 <= data$R2823810 & data$R2823810 <= 399.0] <- 300.0
data$R2823810[400.0 <= data$R2823810 & data$R2823810 <= 499.0] <- 400.0
data$R2823810[500.0 <= data$R2823810 & data$R2823810 <= 599.0] <- 500.0
data$R2823810[600.0 <= data$R2823810 & data$R2823810 <= 699.0] <- 600.0
data$R2823810[700.0 <= data$R2823810 & data$R2823810 <= 799.0] <- 700.0
data$R2823810[800.0 <= data$R2823810 & data$R2823810 <= 899.0] <- 800.0
data$R2823810[900.0 <= data$R2823810 & data$R2823810 <= 999.0] <- 900.0
data$R2823810[1000.0 <= data$R2823810 & data$R2823810 <= 9999999.0] <- 1000.0
data$R2823810 <- factor(data$R2823810,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R2871100 <- factor(data$R2871100,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R2871101 <- factor(data$R2871101,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R2908100 <- factor(data$R2908100,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R2925010[1.0 <= data$R2925010 & data$R2925010 <= 99.0] <- 1.0
data$R2925010[100.0 <= data$R2925010 & data$R2925010 <= 199.0] <- 100.0
data$R2925010[200.0 <= data$R2925010 & data$R2925010 <= 299.0] <- 200.0
data$R2925010[300.0 <= data$R2925010 & data$R2925010 <= 399.0] <- 300.0
data$R2925010[400.0 <= data$R2925010 & data$R2925010 <= 499.0] <- 400.0
data$R2925010[500.0 <= data$R2925010 & data$R2925010 <= 599.0] <- 500.0
data$R2925010[600.0 <= data$R2925010 & data$R2925010 <= 699.0] <- 600.0
data$R2925010[700.0 <= data$R2925010 & data$R2925010 <= 799.0] <- 700.0
data$R2925010[800.0 <= data$R2925010 & data$R2925010 <= 899.0] <- 800.0
data$R2925010[900.0 <= data$R2925010 & data$R2925010 <= 999.0] <- 900.0
data$R2925010[1000.0 <= data$R2925010 & data$R2925010 <= 9999999.0] <- 1000.0
data$R2925010 <- factor(data$R2925010,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3012700[1.0 <= data$R3012700 & data$R3012700 <= 4.0] <- 1.0
data$R3012700[5.0 <= data$R3012700 & data$R3012700 <= 9.0] <- 5.0
data$R3012700[10.0 <= data$R3012700 & data$R3012700 <= 14.0] <- 10.0
data$R3012700[15.0 <= data$R3012700 & data$R3012700 <= 19.0] <- 15.0
data$R3012700[20.0 <= data$R3012700 & data$R3012700 <= 24.0] <- 20.0
data$R3012700[25.0 <= data$R3012700 & data$R3012700 <= 29.0] <- 25.0
data$R3012700[30.0 <= data$R3012700 & data$R3012700 <= 34.0] <- 30.0
data$R3012700[35.0 <= data$R3012700 & data$R3012700 <= 39.0] <- 35.0
data$R3012700[40.0 <= data$R3012700 & data$R3012700 <= 44.0] <- 40.0
data$R3012700[45.0 <= data$R3012700 & data$R3012700 <= 49.0] <- 45.0
data$R3012700[50.0 <= data$R3012700 & data$R3012700 <= 9999999.0] <- 50.0
data$R3012700 <- factor(data$R3012700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3012800[1.0 <= data$R3012800 & data$R3012800 <= 4.0] <- 1.0
data$R3012800[5.0 <= data$R3012800 & data$R3012800 <= 9.0] <- 5.0
data$R3012800[10.0 <= data$R3012800 & data$R3012800 <= 14.0] <- 10.0
data$R3012800[15.0 <= data$R3012800 & data$R3012800 <= 19.0] <- 15.0
data$R3012800[20.0 <= data$R3012800 & data$R3012800 <= 24.0] <- 20.0
data$R3012800[25.0 <= data$R3012800 & data$R3012800 <= 29.0] <- 25.0
data$R3012800[30.0 <= data$R3012800 & data$R3012800 <= 34.0] <- 30.0
data$R3012800[35.0 <= data$R3012800 & data$R3012800 <= 39.0] <- 35.0
data$R3012800[40.0 <= data$R3012800 & data$R3012800 <= 44.0] <- 40.0
data$R3012800[45.0 <= data$R3012800 & data$R3012800 <= 49.0] <- 45.0
data$R3012800[50.0 <= data$R3012800 & data$R3012800 <= 9999999.0] <- 50.0
data$R3012800 <- factor(data$R3012800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3012900 <- factor(data$R3012900,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R3013000[1.0 <= data$R3013000 & data$R3013000 <= 4.0] <- 1.0
data$R3013000[5.0 <= data$R3013000 & data$R3013000 <= 9.0] <- 5.0
data$R3013000[10.0 <= data$R3013000 & data$R3013000 <= 14.0] <- 10.0
data$R3013000[15.0 <= data$R3013000 & data$R3013000 <= 19.0] <- 15.0
data$R3013000[20.0 <= data$R3013000 & data$R3013000 <= 24.0] <- 20.0
data$R3013000[25.0 <= data$R3013000 & data$R3013000 <= 29.0] <- 25.0
data$R3013000[30.0 <= data$R3013000 & data$R3013000 <= 34.0] <- 30.0
data$R3013000[35.0 <= data$R3013000 & data$R3013000 <= 39.0] <- 35.0
data$R3013000[40.0 <= data$R3013000 & data$R3013000 <= 44.0] <- 40.0
data$R3013000[45.0 <= data$R3013000 & data$R3013000 <= 49.0] <- 45.0
data$R3013000[50.0 <= data$R3013000 & data$R3013000 <= 9999999.0] <- 50.0
data$R3013000 <- factor(data$R3013000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3014010[1.0 <= data$R3014010 & data$R3014010 <= 99.0] <- 1.0
data$R3014010[100.0 <= data$R3014010 & data$R3014010 <= 199.0] <- 100.0
data$R3014010[200.0 <= data$R3014010 & data$R3014010 <= 299.0] <- 200.0
data$R3014010[300.0 <= data$R3014010 & data$R3014010 <= 399.0] <- 300.0
data$R3014010[400.0 <= data$R3014010 & data$R3014010 <= 499.0] <- 400.0
data$R3014010[500.0 <= data$R3014010 & data$R3014010 <= 599.0] <- 500.0
data$R3014010[600.0 <= data$R3014010 & data$R3014010 <= 699.0] <- 600.0
data$R3014010[700.0 <= data$R3014010 & data$R3014010 <= 799.0] <- 700.0
data$R3014010[800.0 <= data$R3014010 & data$R3014010 <= 899.0] <- 800.0
data$R3014010[900.0 <= data$R3014010 & data$R3014010 <= 999.0] <- 900.0
data$R3014010[1000.0 <= data$R3014010 & data$R3014010 <= 9999999.0] <- 1000.0
data$R3014010 <- factor(data$R3014010,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3025800[1.0 <= data$R3025800 & data$R3025800 <= 4.0] <- 1.0
data$R3025800[5.0 <= data$R3025800 & data$R3025800 <= 9.0] <- 5.0
data$R3025800[10.0 <= data$R3025800 & data$R3025800 <= 14.0] <- 10.0
data$R3025800[15.0 <= data$R3025800 & data$R3025800 <= 19.0] <- 15.0
data$R3025800[20.0 <= data$R3025800 & data$R3025800 <= 24.0] <- 20.0
data$R3025800[25.0 <= data$R3025800 & data$R3025800 <= 29.0] <- 25.0
data$R3025800[30.0 <= data$R3025800 & data$R3025800 <= 34.0] <- 30.0
data$R3025800[35.0 <= data$R3025800 & data$R3025800 <= 39.0] <- 35.0
data$R3025800[40.0 <= data$R3025800 & data$R3025800 <= 44.0] <- 40.0
data$R3025800[45.0 <= data$R3025800 & data$R3025800 <= 49.0] <- 45.0
data$R3025800[50.0 <= data$R3025800 & data$R3025800 <= 9999999.0] <- 50.0
data$R3025800 <- factor(data$R3025800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3025900[1.0 <= data$R3025900 & data$R3025900 <= 4.0] <- 1.0
data$R3025900[5.0 <= data$R3025900 & data$R3025900 <= 9.0] <- 5.0
data$R3025900[10.0 <= data$R3025900 & data$R3025900 <= 14.0] <- 10.0
data$R3025900[15.0 <= data$R3025900 & data$R3025900 <= 19.0] <- 15.0
data$R3025900[20.0 <= data$R3025900 & data$R3025900 <= 24.0] <- 20.0
data$R3025900[25.0 <= data$R3025900 & data$R3025900 <= 29.0] <- 25.0
data$R3025900[30.0 <= data$R3025900 & data$R3025900 <= 34.0] <- 30.0
data$R3025900[35.0 <= data$R3025900 & data$R3025900 <= 39.0] <- 35.0
data$R3025900[40.0 <= data$R3025900 & data$R3025900 <= 44.0] <- 40.0
data$R3025900[45.0 <= data$R3025900 & data$R3025900 <= 49.0] <- 45.0
data$R3025900[50.0 <= data$R3025900 & data$R3025900 <= 9999999.0] <- 50.0
data$R3025900 <- factor(data$R3025900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3026000 <- factor(data$R3026000,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R3026100[1.0 <= data$R3026100 & data$R3026100 <= 4.0] <- 1.0
data$R3026100[5.0 <= data$R3026100 & data$R3026100 <= 9.0] <- 5.0
data$R3026100[10.0 <= data$R3026100 & data$R3026100 <= 14.0] <- 10.0
data$R3026100[15.0 <= data$R3026100 & data$R3026100 <= 19.0] <- 15.0
data$R3026100[20.0 <= data$R3026100 & data$R3026100 <= 24.0] <- 20.0
data$R3026100[25.0 <= data$R3026100 & data$R3026100 <= 29.0] <- 25.0
data$R3026100[30.0 <= data$R3026100 & data$R3026100 <= 34.0] <- 30.0
data$R3026100[35.0 <= data$R3026100 & data$R3026100 <= 39.0] <- 35.0
data$R3026100[40.0 <= data$R3026100 & data$R3026100 <= 44.0] <- 40.0
data$R3026100[45.0 <= data$R3026100 & data$R3026100 <= 49.0] <- 45.0
data$R3026100[50.0 <= data$R3026100 & data$R3026100 <= 9999999.0] <- 50.0
data$R3026100 <- factor(data$R3026100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3027110[1.0 <= data$R3027110 & data$R3027110 <= 99.0] <- 1.0
data$R3027110[100.0 <= data$R3027110 & data$R3027110 <= 199.0] <- 100.0
data$R3027110[200.0 <= data$R3027110 & data$R3027110 <= 299.0] <- 200.0
data$R3027110[300.0 <= data$R3027110 & data$R3027110 <= 399.0] <- 300.0
data$R3027110[400.0 <= data$R3027110 & data$R3027110 <= 499.0] <- 400.0
data$R3027110[500.0 <= data$R3027110 & data$R3027110 <= 599.0] <- 500.0
data$R3027110[600.0 <= data$R3027110 & data$R3027110 <= 699.0] <- 600.0
data$R3027110[700.0 <= data$R3027110 & data$R3027110 <= 799.0] <- 700.0
data$R3027110[800.0 <= data$R3027110 & data$R3027110 <= 899.0] <- 800.0
data$R3027110[900.0 <= data$R3027110 & data$R3027110 <= 999.0] <- 900.0
data$R3027110[1000.0 <= data$R3027110 & data$R3027110 <= 9999999.0] <- 1000.0
data$R3027110 <- factor(data$R3027110,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3038900[1.0 <= data$R3038900 & data$R3038900 <= 4.0] <- 1.0
data$R3038900[5.0 <= data$R3038900 & data$R3038900 <= 9.0] <- 5.0
data$R3038900[10.0 <= data$R3038900 & data$R3038900 <= 14.0] <- 10.0
data$R3038900[15.0 <= data$R3038900 & data$R3038900 <= 19.0] <- 15.0
data$R3038900[20.0 <= data$R3038900 & data$R3038900 <= 24.0] <- 20.0
data$R3038900[25.0 <= data$R3038900 & data$R3038900 <= 29.0] <- 25.0
data$R3038900[30.0 <= data$R3038900 & data$R3038900 <= 34.0] <- 30.0
data$R3038900[35.0 <= data$R3038900 & data$R3038900 <= 39.0] <- 35.0
data$R3038900[40.0 <= data$R3038900 & data$R3038900 <= 44.0] <- 40.0
data$R3038900[45.0 <= data$R3038900 & data$R3038900 <= 49.0] <- 45.0
data$R3038900[50.0 <= data$R3038900 & data$R3038900 <= 9999999.0] <- 50.0
data$R3038900 <- factor(data$R3038900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3039000[1.0 <= data$R3039000 & data$R3039000 <= 4.0] <- 1.0
data$R3039000[5.0 <= data$R3039000 & data$R3039000 <= 9.0] <- 5.0
data$R3039000[10.0 <= data$R3039000 & data$R3039000 <= 14.0] <- 10.0
data$R3039000[15.0 <= data$R3039000 & data$R3039000 <= 19.0] <- 15.0
data$R3039000[20.0 <= data$R3039000 & data$R3039000 <= 24.0] <- 20.0
data$R3039000[25.0 <= data$R3039000 & data$R3039000 <= 29.0] <- 25.0
data$R3039000[30.0 <= data$R3039000 & data$R3039000 <= 34.0] <- 30.0
data$R3039000[35.0 <= data$R3039000 & data$R3039000 <= 39.0] <- 35.0
data$R3039000[40.0 <= data$R3039000 & data$R3039000 <= 44.0] <- 40.0
data$R3039000[45.0 <= data$R3039000 & data$R3039000 <= 49.0] <- 45.0
data$R3039000[50.0 <= data$R3039000 & data$R3039000 <= 9999999.0] <- 50.0
data$R3039000 <- factor(data$R3039000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3039100 <- factor(data$R3039100,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R3039200[1.0 <= data$R3039200 & data$R3039200 <= 4.0] <- 1.0
data$R3039200[5.0 <= data$R3039200 & data$R3039200 <= 9.0] <- 5.0
data$R3039200[10.0 <= data$R3039200 & data$R3039200 <= 14.0] <- 10.0
data$R3039200[15.0 <= data$R3039200 & data$R3039200 <= 19.0] <- 15.0
data$R3039200[20.0 <= data$R3039200 & data$R3039200 <= 24.0] <- 20.0
data$R3039200[25.0 <= data$R3039200 & data$R3039200 <= 29.0] <- 25.0
data$R3039200[30.0 <= data$R3039200 & data$R3039200 <= 34.0] <- 30.0
data$R3039200[35.0 <= data$R3039200 & data$R3039200 <= 39.0] <- 35.0
data$R3039200[40.0 <= data$R3039200 & data$R3039200 <= 44.0] <- 40.0
data$R3039200[45.0 <= data$R3039200 & data$R3039200 <= 49.0] <- 45.0
data$R3039200[50.0 <= data$R3039200 & data$R3039200 <= 9999999.0] <- 50.0
data$R3039200 <- factor(data$R3039200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3040210[1.0 <= data$R3040210 & data$R3040210 <= 99.0] <- 1.0
data$R3040210[100.0 <= data$R3040210 & data$R3040210 <= 199.0] <- 100.0
data$R3040210[200.0 <= data$R3040210 & data$R3040210 <= 299.0] <- 200.0
data$R3040210[300.0 <= data$R3040210 & data$R3040210 <= 399.0] <- 300.0
data$R3040210[400.0 <= data$R3040210 & data$R3040210 <= 499.0] <- 400.0
data$R3040210[500.0 <= data$R3040210 & data$R3040210 <= 599.0] <- 500.0
data$R3040210[600.0 <= data$R3040210 & data$R3040210 <= 699.0] <- 600.0
data$R3040210[700.0 <= data$R3040210 & data$R3040210 <= 799.0] <- 700.0
data$R3040210[800.0 <= data$R3040210 & data$R3040210 <= 899.0] <- 800.0
data$R3040210[900.0 <= data$R3040210 & data$R3040210 <= 999.0] <- 900.0
data$R3040210[1000.0 <= data$R3040210 & data$R3040210 <= 9999999.0] <- 1000.0
data$R3040210 <- factor(data$R3040210,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3052000[1.0 <= data$R3052000 & data$R3052000 <= 4.0] <- 1.0
data$R3052000[5.0 <= data$R3052000 & data$R3052000 <= 9.0] <- 5.0
data$R3052000[10.0 <= data$R3052000 & data$R3052000 <= 14.0] <- 10.0
data$R3052000[15.0 <= data$R3052000 & data$R3052000 <= 19.0] <- 15.0
data$R3052000[20.0 <= data$R3052000 & data$R3052000 <= 24.0] <- 20.0
data$R3052000[25.0 <= data$R3052000 & data$R3052000 <= 29.0] <- 25.0
data$R3052000[30.0 <= data$R3052000 & data$R3052000 <= 34.0] <- 30.0
data$R3052000[35.0 <= data$R3052000 & data$R3052000 <= 39.0] <- 35.0
data$R3052000[40.0 <= data$R3052000 & data$R3052000 <= 44.0] <- 40.0
data$R3052000[45.0 <= data$R3052000 & data$R3052000 <= 49.0] <- 45.0
data$R3052000[50.0 <= data$R3052000 & data$R3052000 <= 9999999.0] <- 50.0
data$R3052000 <- factor(data$R3052000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3052100[1.0 <= data$R3052100 & data$R3052100 <= 4.0] <- 1.0
data$R3052100[5.0 <= data$R3052100 & data$R3052100 <= 9.0] <- 5.0
data$R3052100[10.0 <= data$R3052100 & data$R3052100 <= 14.0] <- 10.0
data$R3052100[15.0 <= data$R3052100 & data$R3052100 <= 19.0] <- 15.0
data$R3052100[20.0 <= data$R3052100 & data$R3052100 <= 24.0] <- 20.0
data$R3052100[25.0 <= data$R3052100 & data$R3052100 <= 29.0] <- 25.0
data$R3052100[30.0 <= data$R3052100 & data$R3052100 <= 34.0] <- 30.0
data$R3052100[35.0 <= data$R3052100 & data$R3052100 <= 39.0] <- 35.0
data$R3052100[40.0 <= data$R3052100 & data$R3052100 <= 44.0] <- 40.0
data$R3052100[45.0 <= data$R3052100 & data$R3052100 <= 49.0] <- 45.0
data$R3052100[50.0 <= data$R3052100 & data$R3052100 <= 9999999.0] <- 50.0
data$R3052100 <- factor(data$R3052100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3052200 <- factor(data$R3052200,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R3052300[1.0 <= data$R3052300 & data$R3052300 <= 4.0] <- 1.0
data$R3052300[5.0 <= data$R3052300 & data$R3052300 <= 9.0] <- 5.0
data$R3052300[10.0 <= data$R3052300 & data$R3052300 <= 14.0] <- 10.0
data$R3052300[15.0 <= data$R3052300 & data$R3052300 <= 19.0] <- 15.0
data$R3052300[20.0 <= data$R3052300 & data$R3052300 <= 24.0] <- 20.0
data$R3052300[25.0 <= data$R3052300 & data$R3052300 <= 29.0] <- 25.0
data$R3052300[30.0 <= data$R3052300 & data$R3052300 <= 34.0] <- 30.0
data$R3052300[35.0 <= data$R3052300 & data$R3052300 <= 39.0] <- 35.0
data$R3052300[40.0 <= data$R3052300 & data$R3052300 <= 44.0] <- 40.0
data$R3052300[45.0 <= data$R3052300 & data$R3052300 <= 49.0] <- 45.0
data$R3052300[50.0 <= data$R3052300 & data$R3052300 <= 9999999.0] <- 50.0
data$R3052300 <- factor(data$R3052300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3053310[1.0 <= data$R3053310 & data$R3053310 <= 99.0] <- 1.0
data$R3053310[100.0 <= data$R3053310 & data$R3053310 <= 199.0] <- 100.0
data$R3053310[200.0 <= data$R3053310 & data$R3053310 <= 299.0] <- 200.0
data$R3053310[300.0 <= data$R3053310 & data$R3053310 <= 399.0] <- 300.0
data$R3053310[400.0 <= data$R3053310 & data$R3053310 <= 499.0] <- 400.0
data$R3053310[500.0 <= data$R3053310 & data$R3053310 <= 599.0] <- 500.0
data$R3053310[600.0 <= data$R3053310 & data$R3053310 <= 699.0] <- 600.0
data$R3053310[700.0 <= data$R3053310 & data$R3053310 <= 799.0] <- 700.0
data$R3053310[800.0 <= data$R3053310 & data$R3053310 <= 899.0] <- 800.0
data$R3053310[900.0 <= data$R3053310 & data$R3053310 <= 999.0] <- 900.0
data$R3053310[1000.0 <= data$R3053310 & data$R3053310 <= 9999999.0] <- 1000.0
data$R3053310 <- factor(data$R3053310,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3065100[1.0 <= data$R3065100 & data$R3065100 <= 4.0] <- 1.0
data$R3065100[5.0 <= data$R3065100 & data$R3065100 <= 9.0] <- 5.0
data$R3065100[10.0 <= data$R3065100 & data$R3065100 <= 14.0] <- 10.0
data$R3065100[15.0 <= data$R3065100 & data$R3065100 <= 19.0] <- 15.0
data$R3065100[20.0 <= data$R3065100 & data$R3065100 <= 24.0] <- 20.0
data$R3065100[25.0 <= data$R3065100 & data$R3065100 <= 29.0] <- 25.0
data$R3065100[30.0 <= data$R3065100 & data$R3065100 <= 34.0] <- 30.0
data$R3065100[35.0 <= data$R3065100 & data$R3065100 <= 39.0] <- 35.0
data$R3065100[40.0 <= data$R3065100 & data$R3065100 <= 44.0] <- 40.0
data$R3065100[45.0 <= data$R3065100 & data$R3065100 <= 49.0] <- 45.0
data$R3065100[50.0 <= data$R3065100 & data$R3065100 <= 9999999.0] <- 50.0
data$R3065100 <- factor(data$R3065100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3065200[1.0 <= data$R3065200 & data$R3065200 <= 4.0] <- 1.0
data$R3065200[5.0 <= data$R3065200 & data$R3065200 <= 9.0] <- 5.0
data$R3065200[10.0 <= data$R3065200 & data$R3065200 <= 14.0] <- 10.0
data$R3065200[15.0 <= data$R3065200 & data$R3065200 <= 19.0] <- 15.0
data$R3065200[20.0 <= data$R3065200 & data$R3065200 <= 24.0] <- 20.0
data$R3065200[25.0 <= data$R3065200 & data$R3065200 <= 29.0] <- 25.0
data$R3065200[30.0 <= data$R3065200 & data$R3065200 <= 34.0] <- 30.0
data$R3065200[35.0 <= data$R3065200 & data$R3065200 <= 39.0] <- 35.0
data$R3065200[40.0 <= data$R3065200 & data$R3065200 <= 44.0] <- 40.0
data$R3065200[45.0 <= data$R3065200 & data$R3065200 <= 49.0] <- 45.0
data$R3065200[50.0 <= data$R3065200 & data$R3065200 <= 9999999.0] <- 50.0
data$R3065200 <- factor(data$R3065200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3065300 <- factor(data$R3065300,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R3065400[1.0 <= data$R3065400 & data$R3065400 <= 4.0] <- 1.0
data$R3065400[5.0 <= data$R3065400 & data$R3065400 <= 9.0] <- 5.0
data$R3065400[10.0 <= data$R3065400 & data$R3065400 <= 14.0] <- 10.0
data$R3065400[15.0 <= data$R3065400 & data$R3065400 <= 19.0] <- 15.0
data$R3065400[20.0 <= data$R3065400 & data$R3065400 <= 24.0] <- 20.0
data$R3065400[25.0 <= data$R3065400 & data$R3065400 <= 29.0] <- 25.0
data$R3065400[30.0 <= data$R3065400 & data$R3065400 <= 34.0] <- 30.0
data$R3065400[35.0 <= data$R3065400 & data$R3065400 <= 39.0] <- 35.0
data$R3065400[40.0 <= data$R3065400 & data$R3065400 <= 44.0] <- 40.0
data$R3065400[45.0 <= data$R3065400 & data$R3065400 <= 49.0] <- 45.0
data$R3065400[50.0 <= data$R3065400 & data$R3065400 <= 9999999.0] <- 50.0
data$R3065400 <- factor(data$R3065400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3066410[1.0 <= data$R3066410 & data$R3066410 <= 99.0] <- 1.0
data$R3066410[100.0 <= data$R3066410 & data$R3066410 <= 199.0] <- 100.0
data$R3066410[200.0 <= data$R3066410 & data$R3066410 <= 299.0] <- 200.0
data$R3066410[300.0 <= data$R3066410 & data$R3066410 <= 399.0] <- 300.0
data$R3066410[400.0 <= data$R3066410 & data$R3066410 <= 499.0] <- 400.0
data$R3066410[500.0 <= data$R3066410 & data$R3066410 <= 599.0] <- 500.0
data$R3066410[600.0 <= data$R3066410 & data$R3066410 <= 699.0] <- 600.0
data$R3066410[700.0 <= data$R3066410 & data$R3066410 <= 799.0] <- 700.0
data$R3066410[800.0 <= data$R3066410 & data$R3066410 <= 899.0] <- 800.0
data$R3066410[900.0 <= data$R3066410 & data$R3066410 <= 999.0] <- 900.0
data$R3066410[1000.0 <= data$R3066410 & data$R3066410 <= 9999999.0] <- 1000.0
data$R3066410 <- factor(data$R3066410,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3074800 <- factor(data$R3074800,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R3074801 <- factor(data$R3074801,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R3110200 <- factor(data$R3110200,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R3127800[1.0 <= data$R3127800 & data$R3127800 <= 99.0] <- 1.0
data$R3127800[100.0 <= data$R3127800 & data$R3127800 <= 199.0] <- 100.0
data$R3127800[200.0 <= data$R3127800 & data$R3127800 <= 299.0] <- 200.0
data$R3127800[300.0 <= data$R3127800 & data$R3127800 <= 399.0] <- 300.0
data$R3127800[400.0 <= data$R3127800 & data$R3127800 <= 499.0] <- 400.0
data$R3127800[500.0 <= data$R3127800 & data$R3127800 <= 599.0] <- 500.0
data$R3127800[600.0 <= data$R3127800 & data$R3127800 <= 699.0] <- 600.0
data$R3127800[700.0 <= data$R3127800 & data$R3127800 <= 799.0] <- 700.0
data$R3127800[800.0 <= data$R3127800 & data$R3127800 <= 899.0] <- 800.0
data$R3127800[900.0 <= data$R3127800 & data$R3127800 <= 999.0] <- 900.0
data$R3127800[1000.0 <= data$R3127800 & data$R3127800 <= 9999999.0] <- 1000.0
data$R3127800 <- factor(data$R3127800,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3340100[1.0 <= data$R3340100 & data$R3340100 <= 4.0] <- 1.0
data$R3340100[5.0 <= data$R3340100 & data$R3340100 <= 9.0] <- 5.0
data$R3340100[10.0 <= data$R3340100 & data$R3340100 <= 14.0] <- 10.0
data$R3340100[15.0 <= data$R3340100 & data$R3340100 <= 19.0] <- 15.0
data$R3340100[20.0 <= data$R3340100 & data$R3340100 <= 24.0] <- 20.0
data$R3340100[25.0 <= data$R3340100 & data$R3340100 <= 29.0] <- 25.0
data$R3340100[30.0 <= data$R3340100 & data$R3340100 <= 34.0] <- 30.0
data$R3340100[35.0 <= data$R3340100 & data$R3340100 <= 39.0] <- 35.0
data$R3340100[40.0 <= data$R3340100 & data$R3340100 <= 44.0] <- 40.0
data$R3340100[45.0 <= data$R3340100 & data$R3340100 <= 49.0] <- 45.0
data$R3340100[50.0 <= data$R3340100 & data$R3340100 <= 9999999.0] <- 50.0
data$R3340100 <- factor(data$R3340100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3340200[1.0 <= data$R3340200 & data$R3340200 <= 4.0] <- 1.0
data$R3340200[5.0 <= data$R3340200 & data$R3340200 <= 9.0] <- 5.0
data$R3340200[10.0 <= data$R3340200 & data$R3340200 <= 14.0] <- 10.0
data$R3340200[15.0 <= data$R3340200 & data$R3340200 <= 19.0] <- 15.0
data$R3340200[20.0 <= data$R3340200 & data$R3340200 <= 24.0] <- 20.0
data$R3340200[25.0 <= data$R3340200 & data$R3340200 <= 29.0] <- 25.0
data$R3340200[30.0 <= data$R3340200 & data$R3340200 <= 34.0] <- 30.0
data$R3340200[35.0 <= data$R3340200 & data$R3340200 <= 39.0] <- 35.0
data$R3340200[40.0 <= data$R3340200 & data$R3340200 <= 44.0] <- 40.0
data$R3340200[45.0 <= data$R3340200 & data$R3340200 <= 49.0] <- 45.0
data$R3340200[50.0 <= data$R3340200 & data$R3340200 <= 9999999.0] <- 50.0
data$R3340200 <- factor(data$R3340200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3340300 <- factor(data$R3340300,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R3340400[1.0 <= data$R3340400 & data$R3340400 <= 4.0] <- 1.0
data$R3340400[5.0 <= data$R3340400 & data$R3340400 <= 9.0] <- 5.0
data$R3340400[10.0 <= data$R3340400 & data$R3340400 <= 14.0] <- 10.0
data$R3340400[15.0 <= data$R3340400 & data$R3340400 <= 19.0] <- 15.0
data$R3340400[20.0 <= data$R3340400 & data$R3340400 <= 24.0] <- 20.0
data$R3340400[25.0 <= data$R3340400 & data$R3340400 <= 29.0] <- 25.0
data$R3340400[30.0 <= data$R3340400 & data$R3340400 <= 34.0] <- 30.0
data$R3340400[35.0 <= data$R3340400 & data$R3340400 <= 39.0] <- 35.0
data$R3340400[40.0 <= data$R3340400 & data$R3340400 <= 44.0] <- 40.0
data$R3340400[45.0 <= data$R3340400 & data$R3340400 <= 49.0] <- 45.0
data$R3340400[50.0 <= data$R3340400 & data$R3340400 <= 9999999.0] <- 50.0
data$R3340400 <- factor(data$R3340400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3341500[1.0 <= data$R3341500 & data$R3341500 <= 99.0] <- 1.0
data$R3341500[100.0 <= data$R3341500 & data$R3341500 <= 199.0] <- 100.0
data$R3341500[200.0 <= data$R3341500 & data$R3341500 <= 299.0] <- 200.0
data$R3341500[300.0 <= data$R3341500 & data$R3341500 <= 399.0] <- 300.0
data$R3341500[400.0 <= data$R3341500 & data$R3341500 <= 499.0] <- 400.0
data$R3341500[500.0 <= data$R3341500 & data$R3341500 <= 599.0] <- 500.0
data$R3341500[600.0 <= data$R3341500 & data$R3341500 <= 699.0] <- 600.0
data$R3341500[700.0 <= data$R3341500 & data$R3341500 <= 799.0] <- 700.0
data$R3341500[800.0 <= data$R3341500 & data$R3341500 <= 899.0] <- 800.0
data$R3341500[900.0 <= data$R3341500 & data$R3341500 <= 999.0] <- 900.0
data$R3341500[1000.0 <= data$R3341500 & data$R3341500 <= 9999999.0] <- 1000.0
data$R3341500 <- factor(data$R3341500,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3354100[1.0 <= data$R3354100 & data$R3354100 <= 4.0] <- 1.0
data$R3354100[5.0 <= data$R3354100 & data$R3354100 <= 9.0] <- 5.0
data$R3354100[10.0 <= data$R3354100 & data$R3354100 <= 14.0] <- 10.0
data$R3354100[15.0 <= data$R3354100 & data$R3354100 <= 19.0] <- 15.0
data$R3354100[20.0 <= data$R3354100 & data$R3354100 <= 24.0] <- 20.0
data$R3354100[25.0 <= data$R3354100 & data$R3354100 <= 29.0] <- 25.0
data$R3354100[30.0 <= data$R3354100 & data$R3354100 <= 34.0] <- 30.0
data$R3354100[35.0 <= data$R3354100 & data$R3354100 <= 39.0] <- 35.0
data$R3354100[40.0 <= data$R3354100 & data$R3354100 <= 44.0] <- 40.0
data$R3354100[45.0 <= data$R3354100 & data$R3354100 <= 49.0] <- 45.0
data$R3354100[50.0 <= data$R3354100 & data$R3354100 <= 9999999.0] <- 50.0
data$R3354100 <- factor(data$R3354100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3354200[1.0 <= data$R3354200 & data$R3354200 <= 4.0] <- 1.0
data$R3354200[5.0 <= data$R3354200 & data$R3354200 <= 9.0] <- 5.0
data$R3354200[10.0 <= data$R3354200 & data$R3354200 <= 14.0] <- 10.0
data$R3354200[15.0 <= data$R3354200 & data$R3354200 <= 19.0] <- 15.0
data$R3354200[20.0 <= data$R3354200 & data$R3354200 <= 24.0] <- 20.0
data$R3354200[25.0 <= data$R3354200 & data$R3354200 <= 29.0] <- 25.0
data$R3354200[30.0 <= data$R3354200 & data$R3354200 <= 34.0] <- 30.0
data$R3354200[35.0 <= data$R3354200 & data$R3354200 <= 39.0] <- 35.0
data$R3354200[40.0 <= data$R3354200 & data$R3354200 <= 44.0] <- 40.0
data$R3354200[45.0 <= data$R3354200 & data$R3354200 <= 49.0] <- 45.0
data$R3354200[50.0 <= data$R3354200 & data$R3354200 <= 9999999.0] <- 50.0
data$R3354200 <- factor(data$R3354200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3354300 <- factor(data$R3354300,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R3354400[1.0 <= data$R3354400 & data$R3354400 <= 4.0] <- 1.0
data$R3354400[5.0 <= data$R3354400 & data$R3354400 <= 9.0] <- 5.0
data$R3354400[10.0 <= data$R3354400 & data$R3354400 <= 14.0] <- 10.0
data$R3354400[15.0 <= data$R3354400 & data$R3354400 <= 19.0] <- 15.0
data$R3354400[20.0 <= data$R3354400 & data$R3354400 <= 24.0] <- 20.0
data$R3354400[25.0 <= data$R3354400 & data$R3354400 <= 29.0] <- 25.0
data$R3354400[30.0 <= data$R3354400 & data$R3354400 <= 34.0] <- 30.0
data$R3354400[35.0 <= data$R3354400 & data$R3354400 <= 39.0] <- 35.0
data$R3354400[40.0 <= data$R3354400 & data$R3354400 <= 44.0] <- 40.0
data$R3354400[45.0 <= data$R3354400 & data$R3354400 <= 49.0] <- 45.0
data$R3354400[50.0 <= data$R3354400 & data$R3354400 <= 9999999.0] <- 50.0
data$R3354400 <- factor(data$R3354400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3355500[1.0 <= data$R3355500 & data$R3355500 <= 99.0] <- 1.0
data$R3355500[100.0 <= data$R3355500 & data$R3355500 <= 199.0] <- 100.0
data$R3355500[200.0 <= data$R3355500 & data$R3355500 <= 299.0] <- 200.0
data$R3355500[300.0 <= data$R3355500 & data$R3355500 <= 399.0] <- 300.0
data$R3355500[400.0 <= data$R3355500 & data$R3355500 <= 499.0] <- 400.0
data$R3355500[500.0 <= data$R3355500 & data$R3355500 <= 599.0] <- 500.0
data$R3355500[600.0 <= data$R3355500 & data$R3355500 <= 699.0] <- 600.0
data$R3355500[700.0 <= data$R3355500 & data$R3355500 <= 799.0] <- 700.0
data$R3355500[800.0 <= data$R3355500 & data$R3355500 <= 899.0] <- 800.0
data$R3355500[900.0 <= data$R3355500 & data$R3355500 <= 999.0] <- 900.0
data$R3355500[1000.0 <= data$R3355500 & data$R3355500 <= 9999999.0] <- 1000.0
data$R3355500 <- factor(data$R3355500,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3368100[1.0 <= data$R3368100 & data$R3368100 <= 4.0] <- 1.0
data$R3368100[5.0 <= data$R3368100 & data$R3368100 <= 9.0] <- 5.0
data$R3368100[10.0 <= data$R3368100 & data$R3368100 <= 14.0] <- 10.0
data$R3368100[15.0 <= data$R3368100 & data$R3368100 <= 19.0] <- 15.0
data$R3368100[20.0 <= data$R3368100 & data$R3368100 <= 24.0] <- 20.0
data$R3368100[25.0 <= data$R3368100 & data$R3368100 <= 29.0] <- 25.0
data$R3368100[30.0 <= data$R3368100 & data$R3368100 <= 34.0] <- 30.0
data$R3368100[35.0 <= data$R3368100 & data$R3368100 <= 39.0] <- 35.0
data$R3368100[40.0 <= data$R3368100 & data$R3368100 <= 44.0] <- 40.0
data$R3368100[45.0 <= data$R3368100 & data$R3368100 <= 49.0] <- 45.0
data$R3368100[50.0 <= data$R3368100 & data$R3368100 <= 9999999.0] <- 50.0
data$R3368100 <- factor(data$R3368100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3368200[1.0 <= data$R3368200 & data$R3368200 <= 4.0] <- 1.0
data$R3368200[5.0 <= data$R3368200 & data$R3368200 <= 9.0] <- 5.0
data$R3368200[10.0 <= data$R3368200 & data$R3368200 <= 14.0] <- 10.0
data$R3368200[15.0 <= data$R3368200 & data$R3368200 <= 19.0] <- 15.0
data$R3368200[20.0 <= data$R3368200 & data$R3368200 <= 24.0] <- 20.0
data$R3368200[25.0 <= data$R3368200 & data$R3368200 <= 29.0] <- 25.0
data$R3368200[30.0 <= data$R3368200 & data$R3368200 <= 34.0] <- 30.0
data$R3368200[35.0 <= data$R3368200 & data$R3368200 <= 39.0] <- 35.0
data$R3368200[40.0 <= data$R3368200 & data$R3368200 <= 44.0] <- 40.0
data$R3368200[45.0 <= data$R3368200 & data$R3368200 <= 49.0] <- 45.0
data$R3368200[50.0 <= data$R3368200 & data$R3368200 <= 9999999.0] <- 50.0
data$R3368200 <- factor(data$R3368200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3368300 <- factor(data$R3368300,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R3368400[1.0 <= data$R3368400 & data$R3368400 <= 4.0] <- 1.0
data$R3368400[5.0 <= data$R3368400 & data$R3368400 <= 9.0] <- 5.0
data$R3368400[10.0 <= data$R3368400 & data$R3368400 <= 14.0] <- 10.0
data$R3368400[15.0 <= data$R3368400 & data$R3368400 <= 19.0] <- 15.0
data$R3368400[20.0 <= data$R3368400 & data$R3368400 <= 24.0] <- 20.0
data$R3368400[25.0 <= data$R3368400 & data$R3368400 <= 29.0] <- 25.0
data$R3368400[30.0 <= data$R3368400 & data$R3368400 <= 34.0] <- 30.0
data$R3368400[35.0 <= data$R3368400 & data$R3368400 <= 39.0] <- 35.0
data$R3368400[40.0 <= data$R3368400 & data$R3368400 <= 44.0] <- 40.0
data$R3368400[45.0 <= data$R3368400 & data$R3368400 <= 49.0] <- 45.0
data$R3368400[50.0 <= data$R3368400 & data$R3368400 <= 9999999.0] <- 50.0
data$R3368400 <- factor(data$R3368400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3369500[1.0 <= data$R3369500 & data$R3369500 <= 99.0] <- 1.0
data$R3369500[100.0 <= data$R3369500 & data$R3369500 <= 199.0] <- 100.0
data$R3369500[200.0 <= data$R3369500 & data$R3369500 <= 299.0] <- 200.0
data$R3369500[300.0 <= data$R3369500 & data$R3369500 <= 399.0] <- 300.0
data$R3369500[400.0 <= data$R3369500 & data$R3369500 <= 499.0] <- 400.0
data$R3369500[500.0 <= data$R3369500 & data$R3369500 <= 599.0] <- 500.0
data$R3369500[600.0 <= data$R3369500 & data$R3369500 <= 699.0] <- 600.0
data$R3369500[700.0 <= data$R3369500 & data$R3369500 <= 799.0] <- 700.0
data$R3369500[800.0 <= data$R3369500 & data$R3369500 <= 899.0] <- 800.0
data$R3369500[900.0 <= data$R3369500 & data$R3369500 <= 999.0] <- 900.0
data$R3369500[1000.0 <= data$R3369500 & data$R3369500 <= 9999999.0] <- 1000.0
data$R3369500 <- factor(data$R3369500,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3382100[1.0 <= data$R3382100 & data$R3382100 <= 4.0] <- 1.0
data$R3382100[5.0 <= data$R3382100 & data$R3382100 <= 9.0] <- 5.0
data$R3382100[10.0 <= data$R3382100 & data$R3382100 <= 14.0] <- 10.0
data$R3382100[15.0 <= data$R3382100 & data$R3382100 <= 19.0] <- 15.0
data$R3382100[20.0 <= data$R3382100 & data$R3382100 <= 24.0] <- 20.0
data$R3382100[25.0 <= data$R3382100 & data$R3382100 <= 29.0] <- 25.0
data$R3382100[30.0 <= data$R3382100 & data$R3382100 <= 34.0] <- 30.0
data$R3382100[35.0 <= data$R3382100 & data$R3382100 <= 39.0] <- 35.0
data$R3382100[40.0 <= data$R3382100 & data$R3382100 <= 44.0] <- 40.0
data$R3382100[45.0 <= data$R3382100 & data$R3382100 <= 49.0] <- 45.0
data$R3382100[50.0 <= data$R3382100 & data$R3382100 <= 9999999.0] <- 50.0
data$R3382100 <- factor(data$R3382100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3382200[1.0 <= data$R3382200 & data$R3382200 <= 4.0] <- 1.0
data$R3382200[5.0 <= data$R3382200 & data$R3382200 <= 9.0] <- 5.0
data$R3382200[10.0 <= data$R3382200 & data$R3382200 <= 14.0] <- 10.0
data$R3382200[15.0 <= data$R3382200 & data$R3382200 <= 19.0] <- 15.0
data$R3382200[20.0 <= data$R3382200 & data$R3382200 <= 24.0] <- 20.0
data$R3382200[25.0 <= data$R3382200 & data$R3382200 <= 29.0] <- 25.0
data$R3382200[30.0 <= data$R3382200 & data$R3382200 <= 34.0] <- 30.0
data$R3382200[35.0 <= data$R3382200 & data$R3382200 <= 39.0] <- 35.0
data$R3382200[40.0 <= data$R3382200 & data$R3382200 <= 44.0] <- 40.0
data$R3382200[45.0 <= data$R3382200 & data$R3382200 <= 49.0] <- 45.0
data$R3382200[50.0 <= data$R3382200 & data$R3382200 <= 9999999.0] <- 50.0
data$R3382200 <- factor(data$R3382200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3382300 <- factor(data$R3382300,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R3382400[1.0 <= data$R3382400 & data$R3382400 <= 4.0] <- 1.0
data$R3382400[5.0 <= data$R3382400 & data$R3382400 <= 9.0] <- 5.0
data$R3382400[10.0 <= data$R3382400 & data$R3382400 <= 14.0] <- 10.0
data$R3382400[15.0 <= data$R3382400 & data$R3382400 <= 19.0] <- 15.0
data$R3382400[20.0 <= data$R3382400 & data$R3382400 <= 24.0] <- 20.0
data$R3382400[25.0 <= data$R3382400 & data$R3382400 <= 29.0] <- 25.0
data$R3382400[30.0 <= data$R3382400 & data$R3382400 <= 34.0] <- 30.0
data$R3382400[35.0 <= data$R3382400 & data$R3382400 <= 39.0] <- 35.0
data$R3382400[40.0 <= data$R3382400 & data$R3382400 <= 44.0] <- 40.0
data$R3382400[45.0 <= data$R3382400 & data$R3382400 <= 49.0] <- 45.0
data$R3382400[50.0 <= data$R3382400 & data$R3382400 <= 9999999.0] <- 50.0
data$R3382400 <- factor(data$R3382400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3383500[1.0 <= data$R3383500 & data$R3383500 <= 99.0] <- 1.0
data$R3383500[100.0 <= data$R3383500 & data$R3383500 <= 199.0] <- 100.0
data$R3383500[200.0 <= data$R3383500 & data$R3383500 <= 299.0] <- 200.0
data$R3383500[300.0 <= data$R3383500 & data$R3383500 <= 399.0] <- 300.0
data$R3383500[400.0 <= data$R3383500 & data$R3383500 <= 499.0] <- 400.0
data$R3383500[500.0 <= data$R3383500 & data$R3383500 <= 599.0] <- 500.0
data$R3383500[600.0 <= data$R3383500 & data$R3383500 <= 699.0] <- 600.0
data$R3383500[700.0 <= data$R3383500 & data$R3383500 <= 799.0] <- 700.0
data$R3383500[800.0 <= data$R3383500 & data$R3383500 <= 899.0] <- 800.0
data$R3383500[900.0 <= data$R3383500 & data$R3383500 <= 999.0] <- 900.0
data$R3383500[1000.0 <= data$R3383500 & data$R3383500 <= 9999999.0] <- 1000.0
data$R3383500 <- factor(data$R3383500,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3396100[1.0 <= data$R3396100 & data$R3396100 <= 4.0] <- 1.0
data$R3396100[5.0 <= data$R3396100 & data$R3396100 <= 9.0] <- 5.0
data$R3396100[10.0 <= data$R3396100 & data$R3396100 <= 14.0] <- 10.0
data$R3396100[15.0 <= data$R3396100 & data$R3396100 <= 19.0] <- 15.0
data$R3396100[20.0 <= data$R3396100 & data$R3396100 <= 24.0] <- 20.0
data$R3396100[25.0 <= data$R3396100 & data$R3396100 <= 29.0] <- 25.0
data$R3396100[30.0 <= data$R3396100 & data$R3396100 <= 34.0] <- 30.0
data$R3396100[35.0 <= data$R3396100 & data$R3396100 <= 39.0] <- 35.0
data$R3396100[40.0 <= data$R3396100 & data$R3396100 <= 44.0] <- 40.0
data$R3396100[45.0 <= data$R3396100 & data$R3396100 <= 49.0] <- 45.0
data$R3396100[50.0 <= data$R3396100 & data$R3396100 <= 9999999.0] <- 50.0
data$R3396100 <- factor(data$R3396100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3396200[1.0 <= data$R3396200 & data$R3396200 <= 4.0] <- 1.0
data$R3396200[5.0 <= data$R3396200 & data$R3396200 <= 9.0] <- 5.0
data$R3396200[10.0 <= data$R3396200 & data$R3396200 <= 14.0] <- 10.0
data$R3396200[15.0 <= data$R3396200 & data$R3396200 <= 19.0] <- 15.0
data$R3396200[20.0 <= data$R3396200 & data$R3396200 <= 24.0] <- 20.0
data$R3396200[25.0 <= data$R3396200 & data$R3396200 <= 29.0] <- 25.0
data$R3396200[30.0 <= data$R3396200 & data$R3396200 <= 34.0] <- 30.0
data$R3396200[35.0 <= data$R3396200 & data$R3396200 <= 39.0] <- 35.0
data$R3396200[40.0 <= data$R3396200 & data$R3396200 <= 44.0] <- 40.0
data$R3396200[45.0 <= data$R3396200 & data$R3396200 <= 49.0] <- 45.0
data$R3396200[50.0 <= data$R3396200 & data$R3396200 <= 9999999.0] <- 50.0
data$R3396200 <- factor(data$R3396200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3396300 <- factor(data$R3396300,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R3396400[1.0 <= data$R3396400 & data$R3396400 <= 4.0] <- 1.0
data$R3396400[5.0 <= data$R3396400 & data$R3396400 <= 9.0] <- 5.0
data$R3396400[10.0 <= data$R3396400 & data$R3396400 <= 14.0] <- 10.0
data$R3396400[15.0 <= data$R3396400 & data$R3396400 <= 19.0] <- 15.0
data$R3396400[20.0 <= data$R3396400 & data$R3396400 <= 24.0] <- 20.0
data$R3396400[25.0 <= data$R3396400 & data$R3396400 <= 29.0] <- 25.0
data$R3396400[30.0 <= data$R3396400 & data$R3396400 <= 34.0] <- 30.0
data$R3396400[35.0 <= data$R3396400 & data$R3396400 <= 39.0] <- 35.0
data$R3396400[40.0 <= data$R3396400 & data$R3396400 <= 44.0] <- 40.0
data$R3396400[45.0 <= data$R3396400 & data$R3396400 <= 49.0] <- 45.0
data$R3396400[50.0 <= data$R3396400 & data$R3396400 <= 9999999.0] <- 50.0
data$R3396400 <- factor(data$R3396400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3397500[1.0 <= data$R3397500 & data$R3397500 <= 99.0] <- 1.0
data$R3397500[100.0 <= data$R3397500 & data$R3397500 <= 199.0] <- 100.0
data$R3397500[200.0 <= data$R3397500 & data$R3397500 <= 299.0] <- 200.0
data$R3397500[300.0 <= data$R3397500 & data$R3397500 <= 399.0] <- 300.0
data$R3397500[400.0 <= data$R3397500 & data$R3397500 <= 499.0] <- 400.0
data$R3397500[500.0 <= data$R3397500 & data$R3397500 <= 599.0] <- 500.0
data$R3397500[600.0 <= data$R3397500 & data$R3397500 <= 699.0] <- 600.0
data$R3397500[700.0 <= data$R3397500 & data$R3397500 <= 799.0] <- 700.0
data$R3397500[800.0 <= data$R3397500 & data$R3397500 <= 899.0] <- 800.0
data$R3397500[900.0 <= data$R3397500 & data$R3397500 <= 999.0] <- 900.0
data$R3397500[1000.0 <= data$R3397500 & data$R3397500 <= 9999999.0] <- 1000.0
data$R3397500 <- factor(data$R3397500,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3401500 <- factor(data$R3401500,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R3401501 <- factor(data$R3401501,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R3510200 <- factor(data$R3510200,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R3523500[1.0 <= data$R3523500 & data$R3523500 <= 99.0] <- 1.0
data$R3523500[100.0 <= data$R3523500 & data$R3523500 <= 199.0] <- 100.0
data$R3523500[200.0 <= data$R3523500 & data$R3523500 <= 299.0] <- 200.0
data$R3523500[300.0 <= data$R3523500 & data$R3523500 <= 399.0] <- 300.0
data$R3523500[400.0 <= data$R3523500 & data$R3523500 <= 499.0] <- 400.0
data$R3523500[500.0 <= data$R3523500 & data$R3523500 <= 599.0] <- 500.0
data$R3523500[600.0 <= data$R3523500 & data$R3523500 <= 699.0] <- 600.0
data$R3523500[700.0 <= data$R3523500 & data$R3523500 <= 799.0] <- 700.0
data$R3523500[800.0 <= data$R3523500 & data$R3523500 <= 899.0] <- 800.0
data$R3523500[900.0 <= data$R3523500 & data$R3523500 <= 999.0] <- 900.0
data$R3523500[1000.0 <= data$R3523500 & data$R3523500 <= 9999999.0] <- 1000.0
data$R3523500 <- factor(data$R3523500,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3604400[1.0 <= data$R3604400 & data$R3604400 <= 4.0] <- 1.0
data$R3604400[5.0 <= data$R3604400 & data$R3604400 <= 9.0] <- 5.0
data$R3604400[10.0 <= data$R3604400 & data$R3604400 <= 14.0] <- 10.0
data$R3604400[15.0 <= data$R3604400 & data$R3604400 <= 19.0] <- 15.0
data$R3604400[20.0 <= data$R3604400 & data$R3604400 <= 24.0] <- 20.0
data$R3604400[25.0 <= data$R3604400 & data$R3604400 <= 29.0] <- 25.0
data$R3604400[30.0 <= data$R3604400 & data$R3604400 <= 34.0] <- 30.0
data$R3604400[35.0 <= data$R3604400 & data$R3604400 <= 39.0] <- 35.0
data$R3604400[40.0 <= data$R3604400 & data$R3604400 <= 44.0] <- 40.0
data$R3604400[45.0 <= data$R3604400 & data$R3604400 <= 49.0] <- 45.0
data$R3604400[50.0 <= data$R3604400 & data$R3604400 <= 9999999.0] <- 50.0
data$R3604400 <- factor(data$R3604400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3604500[1.0 <= data$R3604500 & data$R3604500 <= 4.0] <- 1.0
data$R3604500[5.0 <= data$R3604500 & data$R3604500 <= 9.0] <- 5.0
data$R3604500[10.0 <= data$R3604500 & data$R3604500 <= 14.0] <- 10.0
data$R3604500[15.0 <= data$R3604500 & data$R3604500 <= 19.0] <- 15.0
data$R3604500[20.0 <= data$R3604500 & data$R3604500 <= 24.0] <- 20.0
data$R3604500[25.0 <= data$R3604500 & data$R3604500 <= 29.0] <- 25.0
data$R3604500[30.0 <= data$R3604500 & data$R3604500 <= 34.0] <- 30.0
data$R3604500[35.0 <= data$R3604500 & data$R3604500 <= 39.0] <- 35.0
data$R3604500[40.0 <= data$R3604500 & data$R3604500 <= 44.0] <- 40.0
data$R3604500[45.0 <= data$R3604500 & data$R3604500 <= 49.0] <- 45.0
data$R3604500[50.0 <= data$R3604500 & data$R3604500 <= 9999999.0] <- 50.0
data$R3604500 <- factor(data$R3604500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3604600 <- factor(data$R3604600,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R3604700[1.0 <= data$R3604700 & data$R3604700 <= 4.0] <- 1.0
data$R3604700[5.0 <= data$R3604700 & data$R3604700 <= 9.0] <- 5.0
data$R3604700[10.0 <= data$R3604700 & data$R3604700 <= 14.0] <- 10.0
data$R3604700[15.0 <= data$R3604700 & data$R3604700 <= 19.0] <- 15.0
data$R3604700[20.0 <= data$R3604700 & data$R3604700 <= 24.0] <- 20.0
data$R3604700[25.0 <= data$R3604700 & data$R3604700 <= 29.0] <- 25.0
data$R3604700[30.0 <= data$R3604700 & data$R3604700 <= 34.0] <- 30.0
data$R3604700[35.0 <= data$R3604700 & data$R3604700 <= 39.0] <- 35.0
data$R3604700[40.0 <= data$R3604700 & data$R3604700 <= 44.0] <- 40.0
data$R3604700[45.0 <= data$R3604700 & data$R3604700 <= 49.0] <- 45.0
data$R3604700[50.0 <= data$R3604700 & data$R3604700 <= 9999999.0] <- 50.0
data$R3604700 <- factor(data$R3604700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3605800[1.0 <= data$R3605800 & data$R3605800 <= 99.0] <- 1.0
data$R3605800[100.0 <= data$R3605800 & data$R3605800 <= 199.0] <- 100.0
data$R3605800[200.0 <= data$R3605800 & data$R3605800 <= 299.0] <- 200.0
data$R3605800[300.0 <= data$R3605800 & data$R3605800 <= 399.0] <- 300.0
data$R3605800[400.0 <= data$R3605800 & data$R3605800 <= 499.0] <- 400.0
data$R3605800[500.0 <= data$R3605800 & data$R3605800 <= 599.0] <- 500.0
data$R3605800[600.0 <= data$R3605800 & data$R3605800 <= 699.0] <- 600.0
data$R3605800[700.0 <= data$R3605800 & data$R3605800 <= 799.0] <- 700.0
data$R3605800[800.0 <= data$R3605800 & data$R3605800 <= 899.0] <- 800.0
data$R3605800[900.0 <= data$R3605800 & data$R3605800 <= 999.0] <- 900.0
data$R3605800[1000.0 <= data$R3605800 & data$R3605800 <= 9999999.0] <- 1000.0
data$R3605800 <- factor(data$R3605800,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3616500[1.0 <= data$R3616500 & data$R3616500 <= 4.0] <- 1.0
data$R3616500[5.0 <= data$R3616500 & data$R3616500 <= 9.0] <- 5.0
data$R3616500[10.0 <= data$R3616500 & data$R3616500 <= 14.0] <- 10.0
data$R3616500[15.0 <= data$R3616500 & data$R3616500 <= 19.0] <- 15.0
data$R3616500[20.0 <= data$R3616500 & data$R3616500 <= 24.0] <- 20.0
data$R3616500[25.0 <= data$R3616500 & data$R3616500 <= 29.0] <- 25.0
data$R3616500[30.0 <= data$R3616500 & data$R3616500 <= 34.0] <- 30.0
data$R3616500[35.0 <= data$R3616500 & data$R3616500 <= 39.0] <- 35.0
data$R3616500[40.0 <= data$R3616500 & data$R3616500 <= 44.0] <- 40.0
data$R3616500[45.0 <= data$R3616500 & data$R3616500 <= 49.0] <- 45.0
data$R3616500[50.0 <= data$R3616500 & data$R3616500 <= 9999999.0] <- 50.0
data$R3616500 <- factor(data$R3616500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3616600[1.0 <= data$R3616600 & data$R3616600 <= 4.0] <- 1.0
data$R3616600[5.0 <= data$R3616600 & data$R3616600 <= 9.0] <- 5.0
data$R3616600[10.0 <= data$R3616600 & data$R3616600 <= 14.0] <- 10.0
data$R3616600[15.0 <= data$R3616600 & data$R3616600 <= 19.0] <- 15.0
data$R3616600[20.0 <= data$R3616600 & data$R3616600 <= 24.0] <- 20.0
data$R3616600[25.0 <= data$R3616600 & data$R3616600 <= 29.0] <- 25.0
data$R3616600[30.0 <= data$R3616600 & data$R3616600 <= 34.0] <- 30.0
data$R3616600[35.0 <= data$R3616600 & data$R3616600 <= 39.0] <- 35.0
data$R3616600[40.0 <= data$R3616600 & data$R3616600 <= 44.0] <- 40.0
data$R3616600[45.0 <= data$R3616600 & data$R3616600 <= 49.0] <- 45.0
data$R3616600[50.0 <= data$R3616600 & data$R3616600 <= 9999999.0] <- 50.0
data$R3616600 <- factor(data$R3616600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3616700 <- factor(data$R3616700,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R3616800[1.0 <= data$R3616800 & data$R3616800 <= 4.0] <- 1.0
data$R3616800[5.0 <= data$R3616800 & data$R3616800 <= 9.0] <- 5.0
data$R3616800[10.0 <= data$R3616800 & data$R3616800 <= 14.0] <- 10.0
data$R3616800[15.0 <= data$R3616800 & data$R3616800 <= 19.0] <- 15.0
data$R3616800[20.0 <= data$R3616800 & data$R3616800 <= 24.0] <- 20.0
data$R3616800[25.0 <= data$R3616800 & data$R3616800 <= 29.0] <- 25.0
data$R3616800[30.0 <= data$R3616800 & data$R3616800 <= 34.0] <- 30.0
data$R3616800[35.0 <= data$R3616800 & data$R3616800 <= 39.0] <- 35.0
data$R3616800[40.0 <= data$R3616800 & data$R3616800 <= 44.0] <- 40.0
data$R3616800[45.0 <= data$R3616800 & data$R3616800 <= 49.0] <- 45.0
data$R3616800[50.0 <= data$R3616800 & data$R3616800 <= 9999999.0] <- 50.0
data$R3616800 <- factor(data$R3616800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3617900[1.0 <= data$R3617900 & data$R3617900 <= 99.0] <- 1.0
data$R3617900[100.0 <= data$R3617900 & data$R3617900 <= 199.0] <- 100.0
data$R3617900[200.0 <= data$R3617900 & data$R3617900 <= 299.0] <- 200.0
data$R3617900[300.0 <= data$R3617900 & data$R3617900 <= 399.0] <- 300.0
data$R3617900[400.0 <= data$R3617900 & data$R3617900 <= 499.0] <- 400.0
data$R3617900[500.0 <= data$R3617900 & data$R3617900 <= 599.0] <- 500.0
data$R3617900[600.0 <= data$R3617900 & data$R3617900 <= 699.0] <- 600.0
data$R3617900[700.0 <= data$R3617900 & data$R3617900 <= 799.0] <- 700.0
data$R3617900[800.0 <= data$R3617900 & data$R3617900 <= 899.0] <- 800.0
data$R3617900[900.0 <= data$R3617900 & data$R3617900 <= 999.0] <- 900.0
data$R3617900[1000.0 <= data$R3617900 & data$R3617900 <= 9999999.0] <- 1000.0
data$R3617900 <- factor(data$R3617900,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3628600[1.0 <= data$R3628600 & data$R3628600 <= 4.0] <- 1.0
data$R3628600[5.0 <= data$R3628600 & data$R3628600 <= 9.0] <- 5.0
data$R3628600[10.0 <= data$R3628600 & data$R3628600 <= 14.0] <- 10.0
data$R3628600[15.0 <= data$R3628600 & data$R3628600 <= 19.0] <- 15.0
data$R3628600[20.0 <= data$R3628600 & data$R3628600 <= 24.0] <- 20.0
data$R3628600[25.0 <= data$R3628600 & data$R3628600 <= 29.0] <- 25.0
data$R3628600[30.0 <= data$R3628600 & data$R3628600 <= 34.0] <- 30.0
data$R3628600[35.0 <= data$R3628600 & data$R3628600 <= 39.0] <- 35.0
data$R3628600[40.0 <= data$R3628600 & data$R3628600 <= 44.0] <- 40.0
data$R3628600[45.0 <= data$R3628600 & data$R3628600 <= 49.0] <- 45.0
data$R3628600[50.0 <= data$R3628600 & data$R3628600 <= 9999999.0] <- 50.0
data$R3628600 <- factor(data$R3628600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3628700[1.0 <= data$R3628700 & data$R3628700 <= 4.0] <- 1.0
data$R3628700[5.0 <= data$R3628700 & data$R3628700 <= 9.0] <- 5.0
data$R3628700[10.0 <= data$R3628700 & data$R3628700 <= 14.0] <- 10.0
data$R3628700[15.0 <= data$R3628700 & data$R3628700 <= 19.0] <- 15.0
data$R3628700[20.0 <= data$R3628700 & data$R3628700 <= 24.0] <- 20.0
data$R3628700[25.0 <= data$R3628700 & data$R3628700 <= 29.0] <- 25.0
data$R3628700[30.0 <= data$R3628700 & data$R3628700 <= 34.0] <- 30.0
data$R3628700[35.0 <= data$R3628700 & data$R3628700 <= 39.0] <- 35.0
data$R3628700[40.0 <= data$R3628700 & data$R3628700 <= 44.0] <- 40.0
data$R3628700[45.0 <= data$R3628700 & data$R3628700 <= 49.0] <- 45.0
data$R3628700[50.0 <= data$R3628700 & data$R3628700 <= 9999999.0] <- 50.0
data$R3628700 <- factor(data$R3628700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3628800 <- factor(data$R3628800,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R3628900[1.0 <= data$R3628900 & data$R3628900 <= 4.0] <- 1.0
data$R3628900[5.0 <= data$R3628900 & data$R3628900 <= 9.0] <- 5.0
data$R3628900[10.0 <= data$R3628900 & data$R3628900 <= 14.0] <- 10.0
data$R3628900[15.0 <= data$R3628900 & data$R3628900 <= 19.0] <- 15.0
data$R3628900[20.0 <= data$R3628900 & data$R3628900 <= 24.0] <- 20.0
data$R3628900[25.0 <= data$R3628900 & data$R3628900 <= 29.0] <- 25.0
data$R3628900[30.0 <= data$R3628900 & data$R3628900 <= 34.0] <- 30.0
data$R3628900[35.0 <= data$R3628900 & data$R3628900 <= 39.0] <- 35.0
data$R3628900[40.0 <= data$R3628900 & data$R3628900 <= 44.0] <- 40.0
data$R3628900[45.0 <= data$R3628900 & data$R3628900 <= 49.0] <- 45.0
data$R3628900[50.0 <= data$R3628900 & data$R3628900 <= 9999999.0] <- 50.0
data$R3628900 <- factor(data$R3628900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3630000[1.0 <= data$R3630000 & data$R3630000 <= 99.0] <- 1.0
data$R3630000[100.0 <= data$R3630000 & data$R3630000 <= 199.0] <- 100.0
data$R3630000[200.0 <= data$R3630000 & data$R3630000 <= 299.0] <- 200.0
data$R3630000[300.0 <= data$R3630000 & data$R3630000 <= 399.0] <- 300.0
data$R3630000[400.0 <= data$R3630000 & data$R3630000 <= 499.0] <- 400.0
data$R3630000[500.0 <= data$R3630000 & data$R3630000 <= 599.0] <- 500.0
data$R3630000[600.0 <= data$R3630000 & data$R3630000 <= 699.0] <- 600.0
data$R3630000[700.0 <= data$R3630000 & data$R3630000 <= 799.0] <- 700.0
data$R3630000[800.0 <= data$R3630000 & data$R3630000 <= 899.0] <- 800.0
data$R3630000[900.0 <= data$R3630000 & data$R3630000 <= 999.0] <- 900.0
data$R3630000[1000.0 <= data$R3630000 & data$R3630000 <= 9999999.0] <- 1000.0
data$R3630000 <- factor(data$R3630000,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3640700[1.0 <= data$R3640700 & data$R3640700 <= 4.0] <- 1.0
data$R3640700[5.0 <= data$R3640700 & data$R3640700 <= 9.0] <- 5.0
data$R3640700[10.0 <= data$R3640700 & data$R3640700 <= 14.0] <- 10.0
data$R3640700[15.0 <= data$R3640700 & data$R3640700 <= 19.0] <- 15.0
data$R3640700[20.0 <= data$R3640700 & data$R3640700 <= 24.0] <- 20.0
data$R3640700[25.0 <= data$R3640700 & data$R3640700 <= 29.0] <- 25.0
data$R3640700[30.0 <= data$R3640700 & data$R3640700 <= 34.0] <- 30.0
data$R3640700[35.0 <= data$R3640700 & data$R3640700 <= 39.0] <- 35.0
data$R3640700[40.0 <= data$R3640700 & data$R3640700 <= 44.0] <- 40.0
data$R3640700[45.0 <= data$R3640700 & data$R3640700 <= 49.0] <- 45.0
data$R3640700[50.0 <= data$R3640700 & data$R3640700 <= 9999999.0] <- 50.0
data$R3640700 <- factor(data$R3640700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3640800[1.0 <= data$R3640800 & data$R3640800 <= 4.0] <- 1.0
data$R3640800[5.0 <= data$R3640800 & data$R3640800 <= 9.0] <- 5.0
data$R3640800[10.0 <= data$R3640800 & data$R3640800 <= 14.0] <- 10.0
data$R3640800[15.0 <= data$R3640800 & data$R3640800 <= 19.0] <- 15.0
data$R3640800[20.0 <= data$R3640800 & data$R3640800 <= 24.0] <- 20.0
data$R3640800[25.0 <= data$R3640800 & data$R3640800 <= 29.0] <- 25.0
data$R3640800[30.0 <= data$R3640800 & data$R3640800 <= 34.0] <- 30.0
data$R3640800[35.0 <= data$R3640800 & data$R3640800 <= 39.0] <- 35.0
data$R3640800[40.0 <= data$R3640800 & data$R3640800 <= 44.0] <- 40.0
data$R3640800[45.0 <= data$R3640800 & data$R3640800 <= 49.0] <- 45.0
data$R3640800[50.0 <= data$R3640800 & data$R3640800 <= 9999999.0] <- 50.0
data$R3640800 <- factor(data$R3640800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3640900 <- factor(data$R3640900,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R3641000[1.0 <= data$R3641000 & data$R3641000 <= 4.0] <- 1.0
data$R3641000[5.0 <= data$R3641000 & data$R3641000 <= 9.0] <- 5.0
data$R3641000[10.0 <= data$R3641000 & data$R3641000 <= 14.0] <- 10.0
data$R3641000[15.0 <= data$R3641000 & data$R3641000 <= 19.0] <- 15.0
data$R3641000[20.0 <= data$R3641000 & data$R3641000 <= 24.0] <- 20.0
data$R3641000[25.0 <= data$R3641000 & data$R3641000 <= 29.0] <- 25.0
data$R3641000[30.0 <= data$R3641000 & data$R3641000 <= 34.0] <- 30.0
data$R3641000[35.0 <= data$R3641000 & data$R3641000 <= 39.0] <- 35.0
data$R3641000[40.0 <= data$R3641000 & data$R3641000 <= 44.0] <- 40.0
data$R3641000[45.0 <= data$R3641000 & data$R3641000 <= 49.0] <- 45.0
data$R3641000[50.0 <= data$R3641000 & data$R3641000 <= 9999999.0] <- 50.0
data$R3641000 <- factor(data$R3641000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3642100[1.0 <= data$R3642100 & data$R3642100 <= 99.0] <- 1.0
data$R3642100[100.0 <= data$R3642100 & data$R3642100 <= 199.0] <- 100.0
data$R3642100[200.0 <= data$R3642100 & data$R3642100 <= 299.0] <- 200.0
data$R3642100[300.0 <= data$R3642100 & data$R3642100 <= 399.0] <- 300.0
data$R3642100[400.0 <= data$R3642100 & data$R3642100 <= 499.0] <- 400.0
data$R3642100[500.0 <= data$R3642100 & data$R3642100 <= 599.0] <- 500.0
data$R3642100[600.0 <= data$R3642100 & data$R3642100 <= 699.0] <- 600.0
data$R3642100[700.0 <= data$R3642100 & data$R3642100 <= 799.0] <- 700.0
data$R3642100[800.0 <= data$R3642100 & data$R3642100 <= 899.0] <- 800.0
data$R3642100[900.0 <= data$R3642100 & data$R3642100 <= 999.0] <- 900.0
data$R3642100[1000.0 <= data$R3642100 & data$R3642100 <= 9999999.0] <- 1000.0
data$R3642100 <- factor(data$R3642100,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3652800[1.0 <= data$R3652800 & data$R3652800 <= 4.0] <- 1.0
data$R3652800[5.0 <= data$R3652800 & data$R3652800 <= 9.0] <- 5.0
data$R3652800[10.0 <= data$R3652800 & data$R3652800 <= 14.0] <- 10.0
data$R3652800[15.0 <= data$R3652800 & data$R3652800 <= 19.0] <- 15.0
data$R3652800[20.0 <= data$R3652800 & data$R3652800 <= 24.0] <- 20.0
data$R3652800[25.0 <= data$R3652800 & data$R3652800 <= 29.0] <- 25.0
data$R3652800[30.0 <= data$R3652800 & data$R3652800 <= 34.0] <- 30.0
data$R3652800[35.0 <= data$R3652800 & data$R3652800 <= 39.0] <- 35.0
data$R3652800[40.0 <= data$R3652800 & data$R3652800 <= 44.0] <- 40.0
data$R3652800[45.0 <= data$R3652800 & data$R3652800 <= 49.0] <- 45.0
data$R3652800[50.0 <= data$R3652800 & data$R3652800 <= 9999999.0] <- 50.0
data$R3652800 <- factor(data$R3652800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3652900[1.0 <= data$R3652900 & data$R3652900 <= 4.0] <- 1.0
data$R3652900[5.0 <= data$R3652900 & data$R3652900 <= 9.0] <- 5.0
data$R3652900[10.0 <= data$R3652900 & data$R3652900 <= 14.0] <- 10.0
data$R3652900[15.0 <= data$R3652900 & data$R3652900 <= 19.0] <- 15.0
data$R3652900[20.0 <= data$R3652900 & data$R3652900 <= 24.0] <- 20.0
data$R3652900[25.0 <= data$R3652900 & data$R3652900 <= 29.0] <- 25.0
data$R3652900[30.0 <= data$R3652900 & data$R3652900 <= 34.0] <- 30.0
data$R3652900[35.0 <= data$R3652900 & data$R3652900 <= 39.0] <- 35.0
data$R3652900[40.0 <= data$R3652900 & data$R3652900 <= 44.0] <- 40.0
data$R3652900[45.0 <= data$R3652900 & data$R3652900 <= 49.0] <- 45.0
data$R3652900[50.0 <= data$R3652900 & data$R3652900 <= 9999999.0] <- 50.0
data$R3652900 <- factor(data$R3652900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3653000 <- factor(data$R3653000,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R3653100[1.0 <= data$R3653100 & data$R3653100 <= 4.0] <- 1.0
data$R3653100[5.0 <= data$R3653100 & data$R3653100 <= 9.0] <- 5.0
data$R3653100[10.0 <= data$R3653100 & data$R3653100 <= 14.0] <- 10.0
data$R3653100[15.0 <= data$R3653100 & data$R3653100 <= 19.0] <- 15.0
data$R3653100[20.0 <= data$R3653100 & data$R3653100 <= 24.0] <- 20.0
data$R3653100[25.0 <= data$R3653100 & data$R3653100 <= 29.0] <- 25.0
data$R3653100[30.0 <= data$R3653100 & data$R3653100 <= 34.0] <- 30.0
data$R3653100[35.0 <= data$R3653100 & data$R3653100 <= 39.0] <- 35.0
data$R3653100[40.0 <= data$R3653100 & data$R3653100 <= 44.0] <- 40.0
data$R3653100[45.0 <= data$R3653100 & data$R3653100 <= 49.0] <- 45.0
data$R3653100[50.0 <= data$R3653100 & data$R3653100 <= 9999999.0] <- 50.0
data$R3653100 <- factor(data$R3653100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3654200[1.0 <= data$R3654200 & data$R3654200 <= 99.0] <- 1.0
data$R3654200[100.0 <= data$R3654200 & data$R3654200 <= 199.0] <- 100.0
data$R3654200[200.0 <= data$R3654200 & data$R3654200 <= 299.0] <- 200.0
data$R3654200[300.0 <= data$R3654200 & data$R3654200 <= 399.0] <- 300.0
data$R3654200[400.0 <= data$R3654200 & data$R3654200 <= 499.0] <- 400.0
data$R3654200[500.0 <= data$R3654200 & data$R3654200 <= 599.0] <- 500.0
data$R3654200[600.0 <= data$R3654200 & data$R3654200 <= 699.0] <- 600.0
data$R3654200[700.0 <= data$R3654200 & data$R3654200 <= 799.0] <- 700.0
data$R3654200[800.0 <= data$R3654200 & data$R3654200 <= 899.0] <- 800.0
data$R3654200[900.0 <= data$R3654200 & data$R3654200 <= 999.0] <- 900.0
data$R3654200[1000.0 <= data$R3654200 & data$R3654200 <= 9999999.0] <- 1000.0
data$R3654200 <- factor(data$R3654200,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3656900 <- factor(data$R3656900,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R3656901 <- factor(data$R3656901,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R3710200 <- factor(data$R3710200,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R3728500[1.0 <= data$R3728500 & data$R3728500 <= 99.0] <- 1.0
data$R3728500[100.0 <= data$R3728500 & data$R3728500 <= 199.0] <- 100.0
data$R3728500[200.0 <= data$R3728500 & data$R3728500 <= 299.0] <- 200.0
data$R3728500[300.0 <= data$R3728500 & data$R3728500 <= 399.0] <- 300.0
data$R3728500[400.0 <= data$R3728500 & data$R3728500 <= 499.0] <- 400.0
data$R3728500[500.0 <= data$R3728500 & data$R3728500 <= 599.0] <- 500.0
data$R3728500[600.0 <= data$R3728500 & data$R3728500 <= 699.0] <- 600.0
data$R3728500[700.0 <= data$R3728500 & data$R3728500 <= 799.0] <- 700.0
data$R3728500[800.0 <= data$R3728500 & data$R3728500 <= 899.0] <- 800.0
data$R3728500[900.0 <= data$R3728500 & data$R3728500 <= 999.0] <- 900.0
data$R3728500[1000.0 <= data$R3728500 & data$R3728500 <= 9999999.0] <- 1000.0
data$R3728500 <- factor(data$R3728500,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3954600[1.0 <= data$R3954600 & data$R3954600 <= 4.0] <- 1.0
data$R3954600[5.0 <= data$R3954600 & data$R3954600 <= 9.0] <- 5.0
data$R3954600[10.0 <= data$R3954600 & data$R3954600 <= 14.0] <- 10.0
data$R3954600[15.0 <= data$R3954600 & data$R3954600 <= 19.0] <- 15.0
data$R3954600[20.0 <= data$R3954600 & data$R3954600 <= 24.0] <- 20.0
data$R3954600[25.0 <= data$R3954600 & data$R3954600 <= 29.0] <- 25.0
data$R3954600[30.0 <= data$R3954600 & data$R3954600 <= 34.0] <- 30.0
data$R3954600[35.0 <= data$R3954600 & data$R3954600 <= 39.0] <- 35.0
data$R3954600[40.0 <= data$R3954600 & data$R3954600 <= 44.0] <- 40.0
data$R3954600[45.0 <= data$R3954600 & data$R3954600 <= 49.0] <- 45.0
data$R3954600[50.0 <= data$R3954600 & data$R3954600 <= 9999999.0] <- 50.0
data$R3954600 <- factor(data$R3954600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3954700[1.0 <= data$R3954700 & data$R3954700 <= 4.0] <- 1.0
data$R3954700[5.0 <= data$R3954700 & data$R3954700 <= 9.0] <- 5.0
data$R3954700[10.0 <= data$R3954700 & data$R3954700 <= 14.0] <- 10.0
data$R3954700[15.0 <= data$R3954700 & data$R3954700 <= 19.0] <- 15.0
data$R3954700[20.0 <= data$R3954700 & data$R3954700 <= 24.0] <- 20.0
data$R3954700[25.0 <= data$R3954700 & data$R3954700 <= 29.0] <- 25.0
data$R3954700[30.0 <= data$R3954700 & data$R3954700 <= 34.0] <- 30.0
data$R3954700[35.0 <= data$R3954700 & data$R3954700 <= 39.0] <- 35.0
data$R3954700[40.0 <= data$R3954700 & data$R3954700 <= 44.0] <- 40.0
data$R3954700[45.0 <= data$R3954700 & data$R3954700 <= 49.0] <- 45.0
data$R3954700[50.0 <= data$R3954700 & data$R3954700 <= 9999999.0] <- 50.0
data$R3954700 <- factor(data$R3954700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3954800 <- factor(data$R3954800,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R3954900[1.0 <= data$R3954900 & data$R3954900 <= 4.0] <- 1.0
data$R3954900[5.0 <= data$R3954900 & data$R3954900 <= 9.0] <- 5.0
data$R3954900[10.0 <= data$R3954900 & data$R3954900 <= 14.0] <- 10.0
data$R3954900[15.0 <= data$R3954900 & data$R3954900 <= 19.0] <- 15.0
data$R3954900[20.0 <= data$R3954900 & data$R3954900 <= 24.0] <- 20.0
data$R3954900[25.0 <= data$R3954900 & data$R3954900 <= 29.0] <- 25.0
data$R3954900[30.0 <= data$R3954900 & data$R3954900 <= 34.0] <- 30.0
data$R3954900[35.0 <= data$R3954900 & data$R3954900 <= 39.0] <- 35.0
data$R3954900[40.0 <= data$R3954900 & data$R3954900 <= 44.0] <- 40.0
data$R3954900[45.0 <= data$R3954900 & data$R3954900 <= 49.0] <- 45.0
data$R3954900[50.0 <= data$R3954900 & data$R3954900 <= 9999999.0] <- 50.0
data$R3954900 <- factor(data$R3954900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3956000[1.0 <= data$R3956000 & data$R3956000 <= 99.0] <- 1.0
data$R3956000[100.0 <= data$R3956000 & data$R3956000 <= 199.0] <- 100.0
data$R3956000[200.0 <= data$R3956000 & data$R3956000 <= 299.0] <- 200.0
data$R3956000[300.0 <= data$R3956000 & data$R3956000 <= 399.0] <- 300.0
data$R3956000[400.0 <= data$R3956000 & data$R3956000 <= 499.0] <- 400.0
data$R3956000[500.0 <= data$R3956000 & data$R3956000 <= 599.0] <- 500.0
data$R3956000[600.0 <= data$R3956000 & data$R3956000 <= 699.0] <- 600.0
data$R3956000[700.0 <= data$R3956000 & data$R3956000 <= 799.0] <- 700.0
data$R3956000[800.0 <= data$R3956000 & data$R3956000 <= 899.0] <- 800.0
data$R3956000[900.0 <= data$R3956000 & data$R3956000 <= 999.0] <- 900.0
data$R3956000[1000.0 <= data$R3956000 & data$R3956000 <= 9999999.0] <- 1000.0
data$R3956000 <- factor(data$R3956000,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3966800[1.0 <= data$R3966800 & data$R3966800 <= 4.0] <- 1.0
data$R3966800[5.0 <= data$R3966800 & data$R3966800 <= 9.0] <- 5.0
data$R3966800[10.0 <= data$R3966800 & data$R3966800 <= 14.0] <- 10.0
data$R3966800[15.0 <= data$R3966800 & data$R3966800 <= 19.0] <- 15.0
data$R3966800[20.0 <= data$R3966800 & data$R3966800 <= 24.0] <- 20.0
data$R3966800[25.0 <= data$R3966800 & data$R3966800 <= 29.0] <- 25.0
data$R3966800[30.0 <= data$R3966800 & data$R3966800 <= 34.0] <- 30.0
data$R3966800[35.0 <= data$R3966800 & data$R3966800 <= 39.0] <- 35.0
data$R3966800[40.0 <= data$R3966800 & data$R3966800 <= 44.0] <- 40.0
data$R3966800[45.0 <= data$R3966800 & data$R3966800 <= 49.0] <- 45.0
data$R3966800[50.0 <= data$R3966800 & data$R3966800 <= 9999999.0] <- 50.0
data$R3966800 <- factor(data$R3966800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3966900[1.0 <= data$R3966900 & data$R3966900 <= 4.0] <- 1.0
data$R3966900[5.0 <= data$R3966900 & data$R3966900 <= 9.0] <- 5.0
data$R3966900[10.0 <= data$R3966900 & data$R3966900 <= 14.0] <- 10.0
data$R3966900[15.0 <= data$R3966900 & data$R3966900 <= 19.0] <- 15.0
data$R3966900[20.0 <= data$R3966900 & data$R3966900 <= 24.0] <- 20.0
data$R3966900[25.0 <= data$R3966900 & data$R3966900 <= 29.0] <- 25.0
data$R3966900[30.0 <= data$R3966900 & data$R3966900 <= 34.0] <- 30.0
data$R3966900[35.0 <= data$R3966900 & data$R3966900 <= 39.0] <- 35.0
data$R3966900[40.0 <= data$R3966900 & data$R3966900 <= 44.0] <- 40.0
data$R3966900[45.0 <= data$R3966900 & data$R3966900 <= 49.0] <- 45.0
data$R3966900[50.0 <= data$R3966900 & data$R3966900 <= 9999999.0] <- 50.0
data$R3966900 <- factor(data$R3966900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3967000 <- factor(data$R3967000,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R3967100[1.0 <= data$R3967100 & data$R3967100 <= 4.0] <- 1.0
data$R3967100[5.0 <= data$R3967100 & data$R3967100 <= 9.0] <- 5.0
data$R3967100[10.0 <= data$R3967100 & data$R3967100 <= 14.0] <- 10.0
data$R3967100[15.0 <= data$R3967100 & data$R3967100 <= 19.0] <- 15.0
data$R3967100[20.0 <= data$R3967100 & data$R3967100 <= 24.0] <- 20.0
data$R3967100[25.0 <= data$R3967100 & data$R3967100 <= 29.0] <- 25.0
data$R3967100[30.0 <= data$R3967100 & data$R3967100 <= 34.0] <- 30.0
data$R3967100[35.0 <= data$R3967100 & data$R3967100 <= 39.0] <- 35.0
data$R3967100[40.0 <= data$R3967100 & data$R3967100 <= 44.0] <- 40.0
data$R3967100[45.0 <= data$R3967100 & data$R3967100 <= 49.0] <- 45.0
data$R3967100[50.0 <= data$R3967100 & data$R3967100 <= 9999999.0] <- 50.0
data$R3967100 <- factor(data$R3967100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3968200[1.0 <= data$R3968200 & data$R3968200 <= 99.0] <- 1.0
data$R3968200[100.0 <= data$R3968200 & data$R3968200 <= 199.0] <- 100.0
data$R3968200[200.0 <= data$R3968200 & data$R3968200 <= 299.0] <- 200.0
data$R3968200[300.0 <= data$R3968200 & data$R3968200 <= 399.0] <- 300.0
data$R3968200[400.0 <= data$R3968200 & data$R3968200 <= 499.0] <- 400.0
data$R3968200[500.0 <= data$R3968200 & data$R3968200 <= 599.0] <- 500.0
data$R3968200[600.0 <= data$R3968200 & data$R3968200 <= 699.0] <- 600.0
data$R3968200[700.0 <= data$R3968200 & data$R3968200 <= 799.0] <- 700.0
data$R3968200[800.0 <= data$R3968200 & data$R3968200 <= 899.0] <- 800.0
data$R3968200[900.0 <= data$R3968200 & data$R3968200 <= 999.0] <- 900.0
data$R3968200[1000.0 <= data$R3968200 & data$R3968200 <= 9999999.0] <- 1000.0
data$R3968200 <- factor(data$R3968200,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3979000[1.0 <= data$R3979000 & data$R3979000 <= 4.0] <- 1.0
data$R3979000[5.0 <= data$R3979000 & data$R3979000 <= 9.0] <- 5.0
data$R3979000[10.0 <= data$R3979000 & data$R3979000 <= 14.0] <- 10.0
data$R3979000[15.0 <= data$R3979000 & data$R3979000 <= 19.0] <- 15.0
data$R3979000[20.0 <= data$R3979000 & data$R3979000 <= 24.0] <- 20.0
data$R3979000[25.0 <= data$R3979000 & data$R3979000 <= 29.0] <- 25.0
data$R3979000[30.0 <= data$R3979000 & data$R3979000 <= 34.0] <- 30.0
data$R3979000[35.0 <= data$R3979000 & data$R3979000 <= 39.0] <- 35.0
data$R3979000[40.0 <= data$R3979000 & data$R3979000 <= 44.0] <- 40.0
data$R3979000[45.0 <= data$R3979000 & data$R3979000 <= 49.0] <- 45.0
data$R3979000[50.0 <= data$R3979000 & data$R3979000 <= 9999999.0] <- 50.0
data$R3979000 <- factor(data$R3979000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3979100[1.0 <= data$R3979100 & data$R3979100 <= 4.0] <- 1.0
data$R3979100[5.0 <= data$R3979100 & data$R3979100 <= 9.0] <- 5.0
data$R3979100[10.0 <= data$R3979100 & data$R3979100 <= 14.0] <- 10.0
data$R3979100[15.0 <= data$R3979100 & data$R3979100 <= 19.0] <- 15.0
data$R3979100[20.0 <= data$R3979100 & data$R3979100 <= 24.0] <- 20.0
data$R3979100[25.0 <= data$R3979100 & data$R3979100 <= 29.0] <- 25.0
data$R3979100[30.0 <= data$R3979100 & data$R3979100 <= 34.0] <- 30.0
data$R3979100[35.0 <= data$R3979100 & data$R3979100 <= 39.0] <- 35.0
data$R3979100[40.0 <= data$R3979100 & data$R3979100 <= 44.0] <- 40.0
data$R3979100[45.0 <= data$R3979100 & data$R3979100 <= 49.0] <- 45.0
data$R3979100[50.0 <= data$R3979100 & data$R3979100 <= 9999999.0] <- 50.0
data$R3979100 <- factor(data$R3979100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3979200 <- factor(data$R3979200,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R3979300[1.0 <= data$R3979300 & data$R3979300 <= 4.0] <- 1.0
data$R3979300[5.0 <= data$R3979300 & data$R3979300 <= 9.0] <- 5.0
data$R3979300[10.0 <= data$R3979300 & data$R3979300 <= 14.0] <- 10.0
data$R3979300[15.0 <= data$R3979300 & data$R3979300 <= 19.0] <- 15.0
data$R3979300[20.0 <= data$R3979300 & data$R3979300 <= 24.0] <- 20.0
data$R3979300[25.0 <= data$R3979300 & data$R3979300 <= 29.0] <- 25.0
data$R3979300[30.0 <= data$R3979300 & data$R3979300 <= 34.0] <- 30.0
data$R3979300[35.0 <= data$R3979300 & data$R3979300 <= 39.0] <- 35.0
data$R3979300[40.0 <= data$R3979300 & data$R3979300 <= 44.0] <- 40.0
data$R3979300[45.0 <= data$R3979300 & data$R3979300 <= 49.0] <- 45.0
data$R3979300[50.0 <= data$R3979300 & data$R3979300 <= 9999999.0] <- 50.0
data$R3979300 <- factor(data$R3979300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3980400[1.0 <= data$R3980400 & data$R3980400 <= 99.0] <- 1.0
data$R3980400[100.0 <= data$R3980400 & data$R3980400 <= 199.0] <- 100.0
data$R3980400[200.0 <= data$R3980400 & data$R3980400 <= 299.0] <- 200.0
data$R3980400[300.0 <= data$R3980400 & data$R3980400 <= 399.0] <- 300.0
data$R3980400[400.0 <= data$R3980400 & data$R3980400 <= 499.0] <- 400.0
data$R3980400[500.0 <= data$R3980400 & data$R3980400 <= 599.0] <- 500.0
data$R3980400[600.0 <= data$R3980400 & data$R3980400 <= 699.0] <- 600.0
data$R3980400[700.0 <= data$R3980400 & data$R3980400 <= 799.0] <- 700.0
data$R3980400[800.0 <= data$R3980400 & data$R3980400 <= 899.0] <- 800.0
data$R3980400[900.0 <= data$R3980400 & data$R3980400 <= 999.0] <- 900.0
data$R3980400[1000.0 <= data$R3980400 & data$R3980400 <= 9999999.0] <- 1000.0
data$R3980400 <- factor(data$R3980400,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R3991200[1.0 <= data$R3991200 & data$R3991200 <= 4.0] <- 1.0
data$R3991200[5.0 <= data$R3991200 & data$R3991200 <= 9.0] <- 5.0
data$R3991200[10.0 <= data$R3991200 & data$R3991200 <= 14.0] <- 10.0
data$R3991200[15.0 <= data$R3991200 & data$R3991200 <= 19.0] <- 15.0
data$R3991200[20.0 <= data$R3991200 & data$R3991200 <= 24.0] <- 20.0
data$R3991200[25.0 <= data$R3991200 & data$R3991200 <= 29.0] <- 25.0
data$R3991200[30.0 <= data$R3991200 & data$R3991200 <= 34.0] <- 30.0
data$R3991200[35.0 <= data$R3991200 & data$R3991200 <= 39.0] <- 35.0
data$R3991200[40.0 <= data$R3991200 & data$R3991200 <= 44.0] <- 40.0
data$R3991200[45.0 <= data$R3991200 & data$R3991200 <= 49.0] <- 45.0
data$R3991200[50.0 <= data$R3991200 & data$R3991200 <= 9999999.0] <- 50.0
data$R3991200 <- factor(data$R3991200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3991300[1.0 <= data$R3991300 & data$R3991300 <= 4.0] <- 1.0
data$R3991300[5.0 <= data$R3991300 & data$R3991300 <= 9.0] <- 5.0
data$R3991300[10.0 <= data$R3991300 & data$R3991300 <= 14.0] <- 10.0
data$R3991300[15.0 <= data$R3991300 & data$R3991300 <= 19.0] <- 15.0
data$R3991300[20.0 <= data$R3991300 & data$R3991300 <= 24.0] <- 20.0
data$R3991300[25.0 <= data$R3991300 & data$R3991300 <= 29.0] <- 25.0
data$R3991300[30.0 <= data$R3991300 & data$R3991300 <= 34.0] <- 30.0
data$R3991300[35.0 <= data$R3991300 & data$R3991300 <= 39.0] <- 35.0
data$R3991300[40.0 <= data$R3991300 & data$R3991300 <= 44.0] <- 40.0
data$R3991300[45.0 <= data$R3991300 & data$R3991300 <= 49.0] <- 45.0
data$R3991300[50.0 <= data$R3991300 & data$R3991300 <= 9999999.0] <- 50.0
data$R3991300 <- factor(data$R3991300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3991400 <- factor(data$R3991400,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R3991500[1.0 <= data$R3991500 & data$R3991500 <= 4.0] <- 1.0
data$R3991500[5.0 <= data$R3991500 & data$R3991500 <= 9.0] <- 5.0
data$R3991500[10.0 <= data$R3991500 & data$R3991500 <= 14.0] <- 10.0
data$R3991500[15.0 <= data$R3991500 & data$R3991500 <= 19.0] <- 15.0
data$R3991500[20.0 <= data$R3991500 & data$R3991500 <= 24.0] <- 20.0
data$R3991500[25.0 <= data$R3991500 & data$R3991500 <= 29.0] <- 25.0
data$R3991500[30.0 <= data$R3991500 & data$R3991500 <= 34.0] <- 30.0
data$R3991500[35.0 <= data$R3991500 & data$R3991500 <= 39.0] <- 35.0
data$R3991500[40.0 <= data$R3991500 & data$R3991500 <= 44.0] <- 40.0
data$R3991500[45.0 <= data$R3991500 & data$R3991500 <= 49.0] <- 45.0
data$R3991500[50.0 <= data$R3991500 & data$R3991500 <= 9999999.0] <- 50.0
data$R3991500 <- factor(data$R3991500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R3992600[1.0 <= data$R3992600 & data$R3992600 <= 99.0] <- 1.0
data$R3992600[100.0 <= data$R3992600 & data$R3992600 <= 199.0] <- 100.0
data$R3992600[200.0 <= data$R3992600 & data$R3992600 <= 299.0] <- 200.0
data$R3992600[300.0 <= data$R3992600 & data$R3992600 <= 399.0] <- 300.0
data$R3992600[400.0 <= data$R3992600 & data$R3992600 <= 499.0] <- 400.0
data$R3992600[500.0 <= data$R3992600 & data$R3992600 <= 599.0] <- 500.0
data$R3992600[600.0 <= data$R3992600 & data$R3992600 <= 699.0] <- 600.0
data$R3992600[700.0 <= data$R3992600 & data$R3992600 <= 799.0] <- 700.0
data$R3992600[800.0 <= data$R3992600 & data$R3992600 <= 899.0] <- 800.0
data$R3992600[900.0 <= data$R3992600 & data$R3992600 <= 999.0] <- 900.0
data$R3992600[1000.0 <= data$R3992600 & data$R3992600 <= 9999999.0] <- 1000.0
data$R3992600 <- factor(data$R3992600,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R4003400[1.0 <= data$R4003400 & data$R4003400 <= 4.0] <- 1.0
data$R4003400[5.0 <= data$R4003400 & data$R4003400 <= 9.0] <- 5.0
data$R4003400[10.0 <= data$R4003400 & data$R4003400 <= 14.0] <- 10.0
data$R4003400[15.0 <= data$R4003400 & data$R4003400 <= 19.0] <- 15.0
data$R4003400[20.0 <= data$R4003400 & data$R4003400 <= 24.0] <- 20.0
data$R4003400[25.0 <= data$R4003400 & data$R4003400 <= 29.0] <- 25.0
data$R4003400[30.0 <= data$R4003400 & data$R4003400 <= 34.0] <- 30.0
data$R4003400[35.0 <= data$R4003400 & data$R4003400 <= 39.0] <- 35.0
data$R4003400[40.0 <= data$R4003400 & data$R4003400 <= 44.0] <- 40.0
data$R4003400[45.0 <= data$R4003400 & data$R4003400 <= 49.0] <- 45.0
data$R4003400[50.0 <= data$R4003400 & data$R4003400 <= 9999999.0] <- 50.0
data$R4003400 <- factor(data$R4003400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R4003500[1.0 <= data$R4003500 & data$R4003500 <= 4.0] <- 1.0
data$R4003500[5.0 <= data$R4003500 & data$R4003500 <= 9.0] <- 5.0
data$R4003500[10.0 <= data$R4003500 & data$R4003500 <= 14.0] <- 10.0
data$R4003500[15.0 <= data$R4003500 & data$R4003500 <= 19.0] <- 15.0
data$R4003500[20.0 <= data$R4003500 & data$R4003500 <= 24.0] <- 20.0
data$R4003500[25.0 <= data$R4003500 & data$R4003500 <= 29.0] <- 25.0
data$R4003500[30.0 <= data$R4003500 & data$R4003500 <= 34.0] <- 30.0
data$R4003500[35.0 <= data$R4003500 & data$R4003500 <= 39.0] <- 35.0
data$R4003500[40.0 <= data$R4003500 & data$R4003500 <= 44.0] <- 40.0
data$R4003500[45.0 <= data$R4003500 & data$R4003500 <= 49.0] <- 45.0
data$R4003500[50.0 <= data$R4003500 & data$R4003500 <= 9999999.0] <- 50.0
data$R4003500 <- factor(data$R4003500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R4003600 <- factor(data$R4003600,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R4003700[1.0 <= data$R4003700 & data$R4003700 <= 4.0] <- 1.0
data$R4003700[5.0 <= data$R4003700 & data$R4003700 <= 9.0] <- 5.0
data$R4003700[10.0 <= data$R4003700 & data$R4003700 <= 14.0] <- 10.0
data$R4003700[15.0 <= data$R4003700 & data$R4003700 <= 19.0] <- 15.0
data$R4003700[20.0 <= data$R4003700 & data$R4003700 <= 24.0] <- 20.0
data$R4003700[25.0 <= data$R4003700 & data$R4003700 <= 29.0] <- 25.0
data$R4003700[30.0 <= data$R4003700 & data$R4003700 <= 34.0] <- 30.0
data$R4003700[35.0 <= data$R4003700 & data$R4003700 <= 39.0] <- 35.0
data$R4003700[40.0 <= data$R4003700 & data$R4003700 <= 44.0] <- 40.0
data$R4003700[45.0 <= data$R4003700 & data$R4003700 <= 49.0] <- 45.0
data$R4003700[50.0 <= data$R4003700 & data$R4003700 <= 9999999.0] <- 50.0
data$R4003700 <- factor(data$R4003700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R4004800[1.0 <= data$R4004800 & data$R4004800 <= 99.0] <- 1.0
data$R4004800[100.0 <= data$R4004800 & data$R4004800 <= 199.0] <- 100.0
data$R4004800[200.0 <= data$R4004800 & data$R4004800 <= 299.0] <- 200.0
data$R4004800[300.0 <= data$R4004800 & data$R4004800 <= 399.0] <- 300.0
data$R4004800[400.0 <= data$R4004800 & data$R4004800 <= 499.0] <- 400.0
data$R4004800[500.0 <= data$R4004800 & data$R4004800 <= 599.0] <- 500.0
data$R4004800[600.0 <= data$R4004800 & data$R4004800 <= 699.0] <- 600.0
data$R4004800[700.0 <= data$R4004800 & data$R4004800 <= 799.0] <- 700.0
data$R4004800[800.0 <= data$R4004800 & data$R4004800 <= 899.0] <- 800.0
data$R4004800[900.0 <= data$R4004800 & data$R4004800 <= 999.0] <- 900.0
data$R4004800[1000.0 <= data$R4004800 & data$R4004800 <= 9999999.0] <- 1000.0
data$R4004800 <- factor(data$R4004800,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R4007400 <- factor(data$R4007400,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R4007401 <- factor(data$R4007401,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R4137900 <- factor(data$R4137900,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R4193200[1.0 <= data$R4193200 & data$R4193200 <= 4.0] <- 1.0
data$R4193200[5.0 <= data$R4193200 & data$R4193200 <= 9.0] <- 5.0
data$R4193200[10.0 <= data$R4193200 & data$R4193200 <= 14.0] <- 10.0
data$R4193200[15.0 <= data$R4193200 & data$R4193200 <= 19.0] <- 15.0
data$R4193200[20.0 <= data$R4193200 & data$R4193200 <= 24.0] <- 20.0
data$R4193200[25.0 <= data$R4193200 & data$R4193200 <= 29.0] <- 25.0
data$R4193200[30.0 <= data$R4193200 & data$R4193200 <= 34.0] <- 30.0
data$R4193200[35.0 <= data$R4193200 & data$R4193200 <= 39.0] <- 35.0
data$R4193200[40.0 <= data$R4193200 & data$R4193200 <= 44.0] <- 40.0
data$R4193200[45.0 <= data$R4193200 & data$R4193200 <= 49.0] <- 45.0
data$R4193200[50.0 <= data$R4193200 & data$R4193200 <= 9999999.0] <- 50.0
data$R4193200 <- factor(data$R4193200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R4193300[1.0 <= data$R4193300 & data$R4193300 <= 4.0] <- 1.0
data$R4193300[5.0 <= data$R4193300 & data$R4193300 <= 9.0] <- 5.0
data$R4193300[10.0 <= data$R4193300 & data$R4193300 <= 14.0] <- 10.0
data$R4193300[15.0 <= data$R4193300 & data$R4193300 <= 19.0] <- 15.0
data$R4193300[20.0 <= data$R4193300 & data$R4193300 <= 24.0] <- 20.0
data$R4193300[25.0 <= data$R4193300 & data$R4193300 <= 29.0] <- 25.0
data$R4193300[30.0 <= data$R4193300 & data$R4193300 <= 34.0] <- 30.0
data$R4193300[35.0 <= data$R4193300 & data$R4193300 <= 39.0] <- 35.0
data$R4193300[40.0 <= data$R4193300 & data$R4193300 <= 44.0] <- 40.0
data$R4193300[45.0 <= data$R4193300 & data$R4193300 <= 49.0] <- 45.0
data$R4193300[50.0 <= data$R4193300 & data$R4193300 <= 9999999.0] <- 50.0
data$R4193300 <- factor(data$R4193300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R4193400 <- factor(data$R4193400,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R4205500[1.0 <= data$R4205500 & data$R4205500 <= 4.0] <- 1.0
data$R4205500[5.0 <= data$R4205500 & data$R4205500 <= 9.0] <- 5.0
data$R4205500[10.0 <= data$R4205500 & data$R4205500 <= 14.0] <- 10.0
data$R4205500[15.0 <= data$R4205500 & data$R4205500 <= 19.0] <- 15.0
data$R4205500[20.0 <= data$R4205500 & data$R4205500 <= 24.0] <- 20.0
data$R4205500[25.0 <= data$R4205500 & data$R4205500 <= 29.0] <- 25.0
data$R4205500[30.0 <= data$R4205500 & data$R4205500 <= 34.0] <- 30.0
data$R4205500[35.0 <= data$R4205500 & data$R4205500 <= 39.0] <- 35.0
data$R4205500[40.0 <= data$R4205500 & data$R4205500 <= 44.0] <- 40.0
data$R4205500[45.0 <= data$R4205500 & data$R4205500 <= 49.0] <- 45.0
data$R4205500[50.0 <= data$R4205500 & data$R4205500 <= 9999999.0] <- 50.0
data$R4205500 <- factor(data$R4205500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R4205600[1.0 <= data$R4205600 & data$R4205600 <= 4.0] <- 1.0
data$R4205600[5.0 <= data$R4205600 & data$R4205600 <= 9.0] <- 5.0
data$R4205600[10.0 <= data$R4205600 & data$R4205600 <= 14.0] <- 10.0
data$R4205600[15.0 <= data$R4205600 & data$R4205600 <= 19.0] <- 15.0
data$R4205600[20.0 <= data$R4205600 & data$R4205600 <= 24.0] <- 20.0
data$R4205600[25.0 <= data$R4205600 & data$R4205600 <= 29.0] <- 25.0
data$R4205600[30.0 <= data$R4205600 & data$R4205600 <= 34.0] <- 30.0
data$R4205600[35.0 <= data$R4205600 & data$R4205600 <= 39.0] <- 35.0
data$R4205600[40.0 <= data$R4205600 & data$R4205600 <= 44.0] <- 40.0
data$R4205600[45.0 <= data$R4205600 & data$R4205600 <= 49.0] <- 45.0
data$R4205600[50.0 <= data$R4205600 & data$R4205600 <= 9999999.0] <- 50.0
data$R4205600 <- factor(data$R4205600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R4205700 <- factor(data$R4205700,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R4205800[1.0 <= data$R4205800 & data$R4205800 <= 4.0] <- 1.0
data$R4205800[5.0 <= data$R4205800 & data$R4205800 <= 9.0] <- 5.0
data$R4205800[10.0 <= data$R4205800 & data$R4205800 <= 14.0] <- 10.0
data$R4205800[15.0 <= data$R4205800 & data$R4205800 <= 19.0] <- 15.0
data$R4205800[20.0 <= data$R4205800 & data$R4205800 <= 24.0] <- 20.0
data$R4205800[25.0 <= data$R4205800 & data$R4205800 <= 29.0] <- 25.0
data$R4205800[30.0 <= data$R4205800 & data$R4205800 <= 34.0] <- 30.0
data$R4205800[35.0 <= data$R4205800 & data$R4205800 <= 39.0] <- 35.0
data$R4205800[40.0 <= data$R4205800 & data$R4205800 <= 44.0] <- 40.0
data$R4205800[45.0 <= data$R4205800 & data$R4205800 <= 49.0] <- 45.0
data$R4205800[50.0 <= data$R4205800 & data$R4205800 <= 9999999.0] <- 50.0
data$R4205800 <- factor(data$R4205800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R4212700[1.0 <= data$R4212700 & data$R4212700 <= 4.0] <- 1.0
data$R4212700[5.0 <= data$R4212700 & data$R4212700 <= 9.0] <- 5.0
data$R4212700[10.0 <= data$R4212700 & data$R4212700 <= 14.0] <- 10.0
data$R4212700[15.0 <= data$R4212700 & data$R4212700 <= 19.0] <- 15.0
data$R4212700[20.0 <= data$R4212700 & data$R4212700 <= 24.0] <- 20.0
data$R4212700[25.0 <= data$R4212700 & data$R4212700 <= 29.0] <- 25.0
data$R4212700[30.0 <= data$R4212700 & data$R4212700 <= 34.0] <- 30.0
data$R4212700[35.0 <= data$R4212700 & data$R4212700 <= 39.0] <- 35.0
data$R4212700[40.0 <= data$R4212700 & data$R4212700 <= 44.0] <- 40.0
data$R4212700[45.0 <= data$R4212700 & data$R4212700 <= 49.0] <- 45.0
data$R4212700[50.0 <= data$R4212700 & data$R4212700 <= 9999999.0] <- 50.0
data$R4212700 <- factor(data$R4212700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R4212800[1.0 <= data$R4212800 & data$R4212800 <= 4.0] <- 1.0
data$R4212800[5.0 <= data$R4212800 & data$R4212800 <= 9.0] <- 5.0
data$R4212800[10.0 <= data$R4212800 & data$R4212800 <= 14.0] <- 10.0
data$R4212800[15.0 <= data$R4212800 & data$R4212800 <= 19.0] <- 15.0
data$R4212800[20.0 <= data$R4212800 & data$R4212800 <= 24.0] <- 20.0
data$R4212800[25.0 <= data$R4212800 & data$R4212800 <= 29.0] <- 25.0
data$R4212800[30.0 <= data$R4212800 & data$R4212800 <= 34.0] <- 30.0
data$R4212800[35.0 <= data$R4212800 & data$R4212800 <= 39.0] <- 35.0
data$R4212800[40.0 <= data$R4212800 & data$R4212800 <= 44.0] <- 40.0
data$R4212800[45.0 <= data$R4212800 & data$R4212800 <= 49.0] <- 45.0
data$R4212800[50.0 <= data$R4212800 & data$R4212800 <= 9999999.0] <- 50.0
data$R4212800 <- factor(data$R4212800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R4212900 <- factor(data$R4212900,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R4213000[1.0 <= data$R4213000 & data$R4213000 <= 4.0] <- 1.0
data$R4213000[5.0 <= data$R4213000 & data$R4213000 <= 9.0] <- 5.0
data$R4213000[10.0 <= data$R4213000 & data$R4213000 <= 14.0] <- 10.0
data$R4213000[15.0 <= data$R4213000 & data$R4213000 <= 19.0] <- 15.0
data$R4213000[20.0 <= data$R4213000 & data$R4213000 <= 24.0] <- 20.0
data$R4213000[25.0 <= data$R4213000 & data$R4213000 <= 29.0] <- 25.0
data$R4213000[30.0 <= data$R4213000 & data$R4213000 <= 34.0] <- 30.0
data$R4213000[35.0 <= data$R4213000 & data$R4213000 <= 39.0] <- 35.0
data$R4213000[40.0 <= data$R4213000 & data$R4213000 <= 44.0] <- 40.0
data$R4213000[45.0 <= data$R4213000 & data$R4213000 <= 49.0] <- 45.0
data$R4213000[50.0 <= data$R4213000 & data$R4213000 <= 9999999.0] <- 50.0
data$R4213000 <- factor(data$R4213000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R4220300[1.0 <= data$R4220300 & data$R4220300 <= 4.0] <- 1.0
data$R4220300[5.0 <= data$R4220300 & data$R4220300 <= 9.0] <- 5.0
data$R4220300[10.0 <= data$R4220300 & data$R4220300 <= 14.0] <- 10.0
data$R4220300[15.0 <= data$R4220300 & data$R4220300 <= 19.0] <- 15.0
data$R4220300[20.0 <= data$R4220300 & data$R4220300 <= 24.0] <- 20.0
data$R4220300[25.0 <= data$R4220300 & data$R4220300 <= 29.0] <- 25.0
data$R4220300[30.0 <= data$R4220300 & data$R4220300 <= 34.0] <- 30.0
data$R4220300[35.0 <= data$R4220300 & data$R4220300 <= 39.0] <- 35.0
data$R4220300[40.0 <= data$R4220300 & data$R4220300 <= 44.0] <- 40.0
data$R4220300[45.0 <= data$R4220300 & data$R4220300 <= 49.0] <- 45.0
data$R4220300[50.0 <= data$R4220300 & data$R4220300 <= 9999999.0] <- 50.0
data$R4220300 <- factor(data$R4220300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R4220400[1.0 <= data$R4220400 & data$R4220400 <= 4.0] <- 1.0
data$R4220400[5.0 <= data$R4220400 & data$R4220400 <= 9.0] <- 5.0
data$R4220400[10.0 <= data$R4220400 & data$R4220400 <= 14.0] <- 10.0
data$R4220400[15.0 <= data$R4220400 & data$R4220400 <= 19.0] <- 15.0
data$R4220400[20.0 <= data$R4220400 & data$R4220400 <= 24.0] <- 20.0
data$R4220400[25.0 <= data$R4220400 & data$R4220400 <= 29.0] <- 25.0
data$R4220400[30.0 <= data$R4220400 & data$R4220400 <= 34.0] <- 30.0
data$R4220400[35.0 <= data$R4220400 & data$R4220400 <= 39.0] <- 35.0
data$R4220400[40.0 <= data$R4220400 & data$R4220400 <= 44.0] <- 40.0
data$R4220400[45.0 <= data$R4220400 & data$R4220400 <= 49.0] <- 45.0
data$R4220400[50.0 <= data$R4220400 & data$R4220400 <= 9999999.0] <- 50.0
data$R4220400 <- factor(data$R4220400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R4220500 <- factor(data$R4220500,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R4220600[1.0 <= data$R4220600 & data$R4220600 <= 4.0] <- 1.0
data$R4220600[5.0 <= data$R4220600 & data$R4220600 <= 9.0] <- 5.0
data$R4220600[10.0 <= data$R4220600 & data$R4220600 <= 14.0] <- 10.0
data$R4220600[15.0 <= data$R4220600 & data$R4220600 <= 19.0] <- 15.0
data$R4220600[20.0 <= data$R4220600 & data$R4220600 <= 24.0] <- 20.0
data$R4220600[25.0 <= data$R4220600 & data$R4220600 <= 29.0] <- 25.0
data$R4220600[30.0 <= data$R4220600 & data$R4220600 <= 34.0] <- 30.0
data$R4220600[35.0 <= data$R4220600 & data$R4220600 <= 39.0] <- 35.0
data$R4220600[40.0 <= data$R4220600 & data$R4220600 <= 44.0] <- 40.0
data$R4220600[45.0 <= data$R4220600 & data$R4220600 <= 49.0] <- 45.0
data$R4220600[50.0 <= data$R4220600 & data$R4220600 <= 9999999.0] <- 50.0
data$R4220600 <- factor(data$R4220600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R4227800[1.0 <= data$R4227800 & data$R4227800 <= 4.0] <- 1.0
data$R4227800[5.0 <= data$R4227800 & data$R4227800 <= 9.0] <- 5.0
data$R4227800[10.0 <= data$R4227800 & data$R4227800 <= 14.0] <- 10.0
data$R4227800[15.0 <= data$R4227800 & data$R4227800 <= 19.0] <- 15.0
data$R4227800[20.0 <= data$R4227800 & data$R4227800 <= 24.0] <- 20.0
data$R4227800[25.0 <= data$R4227800 & data$R4227800 <= 29.0] <- 25.0
data$R4227800[30.0 <= data$R4227800 & data$R4227800 <= 34.0] <- 30.0
data$R4227800[35.0 <= data$R4227800 & data$R4227800 <= 39.0] <- 35.0
data$R4227800[40.0 <= data$R4227800 & data$R4227800 <= 44.0] <- 40.0
data$R4227800[45.0 <= data$R4227800 & data$R4227800 <= 49.0] <- 45.0
data$R4227800[50.0 <= data$R4227800 & data$R4227800 <= 9999999.0] <- 50.0
data$R4227800 <- factor(data$R4227800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R4227900[1.0 <= data$R4227900 & data$R4227900 <= 4.0] <- 1.0
data$R4227900[5.0 <= data$R4227900 & data$R4227900 <= 9.0] <- 5.0
data$R4227900[10.0 <= data$R4227900 & data$R4227900 <= 14.0] <- 10.0
data$R4227900[15.0 <= data$R4227900 & data$R4227900 <= 19.0] <- 15.0
data$R4227900[20.0 <= data$R4227900 & data$R4227900 <= 24.0] <- 20.0
data$R4227900[25.0 <= data$R4227900 & data$R4227900 <= 29.0] <- 25.0
data$R4227900[30.0 <= data$R4227900 & data$R4227900 <= 34.0] <- 30.0
data$R4227900[35.0 <= data$R4227900 & data$R4227900 <= 39.0] <- 35.0
data$R4227900[40.0 <= data$R4227900 & data$R4227900 <= 44.0] <- 40.0
data$R4227900[45.0 <= data$R4227900 & data$R4227900 <= 49.0] <- 45.0
data$R4227900[50.0 <= data$R4227900 & data$R4227900 <= 9999999.0] <- 50.0
data$R4227900 <- factor(data$R4227900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 9999999: 50+"))
data$R4228000 <- factor(data$R4228000,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R4416800[1.0 <= data$R4416800 & data$R4416800 <= 99.0] <- 1.0
data$R4416800[100.0 <= data$R4416800 & data$R4416800 <= 199.0] <- 100.0
data$R4416800[200.0 <= data$R4416800 & data$R4416800 <= 299.0] <- 200.0
data$R4416800[300.0 <= data$R4416800 & data$R4416800 <= 399.0] <- 300.0
data$R4416800[400.0 <= data$R4416800 & data$R4416800 <= 499.0] <- 400.0
data$R4416800[500.0 <= data$R4416800 & data$R4416800 <= 599.0] <- 500.0
data$R4416800[600.0 <= data$R4416800 & data$R4416800 <= 699.0] <- 600.0
data$R4416800[700.0 <= data$R4416800 & data$R4416800 <= 799.0] <- 700.0
data$R4416800[800.0 <= data$R4416800 & data$R4416800 <= 899.0] <- 800.0
data$R4416800[900.0 <= data$R4416800 & data$R4416800 <= 999.0] <- 900.0
data$R4416800[1000.0 <= data$R4416800 & data$R4416800 <= 9999999.0] <- 1000.0
data$R4416800 <- factor(data$R4416800,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R4416900[1.0 <= data$R4416900 & data$R4416900 <= 99.0] <- 1.0
data$R4416900[100.0 <= data$R4416900 & data$R4416900 <= 199.0] <- 100.0
data$R4416900[200.0 <= data$R4416900 & data$R4416900 <= 299.0] <- 200.0
data$R4416900[300.0 <= data$R4416900 & data$R4416900 <= 399.0] <- 300.0
data$R4416900[400.0 <= data$R4416900 & data$R4416900 <= 499.0] <- 400.0
data$R4416900[500.0 <= data$R4416900 & data$R4416900 <= 599.0] <- 500.0
data$R4416900[600.0 <= data$R4416900 & data$R4416900 <= 699.0] <- 600.0
data$R4416900[700.0 <= data$R4416900 & data$R4416900 <= 799.0] <- 700.0
data$R4416900[800.0 <= data$R4416900 & data$R4416900 <= 899.0] <- 800.0
data$R4416900[900.0 <= data$R4416900 & data$R4416900 <= 999.0] <- 900.0
data$R4416900[1000.0 <= data$R4416900 & data$R4416900 <= 9999999.0] <- 1000.0
data$R4416900 <- factor(data$R4416900,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R4417000[1.0 <= data$R4417000 & data$R4417000 <= 99.0] <- 1.0
data$R4417000[100.0 <= data$R4417000 & data$R4417000 <= 199.0] <- 100.0
data$R4417000[200.0 <= data$R4417000 & data$R4417000 <= 299.0] <- 200.0
data$R4417000[300.0 <= data$R4417000 & data$R4417000 <= 399.0] <- 300.0
data$R4417000[400.0 <= data$R4417000 & data$R4417000 <= 499.0] <- 400.0
data$R4417000[500.0 <= data$R4417000 & data$R4417000 <= 599.0] <- 500.0
data$R4417000[600.0 <= data$R4417000 & data$R4417000 <= 699.0] <- 600.0
data$R4417000[700.0 <= data$R4417000 & data$R4417000 <= 799.0] <- 700.0
data$R4417000[800.0 <= data$R4417000 & data$R4417000 <= 899.0] <- 800.0
data$R4417000[900.0 <= data$R4417000 & data$R4417000 <= 999.0] <- 900.0
data$R4417000[1000.0 <= data$R4417000 & data$R4417000 <= 9999999.0] <- 1000.0
data$R4417000 <- factor(data$R4417000,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R4417100[1.0 <= data$R4417100 & data$R4417100 <= 99.0] <- 1.0
data$R4417100[100.0 <= data$R4417100 & data$R4417100 <= 199.0] <- 100.0
data$R4417100[200.0 <= data$R4417100 & data$R4417100 <= 299.0] <- 200.0
data$R4417100[300.0 <= data$R4417100 & data$R4417100 <= 399.0] <- 300.0
data$R4417100[400.0 <= data$R4417100 & data$R4417100 <= 499.0] <- 400.0
data$R4417100[500.0 <= data$R4417100 & data$R4417100 <= 599.0] <- 500.0
data$R4417100[600.0 <= data$R4417100 & data$R4417100 <= 699.0] <- 600.0
data$R4417100[700.0 <= data$R4417100 & data$R4417100 <= 799.0] <- 700.0
data$R4417100[800.0 <= data$R4417100 & data$R4417100 <= 899.0] <- 800.0
data$R4417100[900.0 <= data$R4417100 & data$R4417100 <= 999.0] <- 900.0
data$R4417100[1000.0 <= data$R4417100 & data$R4417100 <= 9999999.0] <- 1000.0
data$R4417100 <- factor(data$R4417100,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R4417200[1.0 <= data$R4417200 & data$R4417200 <= 99.0] <- 1.0
data$R4417200[100.0 <= data$R4417200 & data$R4417200 <= 199.0] <- 100.0
data$R4417200[200.0 <= data$R4417200 & data$R4417200 <= 299.0] <- 200.0
data$R4417200[300.0 <= data$R4417200 & data$R4417200 <= 399.0] <- 300.0
data$R4417200[400.0 <= data$R4417200 & data$R4417200 <= 499.0] <- 400.0
data$R4417200[500.0 <= data$R4417200 & data$R4417200 <= 599.0] <- 500.0
data$R4417200[600.0 <= data$R4417200 & data$R4417200 <= 699.0] <- 600.0
data$R4417200[700.0 <= data$R4417200 & data$R4417200 <= 799.0] <- 700.0
data$R4417200[800.0 <= data$R4417200 & data$R4417200 <= 899.0] <- 800.0
data$R4417200[900.0 <= data$R4417200 & data$R4417200 <= 999.0] <- 900.0
data$R4417200[1000.0 <= data$R4417200 & data$R4417200 <= 9999999.0] <- 1000.0
data$R4417200 <- factor(data$R4417200,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R4417300[1.0 <= data$R4417300 & data$R4417300 <= 99.0] <- 1.0
data$R4417300[100.0 <= data$R4417300 & data$R4417300 <= 199.0] <- 100.0
data$R4417300[200.0 <= data$R4417300 & data$R4417300 <= 299.0] <- 200.0
data$R4417300[300.0 <= data$R4417300 & data$R4417300 <= 399.0] <- 300.0
data$R4417300[400.0 <= data$R4417300 & data$R4417300 <= 499.0] <- 400.0
data$R4417300[500.0 <= data$R4417300 & data$R4417300 <= 599.0] <- 500.0
data$R4417300[600.0 <= data$R4417300 & data$R4417300 <= 699.0] <- 600.0
data$R4417300[700.0 <= data$R4417300 & data$R4417300 <= 799.0] <- 700.0
data$R4417300[800.0 <= data$R4417300 & data$R4417300 <= 899.0] <- 800.0
data$R4417300[900.0 <= data$R4417300 & data$R4417300 <= 999.0] <- 900.0
data$R4417300[1000.0 <= data$R4417300 & data$R4417300 <= 9999999.0] <- 1000.0
data$R4417300 <- factor(data$R4417300,
levels=c(0.0,1.0,100.0,200.0,300.0,400.0,500.0,600.0,700.0,800.0,900.0,1000.0),
labels=c("0",
"1 TO 99",
"100 TO 199",
"200 TO 299",
"300 TO 399",
"400 TO 499",
"500 TO 599",
"600 TO 699",
"700 TO 799",
"800 TO 899",
"900 TO 999",
"1000 TO 9999999: 1000+"))
data$R4418500 <- factor(data$R4418500,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$R4418501 <- factor(data$R4418501,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YR COL",
"2ND YR COL",
"3RD YR COL",
"4TH YR COL",
"5TH YR COL",
"6TH YR COL",
"7TH YR COL",
"8TH YR COL OR MORE",
"UNGRADED"))
data$R4526500 <- factor(data$R4526500,
levels=c(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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"UNGRADED"))
data$R4582900[1.0 <= data$R4582900 & data$R4582900 <= 4.0] <- 1.0
data$R4582900[5.0 <= data$R4582900 & data$R4582900 <= 9.0] <- 5.0
data$R4582900[10.0 <= data$R4582900 & data$R4582900 <= 14.0] <- 10.0
data$R4582900[15.0 <= data$R4582900 & data$R4582900 <= 19.0] <- 15.0
data$R4582900[20.0 <= data$R4582900 & data$R4582900 <= 24.0] <- 20.0
data$R4582900[25.0 <= data$R4582900 & data$R4582900 <= 29.0] <- 25.0
data$R4582900[30.0 <= data$R4582900 & data$R4582900 <= 34.0] <- 30.0
data$R4582900[35.0 <= data$R4582900 & data$R4582900 <= 39.0] <- 35.0
data$R4582900[40.0 <= data$R4582900 & data$R4582900 <= 44.0] <- 40.0
data$R4582900[45.0 <= data$R4582900 & data$R4582900 <= 49.0] <- 45.0
data$R4582900[50.0 <= data$R4582900 & data$R4582900 <= 9.9999999E7] <- 50.0
data$R4582900 <- factor(data$R4582900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R4583000[1.0 <= data$R4583000 & data$R4583000 <= 4.0] <- 1.0
data$R4583000[5.0 <= data$R4583000 & data$R4583000 <= 9.0] <- 5.0
data$R4583000[10.0 <= data$R4583000 & data$R4583000 <= 14.0] <- 10.0
data$R4583000[15.0 <= data$R4583000 & data$R4583000 <= 19.0] <- 15.0
data$R4583000[20.0 <= data$R4583000 & data$R4583000 <= 24.0] <- 20.0
data$R4583000[25.0 <= data$R4583000 & data$R4583000 <= 29.0] <- 25.0
data$R4583000[30.0 <= data$R4583000 & data$R4583000 <= 34.0] <- 30.0
data$R4583000[35.0 <= data$R4583000 & data$R4583000 <= 39.0] <- 35.0
data$R4583000[40.0 <= data$R4583000 & data$R4583000 <= 44.0] <- 40.0
data$R4583000[45.0 <= data$R4583000 & data$R4583000 <= 49.0] <- 45.0
data$R4583000[50.0 <= data$R4583000 & data$R4583000 <= 9.9999999E7] <- 50.0
data$R4583000 <- factor(data$R4583000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R4583100 <- factor(data$R4583100,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R4583200[1.0 <= data$R4583200 & data$R4583200 <= 4.0] <- 1.0
data$R4583200[5.0 <= data$R4583200 & data$R4583200 <= 9.0] <- 5.0
data$R4583200[10.0 <= data$R4583200 & data$R4583200 <= 14.0] <- 10.0
data$R4583200[15.0 <= data$R4583200 & data$R4583200 <= 19.0] <- 15.0
data$R4583200[20.0 <= data$R4583200 & data$R4583200 <= 24.0] <- 20.0
data$R4583200[25.0 <= data$R4583200 & data$R4583200 <= 29.0] <- 25.0
data$R4583200[30.0 <= data$R4583200 & data$R4583200 <= 34.0] <- 30.0
data$R4583200[35.0 <= data$R4583200 & data$R4583200 <= 39.0] <- 35.0
data$R4583200[40.0 <= data$R4583200 & data$R4583200 <= 44.0] <- 40.0
data$R4583200[45.0 <= data$R4583200 & data$R4583200 <= 49.0] <- 45.0
data$R4583200[50.0 <= data$R4583200 & data$R4583200 <= 9.9999999E7] <- 50.0
data$R4583200 <- factor(data$R4583200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R4627100[1.0 <= data$R4627100 & data$R4627100 <= 4.0] <- 1.0
data$R4627100[5.0 <= data$R4627100 & data$R4627100 <= 9.0] <- 5.0
data$R4627100[10.0 <= data$R4627100 & data$R4627100 <= 14.0] <- 10.0
data$R4627100[15.0 <= data$R4627100 & data$R4627100 <= 19.0] <- 15.0
data$R4627100[20.0 <= data$R4627100 & data$R4627100 <= 24.0] <- 20.0
data$R4627100[25.0 <= data$R4627100 & data$R4627100 <= 29.0] <- 25.0
data$R4627100[30.0 <= data$R4627100 & data$R4627100 <= 34.0] <- 30.0
data$R4627100[35.0 <= data$R4627100 & data$R4627100 <= 39.0] <- 35.0
data$R4627100[40.0 <= data$R4627100 & data$R4627100 <= 44.0] <- 40.0
data$R4627100[45.0 <= data$R4627100 & data$R4627100 <= 49.0] <- 45.0
data$R4627100[50.0 <= data$R4627100 & data$R4627100 <= 9.9999999E7] <- 50.0
data$R4627100 <- factor(data$R4627100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R4627200[1.0 <= data$R4627200 & data$R4627200 <= 4.0] <- 1.0
data$R4627200[5.0 <= data$R4627200 & data$R4627200 <= 9.0] <- 5.0
data$R4627200[10.0 <= data$R4627200 & data$R4627200 <= 14.0] <- 10.0
data$R4627200[15.0 <= data$R4627200 & data$R4627200 <= 19.0] <- 15.0
data$R4627200[20.0 <= data$R4627200 & data$R4627200 <= 24.0] <- 20.0
data$R4627200[25.0 <= data$R4627200 & data$R4627200 <= 29.0] <- 25.0
data$R4627200[30.0 <= data$R4627200 & data$R4627200 <= 34.0] <- 30.0
data$R4627200[35.0 <= data$R4627200 & data$R4627200 <= 39.0] <- 35.0
data$R4627200[40.0 <= data$R4627200 & data$R4627200 <= 44.0] <- 40.0
data$R4627200[45.0 <= data$R4627200 & data$R4627200 <= 49.0] <- 45.0
data$R4627200[50.0 <= data$R4627200 & data$R4627200 <= 9.9999999E7] <- 50.0
data$R4627200 <- factor(data$R4627200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R4627300 <- factor(data$R4627300,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R4627400[1.0 <= data$R4627400 & data$R4627400 <= 4.0] <- 1.0
data$R4627400[5.0 <= data$R4627400 & data$R4627400 <= 9.0] <- 5.0
data$R4627400[10.0 <= data$R4627400 & data$R4627400 <= 14.0] <- 10.0
data$R4627400[15.0 <= data$R4627400 & data$R4627400 <= 19.0] <- 15.0
data$R4627400[20.0 <= data$R4627400 & data$R4627400 <= 24.0] <- 20.0
data$R4627400[25.0 <= data$R4627400 & data$R4627400 <= 29.0] <- 25.0
data$R4627400[30.0 <= data$R4627400 & data$R4627400 <= 34.0] <- 30.0
data$R4627400[35.0 <= data$R4627400 & data$R4627400 <= 39.0] <- 35.0
data$R4627400[40.0 <= data$R4627400 & data$R4627400 <= 44.0] <- 40.0
data$R4627400[45.0 <= data$R4627400 & data$R4627400 <= 49.0] <- 45.0
data$R4627400[50.0 <= data$R4627400 & data$R4627400 <= 9.9999999E7] <- 50.0
data$R4627400 <- factor(data$R4627400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R4671000[1.0 <= data$R4671000 & data$R4671000 <= 4.0] <- 1.0
data$R4671000[5.0 <= data$R4671000 & data$R4671000 <= 9.0] <- 5.0
data$R4671000[10.0 <= data$R4671000 & data$R4671000 <= 14.0] <- 10.0
data$R4671000[15.0 <= data$R4671000 & data$R4671000 <= 19.0] <- 15.0
data$R4671000[20.0 <= data$R4671000 & data$R4671000 <= 24.0] <- 20.0
data$R4671000[25.0 <= data$R4671000 & data$R4671000 <= 29.0] <- 25.0
data$R4671000[30.0 <= data$R4671000 & data$R4671000 <= 34.0] <- 30.0
data$R4671000[35.0 <= data$R4671000 & data$R4671000 <= 39.0] <- 35.0
data$R4671000[40.0 <= data$R4671000 & data$R4671000 <= 44.0] <- 40.0
data$R4671000[45.0 <= data$R4671000 & data$R4671000 <= 49.0] <- 45.0
data$R4671000[50.0 <= data$R4671000 & data$R4671000 <= 9.9999999E7] <- 50.0
data$R4671000 <- factor(data$R4671000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R4671100[1.0 <= data$R4671100 & data$R4671100 <= 4.0] <- 1.0
data$R4671100[5.0 <= data$R4671100 & data$R4671100 <= 9.0] <- 5.0
data$R4671100[10.0 <= data$R4671100 & data$R4671100 <= 14.0] <- 10.0
data$R4671100[15.0 <= data$R4671100 & data$R4671100 <= 19.0] <- 15.0
data$R4671100[20.0 <= data$R4671100 & data$R4671100 <= 24.0] <- 20.0
data$R4671100[25.0 <= data$R4671100 & data$R4671100 <= 29.0] <- 25.0
data$R4671100[30.0 <= data$R4671100 & data$R4671100 <= 34.0] <- 30.0
data$R4671100[35.0 <= data$R4671100 & data$R4671100 <= 39.0] <- 35.0
data$R4671100[40.0 <= data$R4671100 & data$R4671100 <= 44.0] <- 40.0
data$R4671100[45.0 <= data$R4671100 & data$R4671100 <= 49.0] <- 45.0
data$R4671100[50.0 <= data$R4671100 & data$R4671100 <= 9.9999999E7] <- 50.0
data$R4671100 <- factor(data$R4671100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R4671200 <- factor(data$R4671200,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R4671300[1.0 <= data$R4671300 & data$R4671300 <= 4.0] <- 1.0
data$R4671300[5.0 <= data$R4671300 & data$R4671300 <= 9.0] <- 5.0
data$R4671300[10.0 <= data$R4671300 & data$R4671300 <= 14.0] <- 10.0
data$R4671300[15.0 <= data$R4671300 & data$R4671300 <= 19.0] <- 15.0
data$R4671300[20.0 <= data$R4671300 & data$R4671300 <= 24.0] <- 20.0
data$R4671300[25.0 <= data$R4671300 & data$R4671300 <= 29.0] <- 25.0
data$R4671300[30.0 <= data$R4671300 & data$R4671300 <= 34.0] <- 30.0
data$R4671300[35.0 <= data$R4671300 & data$R4671300 <= 39.0] <- 35.0
data$R4671300[40.0 <= data$R4671300 & data$R4671300 <= 44.0] <- 40.0
data$R4671300[45.0 <= data$R4671300 & data$R4671300 <= 49.0] <- 45.0
data$R4671300[50.0 <= data$R4671300 & data$R4671300 <= 9.9999999E7] <- 50.0
data$R4671300 <- factor(data$R4671300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R4710600[1.0 <= data$R4710600 & data$R4710600 <= 4.0] <- 1.0
data$R4710600[5.0 <= data$R4710600 & data$R4710600 <= 9.0] <- 5.0
data$R4710600[10.0 <= data$R4710600 & data$R4710600 <= 14.0] <- 10.0
data$R4710600[15.0 <= data$R4710600 & data$R4710600 <= 19.0] <- 15.0
data$R4710600[20.0 <= data$R4710600 & data$R4710600 <= 24.0] <- 20.0
data$R4710600[25.0 <= data$R4710600 & data$R4710600 <= 29.0] <- 25.0
data$R4710600[30.0 <= data$R4710600 & data$R4710600 <= 34.0] <- 30.0
data$R4710600[35.0 <= data$R4710600 & data$R4710600 <= 39.0] <- 35.0
data$R4710600[40.0 <= data$R4710600 & data$R4710600 <= 44.0] <- 40.0
data$R4710600[45.0 <= data$R4710600 & data$R4710600 <= 49.0] <- 45.0
data$R4710600[50.0 <= data$R4710600 & data$R4710600 <= 9.9999999E7] <- 50.0
data$R4710600 <- factor(data$R4710600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R4710700[1.0 <= data$R4710700 & data$R4710700 <= 4.0] <- 1.0
data$R4710700[5.0 <= data$R4710700 & data$R4710700 <= 9.0] <- 5.0
data$R4710700[10.0 <= data$R4710700 & data$R4710700 <= 14.0] <- 10.0
data$R4710700[15.0 <= data$R4710700 & data$R4710700 <= 19.0] <- 15.0
data$R4710700[20.0 <= data$R4710700 & data$R4710700 <= 24.0] <- 20.0
data$R4710700[25.0 <= data$R4710700 & data$R4710700 <= 29.0] <- 25.0
data$R4710700[30.0 <= data$R4710700 & data$R4710700 <= 34.0] <- 30.0
data$R4710700[35.0 <= data$R4710700 & data$R4710700 <= 39.0] <- 35.0
data$R4710700[40.0 <= data$R4710700 & data$R4710700 <= 44.0] <- 40.0
data$R4710700[45.0 <= data$R4710700 & data$R4710700 <= 49.0] <- 45.0
data$R4710700[50.0 <= data$R4710700 & data$R4710700 <= 9.9999999E7] <- 50.0
data$R4710700 <- factor(data$R4710700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R4710800 <- factor(data$R4710800,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R4710900[1.0 <= data$R4710900 & data$R4710900 <= 4.0] <- 1.0
data$R4710900[5.0 <= data$R4710900 & data$R4710900 <= 9.0] <- 5.0
data$R4710900[10.0 <= data$R4710900 & data$R4710900 <= 14.0] <- 10.0
data$R4710900[15.0 <= data$R4710900 & data$R4710900 <= 19.0] <- 15.0
data$R4710900[20.0 <= data$R4710900 & data$R4710900 <= 24.0] <- 20.0
data$R4710900[25.0 <= data$R4710900 & data$R4710900 <= 29.0] <- 25.0
data$R4710900[30.0 <= data$R4710900 & data$R4710900 <= 34.0] <- 30.0
data$R4710900[35.0 <= data$R4710900 & data$R4710900 <= 39.0] <- 35.0
data$R4710900[40.0 <= data$R4710900 & data$R4710900 <= 44.0] <- 40.0
data$R4710900[45.0 <= data$R4710900 & data$R4710900 <= 49.0] <- 45.0
data$R4710900[50.0 <= data$R4710900 & data$R4710900 <= 9.9999999E7] <- 50.0
data$R4710900 <- factor(data$R4710900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R4744900[1.0 <= data$R4744900 & data$R4744900 <= 4.0] <- 1.0
data$R4744900[5.0 <= data$R4744900 & data$R4744900 <= 9.0] <- 5.0
data$R4744900[10.0 <= data$R4744900 & data$R4744900 <= 14.0] <- 10.0
data$R4744900[15.0 <= data$R4744900 & data$R4744900 <= 19.0] <- 15.0
data$R4744900[20.0 <= data$R4744900 & data$R4744900 <= 24.0] <- 20.0
data$R4744900[25.0 <= data$R4744900 & data$R4744900 <= 29.0] <- 25.0
data$R4744900[30.0 <= data$R4744900 & data$R4744900 <= 34.0] <- 30.0
data$R4744900[35.0 <= data$R4744900 & data$R4744900 <= 39.0] <- 35.0
data$R4744900[40.0 <= data$R4744900 & data$R4744900 <= 44.0] <- 40.0
data$R4744900[45.0 <= data$R4744900 & data$R4744900 <= 49.0] <- 45.0
data$R4744900[50.0 <= data$R4744900 & data$R4744900 <= 9.9999999E7] <- 50.0
data$R4744900 <- factor(data$R4744900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R4745000[1.0 <= data$R4745000 & data$R4745000 <= 4.0] <- 1.0
data$R4745000[5.0 <= data$R4745000 & data$R4745000 <= 9.0] <- 5.0
data$R4745000[10.0 <= data$R4745000 & data$R4745000 <= 14.0] <- 10.0
data$R4745000[15.0 <= data$R4745000 & data$R4745000 <= 19.0] <- 15.0
data$R4745000[20.0 <= data$R4745000 & data$R4745000 <= 24.0] <- 20.0
data$R4745000[25.0 <= data$R4745000 & data$R4745000 <= 29.0] <- 25.0
data$R4745000[30.0 <= data$R4745000 & data$R4745000 <= 34.0] <- 30.0
data$R4745000[35.0 <= data$R4745000 & data$R4745000 <= 39.0] <- 35.0
data$R4745000[40.0 <= data$R4745000 & data$R4745000 <= 44.0] <- 40.0
data$R4745000[45.0 <= data$R4745000 & data$R4745000 <= 49.0] <- 45.0
data$R4745000[50.0 <= data$R4745000 & data$R4745000 <= 9.9999999E7] <- 50.0
data$R4745000 <- factor(data$R4745000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R4745100 <- factor(data$R4745100,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R4745200[1.0 <= data$R4745200 & data$R4745200 <= 4.0] <- 1.0
data$R4745200[5.0 <= data$R4745200 & data$R4745200 <= 9.0] <- 5.0
data$R4745200[10.0 <= data$R4745200 & data$R4745200 <= 14.0] <- 10.0
data$R4745200[15.0 <= data$R4745200 & data$R4745200 <= 19.0] <- 15.0
data$R4745200[20.0 <= data$R4745200 & data$R4745200 <= 24.0] <- 20.0
data$R4745200[25.0 <= data$R4745200 & data$R4745200 <= 29.0] <- 25.0
data$R4745200[30.0 <= data$R4745200 & data$R4745200 <= 34.0] <- 30.0
data$R4745200[35.0 <= data$R4745200 & data$R4745200 <= 39.0] <- 35.0
data$R4745200[40.0 <= data$R4745200 & data$R4745200 <= 44.0] <- 40.0
data$R4745200[45.0 <= data$R4745200 & data$R4745200 <= 49.0] <- 45.0
data$R4745200[50.0 <= data$R4745200 & data$R4745200 <= 9.9999999E7] <- 50.0
data$R4745200 <- factor(data$R4745200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5079800[1.0 <= data$R5079800 & data$R5079800 <= 499.0] <- 1.0
data$R5079800[500.0 <= data$R5079800 & data$R5079800 <= 999.0] <- 500.0
data$R5079800[1000.0 <= data$R5079800 & data$R5079800 <= 1499.0] <- 1000.0
data$R5079800[1500.0 <= data$R5079800 & data$R5079800 <= 1999.0] <- 1500.0
data$R5079800[2000.0 <= data$R5079800 & data$R5079800 <= 2499.0] <- 2000.0
data$R5079800[2500.0 <= data$R5079800 & data$R5079800 <= 2999.0] <- 2500.0
data$R5079800[3000.0 <= data$R5079800 & data$R5079800 <= 3499.0] <- 3000.0
data$R5079800[3500.0 <= data$R5079800 & data$R5079800 <= 3999.0] <- 3500.0
data$R5079800[4000.0 <= data$R5079800 & data$R5079800 <= 4499.0] <- 4000.0
data$R5079800[4500.0 <= data$R5079800 & data$R5079800 <= 4999.0] <- 4500.0
data$R5079800[5000.0 <= data$R5079800 & data$R5079800 <= 9.9999999E7] <- 5000.0
data$R5079800 <- factor(data$R5079800,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R5079900[1.0 <= data$R5079900 & data$R5079900 <= 499.0] <- 1.0
data$R5079900[500.0 <= data$R5079900 & data$R5079900 <= 999.0] <- 500.0
data$R5079900[1000.0 <= data$R5079900 & data$R5079900 <= 1499.0] <- 1000.0
data$R5079900[1500.0 <= data$R5079900 & data$R5079900 <= 1999.0] <- 1500.0
data$R5079900[2000.0 <= data$R5079900 & data$R5079900 <= 2499.0] <- 2000.0
data$R5079900[2500.0 <= data$R5079900 & data$R5079900 <= 2999.0] <- 2500.0
data$R5079900[3000.0 <= data$R5079900 & data$R5079900 <= 3499.0] <- 3000.0
data$R5079900[3500.0 <= data$R5079900 & data$R5079900 <= 3999.0] <- 3500.0
data$R5079900[4000.0 <= data$R5079900 & data$R5079900 <= 4499.0] <- 4000.0
data$R5079900[4500.0 <= data$R5079900 & data$R5079900 <= 4999.0] <- 4500.0
data$R5079900[5000.0 <= data$R5079900 & data$R5079900 <= 9.9999999E7] <- 5000.0
data$R5079900 <- factor(data$R5079900,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R5080000[1.0 <= data$R5080000 & data$R5080000 <= 499.0] <- 1.0
data$R5080000[500.0 <= data$R5080000 & data$R5080000 <= 999.0] <- 500.0
data$R5080000[1000.0 <= data$R5080000 & data$R5080000 <= 1499.0] <- 1000.0
data$R5080000[1500.0 <= data$R5080000 & data$R5080000 <= 1999.0] <- 1500.0
data$R5080000[2000.0 <= data$R5080000 & data$R5080000 <= 2499.0] <- 2000.0
data$R5080000[2500.0 <= data$R5080000 & data$R5080000 <= 2999.0] <- 2500.0
data$R5080000[3000.0 <= data$R5080000 & data$R5080000 <= 3499.0] <- 3000.0
data$R5080000[3500.0 <= data$R5080000 & data$R5080000 <= 3999.0] <- 3500.0
data$R5080000[4000.0 <= data$R5080000 & data$R5080000 <= 4499.0] <- 4000.0
data$R5080000[4500.0 <= data$R5080000 & data$R5080000 <= 4999.0] <- 4500.0
data$R5080000[5000.0 <= data$R5080000 & data$R5080000 <= 9.9999999E7] <- 5000.0
data$R5080000 <- factor(data$R5080000,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R5080100[1.0 <= data$R5080100 & data$R5080100 <= 499.0] <- 1.0
data$R5080100[500.0 <= data$R5080100 & data$R5080100 <= 999.0] <- 500.0
data$R5080100[1000.0 <= data$R5080100 & data$R5080100 <= 1499.0] <- 1000.0
data$R5080100[1500.0 <= data$R5080100 & data$R5080100 <= 1999.0] <- 1500.0
data$R5080100[2000.0 <= data$R5080100 & data$R5080100 <= 2499.0] <- 2000.0
data$R5080100[2500.0 <= data$R5080100 & data$R5080100 <= 2999.0] <- 2500.0
data$R5080100[3000.0 <= data$R5080100 & data$R5080100 <= 3499.0] <- 3000.0
data$R5080100[3500.0 <= data$R5080100 & data$R5080100 <= 3999.0] <- 3500.0
data$R5080100[4000.0 <= data$R5080100 & data$R5080100 <= 4499.0] <- 4000.0
data$R5080100[4500.0 <= data$R5080100 & data$R5080100 <= 4999.0] <- 4500.0
data$R5080100[5000.0 <= data$R5080100 & data$R5080100 <= 9.9999999E7] <- 5000.0
data$R5080100 <- factor(data$R5080100,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R5080200[1.0 <= data$R5080200 & data$R5080200 <= 499.0] <- 1.0
data$R5080200[500.0 <= data$R5080200 & data$R5080200 <= 999.0] <- 500.0
data$R5080200[1000.0 <= data$R5080200 & data$R5080200 <= 1499.0] <- 1000.0
data$R5080200[1500.0 <= data$R5080200 & data$R5080200 <= 1999.0] <- 1500.0
data$R5080200[2000.0 <= data$R5080200 & data$R5080200 <= 2499.0] <- 2000.0
data$R5080200[2500.0 <= data$R5080200 & data$R5080200 <= 2999.0] <- 2500.0
data$R5080200[3000.0 <= data$R5080200 & data$R5080200 <= 3499.0] <- 3000.0
data$R5080200[3500.0 <= data$R5080200 & data$R5080200 <= 3999.0] <- 3500.0
data$R5080200[4000.0 <= data$R5080200 & data$R5080200 <= 4499.0] <- 4000.0
data$R5080200[4500.0 <= data$R5080200 & data$R5080200 <= 4999.0] <- 4500.0
data$R5080200[5000.0 <= data$R5080200 & data$R5080200 <= 9.9999999E7] <- 5000.0
data$R5080200 <- factor(data$R5080200,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R5080300[1.0 <= data$R5080300 & data$R5080300 <= 499.0] <- 1.0
data$R5080300[500.0 <= data$R5080300 & data$R5080300 <= 999.0] <- 500.0
data$R5080300[1000.0 <= data$R5080300 & data$R5080300 <= 1499.0] <- 1000.0
data$R5080300[1500.0 <= data$R5080300 & data$R5080300 <= 1999.0] <- 1500.0
data$R5080300[2000.0 <= data$R5080300 & data$R5080300 <= 2499.0] <- 2000.0
data$R5080300[2500.0 <= data$R5080300 & data$R5080300 <= 2999.0] <- 2500.0
data$R5080300[3000.0 <= data$R5080300 & data$R5080300 <= 3499.0] <- 3000.0
data$R5080300[3500.0 <= data$R5080300 & data$R5080300 <= 3999.0] <- 3500.0
data$R5080300[4000.0 <= data$R5080300 & data$R5080300 <= 4499.0] <- 4000.0
data$R5080300[4500.0 <= data$R5080300 & data$R5080300 <= 4999.0] <- 4500.0
data$R5080300[5000.0 <= data$R5080300 & data$R5080300 <= 9.9999999E7] <- 5000.0
data$R5080300 <- factor(data$R5080300,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R5081500 <- factor(data$R5081500,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$R5103900 <- factor(data$R5103900,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$R5165200[1.0 <= data$R5165200 & data$R5165200 <= 499.0] <- 1.0
data$R5165200[500.0 <= data$R5165200 & data$R5165200 <= 999.0] <- 500.0
data$R5165200[1000.0 <= data$R5165200 & data$R5165200 <= 1499.0] <- 1000.0
data$R5165200[1500.0 <= data$R5165200 & data$R5165200 <= 1999.0] <- 1500.0
data$R5165200[2000.0 <= data$R5165200 & data$R5165200 <= 2499.0] <- 2000.0
data$R5165200[2500.0 <= data$R5165200 & data$R5165200 <= 2999.0] <- 2500.0
data$R5165200[3000.0 <= data$R5165200 & data$R5165200 <= 3499.0] <- 3000.0
data$R5165200[3500.0 <= data$R5165200 & data$R5165200 <= 3999.0] <- 3500.0
data$R5165200[4000.0 <= data$R5165200 & data$R5165200 <= 4499.0] <- 4000.0
data$R5165200[4500.0 <= data$R5165200 & data$R5165200 <= 4999.0] <- 4500.0
data$R5165200[5000.0 <= data$R5165200 & data$R5165200 <= 9.9999999E7] <- 5000.0
data$R5165200 <- factor(data$R5165200,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R5165300[1.0 <= data$R5165300 & data$R5165300 <= 499.0] <- 1.0
data$R5165300[500.0 <= data$R5165300 & data$R5165300 <= 999.0] <- 500.0
data$R5165300[1000.0 <= data$R5165300 & data$R5165300 <= 1499.0] <- 1000.0
data$R5165300[1500.0 <= data$R5165300 & data$R5165300 <= 1999.0] <- 1500.0
data$R5165300[2000.0 <= data$R5165300 & data$R5165300 <= 2499.0] <- 2000.0
data$R5165300[2500.0 <= data$R5165300 & data$R5165300 <= 2999.0] <- 2500.0
data$R5165300[3000.0 <= data$R5165300 & data$R5165300 <= 3499.0] <- 3000.0
data$R5165300[3500.0 <= data$R5165300 & data$R5165300 <= 3999.0] <- 3500.0
data$R5165300[4000.0 <= data$R5165300 & data$R5165300 <= 4499.0] <- 4000.0
data$R5165300[4500.0 <= data$R5165300 & data$R5165300 <= 4999.0] <- 4500.0
data$R5165300[5000.0 <= data$R5165300 & data$R5165300 <= 9.9999999E7] <- 5000.0
data$R5165300 <- factor(data$R5165300,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R5165400[1.0 <= data$R5165400 & data$R5165400 <= 499.0] <- 1.0
data$R5165400[500.0 <= data$R5165400 & data$R5165400 <= 999.0] <- 500.0
data$R5165400[1000.0 <= data$R5165400 & data$R5165400 <= 1499.0] <- 1000.0
data$R5165400[1500.0 <= data$R5165400 & data$R5165400 <= 1999.0] <- 1500.0
data$R5165400[2000.0 <= data$R5165400 & data$R5165400 <= 2499.0] <- 2000.0
data$R5165400[2500.0 <= data$R5165400 & data$R5165400 <= 2999.0] <- 2500.0
data$R5165400[3000.0 <= data$R5165400 & data$R5165400 <= 3499.0] <- 3000.0
data$R5165400[3500.0 <= data$R5165400 & data$R5165400 <= 3999.0] <- 3500.0
data$R5165400[4000.0 <= data$R5165400 & data$R5165400 <= 4499.0] <- 4000.0
data$R5165400[4500.0 <= data$R5165400 & data$R5165400 <= 4999.0] <- 4500.0
data$R5165400[5000.0 <= data$R5165400 & data$R5165400 <= 9.9999999E7] <- 5000.0
data$R5165400 <- factor(data$R5165400,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R5165500[1.0 <= data$R5165500 & data$R5165500 <= 499.0] <- 1.0
data$R5165500[500.0 <= data$R5165500 & data$R5165500 <= 999.0] <- 500.0
data$R5165500[1000.0 <= data$R5165500 & data$R5165500 <= 1499.0] <- 1000.0
data$R5165500[1500.0 <= data$R5165500 & data$R5165500 <= 1999.0] <- 1500.0
data$R5165500[2000.0 <= data$R5165500 & data$R5165500 <= 2499.0] <- 2000.0
data$R5165500[2500.0 <= data$R5165500 & data$R5165500 <= 2999.0] <- 2500.0
data$R5165500[3000.0 <= data$R5165500 & data$R5165500 <= 3499.0] <- 3000.0
data$R5165500[3500.0 <= data$R5165500 & data$R5165500 <= 3999.0] <- 3500.0
data$R5165500[4000.0 <= data$R5165500 & data$R5165500 <= 4499.0] <- 4000.0
data$R5165500[4500.0 <= data$R5165500 & data$R5165500 <= 4999.0] <- 4500.0
data$R5165500[5000.0 <= data$R5165500 & data$R5165500 <= 9.9999999E7] <- 5000.0
data$R5165500 <- factor(data$R5165500,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R5165600[1.0 <= data$R5165600 & data$R5165600 <= 499.0] <- 1.0
data$R5165600[500.0 <= data$R5165600 & data$R5165600 <= 999.0] <- 500.0
data$R5165600[1000.0 <= data$R5165600 & data$R5165600 <= 1499.0] <- 1000.0
data$R5165600[1500.0 <= data$R5165600 & data$R5165600 <= 1999.0] <- 1500.0
data$R5165600[2000.0 <= data$R5165600 & data$R5165600 <= 2499.0] <- 2000.0
data$R5165600[2500.0 <= data$R5165600 & data$R5165600 <= 2999.0] <- 2500.0
data$R5165600[3000.0 <= data$R5165600 & data$R5165600 <= 3499.0] <- 3000.0
data$R5165600[3500.0 <= data$R5165600 & data$R5165600 <= 3999.0] <- 3500.0
data$R5165600[4000.0 <= data$R5165600 & data$R5165600 <= 4499.0] <- 4000.0
data$R5165600[4500.0 <= data$R5165600 & data$R5165600 <= 4999.0] <- 4500.0
data$R5165600[5000.0 <= data$R5165600 & data$R5165600 <= 9.9999999E7] <- 5000.0
data$R5165600 <- factor(data$R5165600,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R5166800 <- factor(data$R5166800,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$R5166901 <- factor(data$R5166901,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$R5221800 <- factor(data$R5221800,
levels=c(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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"UNGRADED"))
data$R5267100[1.0 <= data$R5267100 & data$R5267100 <= 4.0] <- 1.0
data$R5267100[5.0 <= data$R5267100 & data$R5267100 <= 9.0] <- 5.0
data$R5267100[10.0 <= data$R5267100 & data$R5267100 <= 14.0] <- 10.0
data$R5267100[15.0 <= data$R5267100 & data$R5267100 <= 19.0] <- 15.0
data$R5267100[20.0 <= data$R5267100 & data$R5267100 <= 24.0] <- 20.0
data$R5267100[25.0 <= data$R5267100 & data$R5267100 <= 29.0] <- 25.0
data$R5267100[30.0 <= data$R5267100 & data$R5267100 <= 34.0] <- 30.0
data$R5267100[35.0 <= data$R5267100 & data$R5267100 <= 39.0] <- 35.0
data$R5267100[40.0 <= data$R5267100 & data$R5267100 <= 44.0] <- 40.0
data$R5267100[45.0 <= data$R5267100 & data$R5267100 <= 49.0] <- 45.0
data$R5267100[50.0 <= data$R5267100 & data$R5267100 <= 9.9999999E7] <- 50.0
data$R5267100 <- factor(data$R5267100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5267200[1.0 <= data$R5267200 & data$R5267200 <= 4.0] <- 1.0
data$R5267200[5.0 <= data$R5267200 & data$R5267200 <= 9.0] <- 5.0
data$R5267200[10.0 <= data$R5267200 & data$R5267200 <= 14.0] <- 10.0
data$R5267200[15.0 <= data$R5267200 & data$R5267200 <= 19.0] <- 15.0
data$R5267200[20.0 <= data$R5267200 & data$R5267200 <= 24.0] <- 20.0
data$R5267200[25.0 <= data$R5267200 & data$R5267200 <= 29.0] <- 25.0
data$R5267200[30.0 <= data$R5267200 & data$R5267200 <= 34.0] <- 30.0
data$R5267200[35.0 <= data$R5267200 & data$R5267200 <= 39.0] <- 35.0
data$R5267200[40.0 <= data$R5267200 & data$R5267200 <= 44.0] <- 40.0
data$R5267200[45.0 <= data$R5267200 & data$R5267200 <= 49.0] <- 45.0
data$R5267200[50.0 <= data$R5267200 & data$R5267200 <= 9.9999999E7] <- 50.0
data$R5267200 <- factor(data$R5267200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5267300 <- factor(data$R5267300,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R5267400[1.0 <= data$R5267400 & data$R5267400 <= 4.0] <- 1.0
data$R5267400[5.0 <= data$R5267400 & data$R5267400 <= 9.0] <- 5.0
data$R5267400[10.0 <= data$R5267400 & data$R5267400 <= 14.0] <- 10.0
data$R5267400[15.0 <= data$R5267400 & data$R5267400 <= 19.0] <- 15.0
data$R5267400[20.0 <= data$R5267400 & data$R5267400 <= 24.0] <- 20.0
data$R5267400[25.0 <= data$R5267400 & data$R5267400 <= 29.0] <- 25.0
data$R5267400[30.0 <= data$R5267400 & data$R5267400 <= 34.0] <- 30.0
data$R5267400[35.0 <= data$R5267400 & data$R5267400 <= 39.0] <- 35.0
data$R5267400[40.0 <= data$R5267400 & data$R5267400 <= 44.0] <- 40.0
data$R5267400[45.0 <= data$R5267400 & data$R5267400 <= 49.0] <- 45.0
data$R5267400[50.0 <= data$R5267400 & data$R5267400 <= 9.9999999E7] <- 50.0
data$R5267400 <- factor(data$R5267400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5307400[1.0 <= data$R5307400 & data$R5307400 <= 4.0] <- 1.0
data$R5307400[5.0 <= data$R5307400 & data$R5307400 <= 9.0] <- 5.0
data$R5307400[10.0 <= data$R5307400 & data$R5307400 <= 14.0] <- 10.0
data$R5307400[15.0 <= data$R5307400 & data$R5307400 <= 19.0] <- 15.0
data$R5307400[20.0 <= data$R5307400 & data$R5307400 <= 24.0] <- 20.0
data$R5307400[25.0 <= data$R5307400 & data$R5307400 <= 29.0] <- 25.0
data$R5307400[30.0 <= data$R5307400 & data$R5307400 <= 34.0] <- 30.0
data$R5307400[35.0 <= data$R5307400 & data$R5307400 <= 39.0] <- 35.0
data$R5307400[40.0 <= data$R5307400 & data$R5307400 <= 44.0] <- 40.0
data$R5307400[45.0 <= data$R5307400 & data$R5307400 <= 49.0] <- 45.0
data$R5307400[50.0 <= data$R5307400 & data$R5307400 <= 9.9999999E7] <- 50.0
data$R5307400 <- factor(data$R5307400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5307500[1.0 <= data$R5307500 & data$R5307500 <= 4.0] <- 1.0
data$R5307500[5.0 <= data$R5307500 & data$R5307500 <= 9.0] <- 5.0
data$R5307500[10.0 <= data$R5307500 & data$R5307500 <= 14.0] <- 10.0
data$R5307500[15.0 <= data$R5307500 & data$R5307500 <= 19.0] <- 15.0
data$R5307500[20.0 <= data$R5307500 & data$R5307500 <= 24.0] <- 20.0
data$R5307500[25.0 <= data$R5307500 & data$R5307500 <= 29.0] <- 25.0
data$R5307500[30.0 <= data$R5307500 & data$R5307500 <= 34.0] <- 30.0
data$R5307500[35.0 <= data$R5307500 & data$R5307500 <= 39.0] <- 35.0
data$R5307500[40.0 <= data$R5307500 & data$R5307500 <= 44.0] <- 40.0
data$R5307500[45.0 <= data$R5307500 & data$R5307500 <= 49.0] <- 45.0
data$R5307500[50.0 <= data$R5307500 & data$R5307500 <= 9.9999999E7] <- 50.0
data$R5307500 <- factor(data$R5307500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5307600 <- factor(data$R5307600,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R5307700[1.0 <= data$R5307700 & data$R5307700 <= 4.0] <- 1.0
data$R5307700[5.0 <= data$R5307700 & data$R5307700 <= 9.0] <- 5.0
data$R5307700[10.0 <= data$R5307700 & data$R5307700 <= 14.0] <- 10.0
data$R5307700[15.0 <= data$R5307700 & data$R5307700 <= 19.0] <- 15.0
data$R5307700[20.0 <= data$R5307700 & data$R5307700 <= 24.0] <- 20.0
data$R5307700[25.0 <= data$R5307700 & data$R5307700 <= 29.0] <- 25.0
data$R5307700[30.0 <= data$R5307700 & data$R5307700 <= 34.0] <- 30.0
data$R5307700[35.0 <= data$R5307700 & data$R5307700 <= 39.0] <- 35.0
data$R5307700[40.0 <= data$R5307700 & data$R5307700 <= 44.0] <- 40.0
data$R5307700[45.0 <= data$R5307700 & data$R5307700 <= 49.0] <- 45.0
data$R5307700[50.0 <= data$R5307700 & data$R5307700 <= 9.9999999E7] <- 50.0
data$R5307700 <- factor(data$R5307700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5346600[1.0 <= data$R5346600 & data$R5346600 <= 4.0] <- 1.0
data$R5346600[5.0 <= data$R5346600 & data$R5346600 <= 9.0] <- 5.0
data$R5346600[10.0 <= data$R5346600 & data$R5346600 <= 14.0] <- 10.0
data$R5346600[15.0 <= data$R5346600 & data$R5346600 <= 19.0] <- 15.0
data$R5346600[20.0 <= data$R5346600 & data$R5346600 <= 24.0] <- 20.0
data$R5346600[25.0 <= data$R5346600 & data$R5346600 <= 29.0] <- 25.0
data$R5346600[30.0 <= data$R5346600 & data$R5346600 <= 34.0] <- 30.0
data$R5346600[35.0 <= data$R5346600 & data$R5346600 <= 39.0] <- 35.0
data$R5346600[40.0 <= data$R5346600 & data$R5346600 <= 44.0] <- 40.0
data$R5346600[45.0 <= data$R5346600 & data$R5346600 <= 49.0] <- 45.0
data$R5346600[50.0 <= data$R5346600 & data$R5346600 <= 9.9999999E7] <- 50.0
data$R5346600 <- factor(data$R5346600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5346700[1.0 <= data$R5346700 & data$R5346700 <= 4.0] <- 1.0
data$R5346700[5.0 <= data$R5346700 & data$R5346700 <= 9.0] <- 5.0
data$R5346700[10.0 <= data$R5346700 & data$R5346700 <= 14.0] <- 10.0
data$R5346700[15.0 <= data$R5346700 & data$R5346700 <= 19.0] <- 15.0
data$R5346700[20.0 <= data$R5346700 & data$R5346700 <= 24.0] <- 20.0
data$R5346700[25.0 <= data$R5346700 & data$R5346700 <= 29.0] <- 25.0
data$R5346700[30.0 <= data$R5346700 & data$R5346700 <= 34.0] <- 30.0
data$R5346700[35.0 <= data$R5346700 & data$R5346700 <= 39.0] <- 35.0
data$R5346700[40.0 <= data$R5346700 & data$R5346700 <= 44.0] <- 40.0
data$R5346700[45.0 <= data$R5346700 & data$R5346700 <= 49.0] <- 45.0
data$R5346700[50.0 <= data$R5346700 & data$R5346700 <= 9.9999999E7] <- 50.0
data$R5346700 <- factor(data$R5346700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5346800 <- factor(data$R5346800,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R5346900[1.0 <= data$R5346900 & data$R5346900 <= 4.0] <- 1.0
data$R5346900[5.0 <= data$R5346900 & data$R5346900 <= 9.0] <- 5.0
data$R5346900[10.0 <= data$R5346900 & data$R5346900 <= 14.0] <- 10.0
data$R5346900[15.0 <= data$R5346900 & data$R5346900 <= 19.0] <- 15.0
data$R5346900[20.0 <= data$R5346900 & data$R5346900 <= 24.0] <- 20.0
data$R5346900[25.0 <= data$R5346900 & data$R5346900 <= 29.0] <- 25.0
data$R5346900[30.0 <= data$R5346900 & data$R5346900 <= 34.0] <- 30.0
data$R5346900[35.0 <= data$R5346900 & data$R5346900 <= 39.0] <- 35.0
data$R5346900[40.0 <= data$R5346900 & data$R5346900 <= 44.0] <- 40.0
data$R5346900[45.0 <= data$R5346900 & data$R5346900 <= 49.0] <- 45.0
data$R5346900[50.0 <= data$R5346900 & data$R5346900 <= 9.9999999E7] <- 50.0
data$R5346900 <- factor(data$R5346900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5383700[1.0 <= data$R5383700 & data$R5383700 <= 4.0] <- 1.0
data$R5383700[5.0 <= data$R5383700 & data$R5383700 <= 9.0] <- 5.0
data$R5383700[10.0 <= data$R5383700 & data$R5383700 <= 14.0] <- 10.0
data$R5383700[15.0 <= data$R5383700 & data$R5383700 <= 19.0] <- 15.0
data$R5383700[20.0 <= data$R5383700 & data$R5383700 <= 24.0] <- 20.0
data$R5383700[25.0 <= data$R5383700 & data$R5383700 <= 29.0] <- 25.0
data$R5383700[30.0 <= data$R5383700 & data$R5383700 <= 34.0] <- 30.0
data$R5383700[35.0 <= data$R5383700 & data$R5383700 <= 39.0] <- 35.0
data$R5383700[40.0 <= data$R5383700 & data$R5383700 <= 44.0] <- 40.0
data$R5383700[45.0 <= data$R5383700 & data$R5383700 <= 49.0] <- 45.0
data$R5383700[50.0 <= data$R5383700 & data$R5383700 <= 9.9999999E7] <- 50.0
data$R5383700 <- factor(data$R5383700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5383800[1.0 <= data$R5383800 & data$R5383800 <= 4.0] <- 1.0
data$R5383800[5.0 <= data$R5383800 & data$R5383800 <= 9.0] <- 5.0
data$R5383800[10.0 <= data$R5383800 & data$R5383800 <= 14.0] <- 10.0
data$R5383800[15.0 <= data$R5383800 & data$R5383800 <= 19.0] <- 15.0
data$R5383800[20.0 <= data$R5383800 & data$R5383800 <= 24.0] <- 20.0
data$R5383800[25.0 <= data$R5383800 & data$R5383800 <= 29.0] <- 25.0
data$R5383800[30.0 <= data$R5383800 & data$R5383800 <= 34.0] <- 30.0
data$R5383800[35.0 <= data$R5383800 & data$R5383800 <= 39.0] <- 35.0
data$R5383800[40.0 <= data$R5383800 & data$R5383800 <= 44.0] <- 40.0
data$R5383800[45.0 <= data$R5383800 & data$R5383800 <= 49.0] <- 45.0
data$R5383800[50.0 <= data$R5383800 & data$R5383800 <= 9.9999999E7] <- 50.0
data$R5383800 <- factor(data$R5383800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5383900 <- factor(data$R5383900,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R5384000[1.0 <= data$R5384000 & data$R5384000 <= 4.0] <- 1.0
data$R5384000[5.0 <= data$R5384000 & data$R5384000 <= 9.0] <- 5.0
data$R5384000[10.0 <= data$R5384000 & data$R5384000 <= 14.0] <- 10.0
data$R5384000[15.0 <= data$R5384000 & data$R5384000 <= 19.0] <- 15.0
data$R5384000[20.0 <= data$R5384000 & data$R5384000 <= 24.0] <- 20.0
data$R5384000[25.0 <= data$R5384000 & data$R5384000 <= 29.0] <- 25.0
data$R5384000[30.0 <= data$R5384000 & data$R5384000 <= 34.0] <- 30.0
data$R5384000[35.0 <= data$R5384000 & data$R5384000 <= 39.0] <- 35.0
data$R5384000[40.0 <= data$R5384000 & data$R5384000 <= 44.0] <- 40.0
data$R5384000[45.0 <= data$R5384000 & data$R5384000 <= 49.0] <- 45.0
data$R5384000[50.0 <= data$R5384000 & data$R5384000 <= 9.9999999E7] <- 50.0
data$R5384000 <- factor(data$R5384000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5418200[1.0 <= data$R5418200 & data$R5418200 <= 4.0] <- 1.0
data$R5418200[5.0 <= data$R5418200 & data$R5418200 <= 9.0] <- 5.0
data$R5418200[10.0 <= data$R5418200 & data$R5418200 <= 14.0] <- 10.0
data$R5418200[15.0 <= data$R5418200 & data$R5418200 <= 19.0] <- 15.0
data$R5418200[20.0 <= data$R5418200 & data$R5418200 <= 24.0] <- 20.0
data$R5418200[25.0 <= data$R5418200 & data$R5418200 <= 29.0] <- 25.0
data$R5418200[30.0 <= data$R5418200 & data$R5418200 <= 34.0] <- 30.0
data$R5418200[35.0 <= data$R5418200 & data$R5418200 <= 39.0] <- 35.0
data$R5418200[40.0 <= data$R5418200 & data$R5418200 <= 44.0] <- 40.0
data$R5418200[45.0 <= data$R5418200 & data$R5418200 <= 49.0] <- 45.0
data$R5418200[50.0 <= data$R5418200 & data$R5418200 <= 9.9999999E7] <- 50.0
data$R5418200 <- factor(data$R5418200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5418300[1.0 <= data$R5418300 & data$R5418300 <= 4.0] <- 1.0
data$R5418300[5.0 <= data$R5418300 & data$R5418300 <= 9.0] <- 5.0
data$R5418300[10.0 <= data$R5418300 & data$R5418300 <= 14.0] <- 10.0
data$R5418300[15.0 <= data$R5418300 & data$R5418300 <= 19.0] <- 15.0
data$R5418300[20.0 <= data$R5418300 & data$R5418300 <= 24.0] <- 20.0
data$R5418300[25.0 <= data$R5418300 & data$R5418300 <= 29.0] <- 25.0
data$R5418300[30.0 <= data$R5418300 & data$R5418300 <= 34.0] <- 30.0
data$R5418300[35.0 <= data$R5418300 & data$R5418300 <= 39.0] <- 35.0
data$R5418300[40.0 <= data$R5418300 & data$R5418300 <= 44.0] <- 40.0
data$R5418300[45.0 <= data$R5418300 & data$R5418300 <= 49.0] <- 45.0
data$R5418300[50.0 <= data$R5418300 & data$R5418300 <= 9.9999999E7] <- 50.0
data$R5418300 <- factor(data$R5418300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5418400 <- factor(data$R5418400,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R5418500[1.0 <= data$R5418500 & data$R5418500 <= 4.0] <- 1.0
data$R5418500[5.0 <= data$R5418500 & data$R5418500 <= 9.0] <- 5.0
data$R5418500[10.0 <= data$R5418500 & data$R5418500 <= 14.0] <- 10.0
data$R5418500[15.0 <= data$R5418500 & data$R5418500 <= 19.0] <- 15.0
data$R5418500[20.0 <= data$R5418500 & data$R5418500 <= 24.0] <- 20.0
data$R5418500[25.0 <= data$R5418500 & data$R5418500 <= 29.0] <- 25.0
data$R5418500[30.0 <= data$R5418500 & data$R5418500 <= 34.0] <- 30.0
data$R5418500[35.0 <= data$R5418500 & data$R5418500 <= 39.0] <- 35.0
data$R5418500[40.0 <= data$R5418500 & data$R5418500 <= 44.0] <- 40.0
data$R5418500[45.0 <= data$R5418500 & data$R5418500 <= 49.0] <- 45.0
data$R5418500[50.0 <= data$R5418500 & data$R5418500 <= 9.9999999E7] <- 50.0
data$R5418500 <- factor(data$R5418500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5821800 <- factor(data$R5821800,
levels=c(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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"UNGRADED"))
data$R5912600[1.0 <= data$R5912600 & data$R5912600 <= 4.0] <- 1.0
data$R5912600[5.0 <= data$R5912600 & data$R5912600 <= 9.0] <- 5.0
data$R5912600[10.0 <= data$R5912600 & data$R5912600 <= 14.0] <- 10.0
data$R5912600[15.0 <= data$R5912600 & data$R5912600 <= 19.0] <- 15.0
data$R5912600[20.0 <= data$R5912600 & data$R5912600 <= 24.0] <- 20.0
data$R5912600[25.0 <= data$R5912600 & data$R5912600 <= 29.0] <- 25.0
data$R5912600[30.0 <= data$R5912600 & data$R5912600 <= 34.0] <- 30.0
data$R5912600[35.0 <= data$R5912600 & data$R5912600 <= 39.0] <- 35.0
data$R5912600[40.0 <= data$R5912600 & data$R5912600 <= 44.0] <- 40.0
data$R5912600[45.0 <= data$R5912600 & data$R5912600 <= 49.0] <- 45.0
data$R5912600[50.0 <= data$R5912600 & data$R5912600 <= 9.9999999E7] <- 50.0
data$R5912600 <- factor(data$R5912600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5912700[1.0 <= data$R5912700 & data$R5912700 <= 4.0] <- 1.0
data$R5912700[5.0 <= data$R5912700 & data$R5912700 <= 9.0] <- 5.0
data$R5912700[10.0 <= data$R5912700 & data$R5912700 <= 14.0] <- 10.0
data$R5912700[15.0 <= data$R5912700 & data$R5912700 <= 19.0] <- 15.0
data$R5912700[20.0 <= data$R5912700 & data$R5912700 <= 24.0] <- 20.0
data$R5912700[25.0 <= data$R5912700 & data$R5912700 <= 29.0] <- 25.0
data$R5912700[30.0 <= data$R5912700 & data$R5912700 <= 34.0] <- 30.0
data$R5912700[35.0 <= data$R5912700 & data$R5912700 <= 39.0] <- 35.0
data$R5912700[40.0 <= data$R5912700 & data$R5912700 <= 44.0] <- 40.0
data$R5912700[45.0 <= data$R5912700 & data$R5912700 <= 49.0] <- 45.0
data$R5912700[50.0 <= data$R5912700 & data$R5912700 <= 9.9999999E7] <- 50.0
data$R5912700 <- factor(data$R5912700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5912800[1.0 <= data$R5912800 & data$R5912800 <= 4.0] <- 1.0
data$R5912800[5.0 <= data$R5912800 & data$R5912800 <= 9.0] <- 5.0
data$R5912800[10.0 <= data$R5912800 & data$R5912800 <= 14.0] <- 10.0
data$R5912800[15.0 <= data$R5912800 & data$R5912800 <= 19.0] <- 15.0
data$R5912800[20.0 <= data$R5912800 & data$R5912800 <= 24.0] <- 20.0
data$R5912800[25.0 <= data$R5912800 & data$R5912800 <= 29.0] <- 25.0
data$R5912800[30.0 <= data$R5912800 & data$R5912800 <= 34.0] <- 30.0
data$R5912800[35.0 <= data$R5912800 & data$R5912800 <= 39.0] <- 35.0
data$R5912800[40.0 <= data$R5912800 & data$R5912800 <= 44.0] <- 40.0
data$R5912800[45.0 <= data$R5912800 & data$R5912800 <= 49.0] <- 45.0
data$R5912800[50.0 <= data$R5912800 & data$R5912800 <= 9.9999999E7] <- 50.0
data$R5912800 <- factor(data$R5912800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5912900[1.0 <= data$R5912900 & data$R5912900 <= 4.0] <- 1.0
data$R5912900[5.0 <= data$R5912900 & data$R5912900 <= 9.0] <- 5.0
data$R5912900[10.0 <= data$R5912900 & data$R5912900 <= 14.0] <- 10.0
data$R5912900[15.0 <= data$R5912900 & data$R5912900 <= 19.0] <- 15.0
data$R5912900[20.0 <= data$R5912900 & data$R5912900 <= 24.0] <- 20.0
data$R5912900[25.0 <= data$R5912900 & data$R5912900 <= 29.0] <- 25.0
data$R5912900[30.0 <= data$R5912900 & data$R5912900 <= 34.0] <- 30.0
data$R5912900[35.0 <= data$R5912900 & data$R5912900 <= 39.0] <- 35.0
data$R5912900[40.0 <= data$R5912900 & data$R5912900 <= 44.0] <- 40.0
data$R5912900[45.0 <= data$R5912900 & data$R5912900 <= 49.0] <- 45.0
data$R5912900[50.0 <= data$R5912900 & data$R5912900 <= 9.9999999E7] <- 50.0
data$R5912900 <- factor(data$R5912900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5913000[1.0 <= data$R5913000 & data$R5913000 <= 4.0] <- 1.0
data$R5913000[5.0 <= data$R5913000 & data$R5913000 <= 9.0] <- 5.0
data$R5913000[10.0 <= data$R5913000 & data$R5913000 <= 14.0] <- 10.0
data$R5913000[15.0 <= data$R5913000 & data$R5913000 <= 19.0] <- 15.0
data$R5913000[20.0 <= data$R5913000 & data$R5913000 <= 24.0] <- 20.0
data$R5913000[25.0 <= data$R5913000 & data$R5913000 <= 29.0] <- 25.0
data$R5913000[30.0 <= data$R5913000 & data$R5913000 <= 34.0] <- 30.0
data$R5913000[35.0 <= data$R5913000 & data$R5913000 <= 39.0] <- 35.0
data$R5913000[40.0 <= data$R5913000 & data$R5913000 <= 44.0] <- 40.0
data$R5913000[45.0 <= data$R5913000 & data$R5913000 <= 49.0] <- 45.0
data$R5913000[50.0 <= data$R5913000 & data$R5913000 <= 9.9999999E7] <- 50.0
data$R5913000 <- factor(data$R5913000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5913800[1.0 <= data$R5913800 & data$R5913800 <= 4.0] <- 1.0
data$R5913800[5.0 <= data$R5913800 & data$R5913800 <= 9.0] <- 5.0
data$R5913800[10.0 <= data$R5913800 & data$R5913800 <= 14.0] <- 10.0
data$R5913800[15.0 <= data$R5913800 & data$R5913800 <= 19.0] <- 15.0
data$R5913800[20.0 <= data$R5913800 & data$R5913800 <= 24.0] <- 20.0
data$R5913800[25.0 <= data$R5913800 & data$R5913800 <= 29.0] <- 25.0
data$R5913800[30.0 <= data$R5913800 & data$R5913800 <= 34.0] <- 30.0
data$R5913800[35.0 <= data$R5913800 & data$R5913800 <= 39.0] <- 35.0
data$R5913800[40.0 <= data$R5913800 & data$R5913800 <= 44.0] <- 40.0
data$R5913800[45.0 <= data$R5913800 & data$R5913800 <= 49.0] <- 45.0
data$R5913800[50.0 <= data$R5913800 & data$R5913800 <= 9.9999999E7] <- 50.0
data$R5913800 <- factor(data$R5913800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5913900[1.0 <= data$R5913900 & data$R5913900 <= 4.0] <- 1.0
data$R5913900[5.0 <= data$R5913900 & data$R5913900 <= 9.0] <- 5.0
data$R5913900[10.0 <= data$R5913900 & data$R5913900 <= 14.0] <- 10.0
data$R5913900[15.0 <= data$R5913900 & data$R5913900 <= 19.0] <- 15.0
data$R5913900[20.0 <= data$R5913900 & data$R5913900 <= 24.0] <- 20.0
data$R5913900[25.0 <= data$R5913900 & data$R5913900 <= 29.0] <- 25.0
data$R5913900[30.0 <= data$R5913900 & data$R5913900 <= 34.0] <- 30.0
data$R5913900[35.0 <= data$R5913900 & data$R5913900 <= 39.0] <- 35.0
data$R5913900[40.0 <= data$R5913900 & data$R5913900 <= 44.0] <- 40.0
data$R5913900[45.0 <= data$R5913900 & data$R5913900 <= 49.0] <- 45.0
data$R5913900[50.0 <= data$R5913900 & data$R5913900 <= 9.9999999E7] <- 50.0
data$R5913900 <- factor(data$R5913900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5914000[1.0 <= data$R5914000 & data$R5914000 <= 4.0] <- 1.0
data$R5914000[5.0 <= data$R5914000 & data$R5914000 <= 9.0] <- 5.0
data$R5914000[10.0 <= data$R5914000 & data$R5914000 <= 14.0] <- 10.0
data$R5914000[15.0 <= data$R5914000 & data$R5914000 <= 19.0] <- 15.0
data$R5914000[20.0 <= data$R5914000 & data$R5914000 <= 24.0] <- 20.0
data$R5914000[25.0 <= data$R5914000 & data$R5914000 <= 29.0] <- 25.0
data$R5914000[30.0 <= data$R5914000 & data$R5914000 <= 34.0] <- 30.0
data$R5914000[35.0 <= data$R5914000 & data$R5914000 <= 39.0] <- 35.0
data$R5914000[40.0 <= data$R5914000 & data$R5914000 <= 44.0] <- 40.0
data$R5914000[45.0 <= data$R5914000 & data$R5914000 <= 49.0] <- 45.0
data$R5914000[50.0 <= data$R5914000 & data$R5914000 <= 9.9999999E7] <- 50.0
data$R5914000 <- factor(data$R5914000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5914100[1.0 <= data$R5914100 & data$R5914100 <= 4.0] <- 1.0
data$R5914100[5.0 <= data$R5914100 & data$R5914100 <= 9.0] <- 5.0
data$R5914100[10.0 <= data$R5914100 & data$R5914100 <= 14.0] <- 10.0
data$R5914100[15.0 <= data$R5914100 & data$R5914100 <= 19.0] <- 15.0
data$R5914100[20.0 <= data$R5914100 & data$R5914100 <= 24.0] <- 20.0
data$R5914100[25.0 <= data$R5914100 & data$R5914100 <= 29.0] <- 25.0
data$R5914100[30.0 <= data$R5914100 & data$R5914100 <= 34.0] <- 30.0
data$R5914100[35.0 <= data$R5914100 & data$R5914100 <= 39.0] <- 35.0
data$R5914100[40.0 <= data$R5914100 & data$R5914100 <= 44.0] <- 40.0
data$R5914100[45.0 <= data$R5914100 & data$R5914100 <= 49.0] <- 45.0
data$R5914100[50.0 <= data$R5914100 & data$R5914100 <= 9.9999999E7] <- 50.0
data$R5914100 <- factor(data$R5914100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5914200[1.0 <= data$R5914200 & data$R5914200 <= 4.0] <- 1.0
data$R5914200[5.0 <= data$R5914200 & data$R5914200 <= 9.0] <- 5.0
data$R5914200[10.0 <= data$R5914200 & data$R5914200 <= 14.0] <- 10.0
data$R5914200[15.0 <= data$R5914200 & data$R5914200 <= 19.0] <- 15.0
data$R5914200[20.0 <= data$R5914200 & data$R5914200 <= 24.0] <- 20.0
data$R5914200[25.0 <= data$R5914200 & data$R5914200 <= 29.0] <- 25.0
data$R5914200[30.0 <= data$R5914200 & data$R5914200 <= 34.0] <- 30.0
data$R5914200[35.0 <= data$R5914200 & data$R5914200 <= 39.0] <- 35.0
data$R5914200[40.0 <= data$R5914200 & data$R5914200 <= 44.0] <- 40.0
data$R5914200[45.0 <= data$R5914200 & data$R5914200 <= 49.0] <- 45.0
data$R5914200[50.0 <= data$R5914200 & data$R5914200 <= 9.9999999E7] <- 50.0
data$R5914200 <- factor(data$R5914200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5916200[1.0 <= data$R5916200 & data$R5916200 <= 4.0] <- 1.0
data$R5916200[5.0 <= data$R5916200 & data$R5916200 <= 9.0] <- 5.0
data$R5916200[10.0 <= data$R5916200 & data$R5916200 <= 14.0] <- 10.0
data$R5916200[15.0 <= data$R5916200 & data$R5916200 <= 19.0] <- 15.0
data$R5916200[20.0 <= data$R5916200 & data$R5916200 <= 24.0] <- 20.0
data$R5916200[25.0 <= data$R5916200 & data$R5916200 <= 29.0] <- 25.0
data$R5916200[30.0 <= data$R5916200 & data$R5916200 <= 34.0] <- 30.0
data$R5916200[35.0 <= data$R5916200 & data$R5916200 <= 39.0] <- 35.0
data$R5916200[40.0 <= data$R5916200 & data$R5916200 <= 44.0] <- 40.0
data$R5916200[45.0 <= data$R5916200 & data$R5916200 <= 49.0] <- 45.0
data$R5916200[50.0 <= data$R5916200 & data$R5916200 <= 9.9999999E7] <- 50.0
data$R5916200 <- factor(data$R5916200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5916300[1.0 <= data$R5916300 & data$R5916300 <= 4.0] <- 1.0
data$R5916300[5.0 <= data$R5916300 & data$R5916300 <= 9.0] <- 5.0
data$R5916300[10.0 <= data$R5916300 & data$R5916300 <= 14.0] <- 10.0
data$R5916300[15.0 <= data$R5916300 & data$R5916300 <= 19.0] <- 15.0
data$R5916300[20.0 <= data$R5916300 & data$R5916300 <= 24.0] <- 20.0
data$R5916300[25.0 <= data$R5916300 & data$R5916300 <= 29.0] <- 25.0
data$R5916300[30.0 <= data$R5916300 & data$R5916300 <= 34.0] <- 30.0
data$R5916300[35.0 <= data$R5916300 & data$R5916300 <= 39.0] <- 35.0
data$R5916300[40.0 <= data$R5916300 & data$R5916300 <= 44.0] <- 40.0
data$R5916300[45.0 <= data$R5916300 & data$R5916300 <= 49.0] <- 45.0
data$R5916300[50.0 <= data$R5916300 & data$R5916300 <= 9.9999999E7] <- 50.0
data$R5916300 <- factor(data$R5916300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5916400[1.0 <= data$R5916400 & data$R5916400 <= 4.0] <- 1.0
data$R5916400[5.0 <= data$R5916400 & data$R5916400 <= 9.0] <- 5.0
data$R5916400[10.0 <= data$R5916400 & data$R5916400 <= 14.0] <- 10.0
data$R5916400[15.0 <= data$R5916400 & data$R5916400 <= 19.0] <- 15.0
data$R5916400[20.0 <= data$R5916400 & data$R5916400 <= 24.0] <- 20.0
data$R5916400[25.0 <= data$R5916400 & data$R5916400 <= 29.0] <- 25.0
data$R5916400[30.0 <= data$R5916400 & data$R5916400 <= 34.0] <- 30.0
data$R5916400[35.0 <= data$R5916400 & data$R5916400 <= 39.0] <- 35.0
data$R5916400[40.0 <= data$R5916400 & data$R5916400 <= 44.0] <- 40.0
data$R5916400[45.0 <= data$R5916400 & data$R5916400 <= 49.0] <- 45.0
data$R5916400[50.0 <= data$R5916400 & data$R5916400 <= 9.9999999E7] <- 50.0
data$R5916400 <- factor(data$R5916400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5916500[1.0 <= data$R5916500 & data$R5916500 <= 4.0] <- 1.0
data$R5916500[5.0 <= data$R5916500 & data$R5916500 <= 9.0] <- 5.0
data$R5916500[10.0 <= data$R5916500 & data$R5916500 <= 14.0] <- 10.0
data$R5916500[15.0 <= data$R5916500 & data$R5916500 <= 19.0] <- 15.0
data$R5916500[20.0 <= data$R5916500 & data$R5916500 <= 24.0] <- 20.0
data$R5916500[25.0 <= data$R5916500 & data$R5916500 <= 29.0] <- 25.0
data$R5916500[30.0 <= data$R5916500 & data$R5916500 <= 34.0] <- 30.0
data$R5916500[35.0 <= data$R5916500 & data$R5916500 <= 39.0] <- 35.0
data$R5916500[40.0 <= data$R5916500 & data$R5916500 <= 44.0] <- 40.0
data$R5916500[45.0 <= data$R5916500 & data$R5916500 <= 49.0] <- 45.0
data$R5916500[50.0 <= data$R5916500 & data$R5916500 <= 9.9999999E7] <- 50.0
data$R5916500 <- factor(data$R5916500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R5916600[1.0 <= data$R5916600 & data$R5916600 <= 4.0] <- 1.0
data$R5916600[5.0 <= data$R5916600 & data$R5916600 <= 9.0] <- 5.0
data$R5916600[10.0 <= data$R5916600 & data$R5916600 <= 14.0] <- 10.0
data$R5916600[15.0 <= data$R5916600 & data$R5916600 <= 19.0] <- 15.0
data$R5916600[20.0 <= data$R5916600 & data$R5916600 <= 24.0] <- 20.0
data$R5916600[25.0 <= data$R5916600 & data$R5916600 <= 29.0] <- 25.0
data$R5916600[30.0 <= data$R5916600 & data$R5916600 <= 34.0] <- 30.0
data$R5916600[35.0 <= data$R5916600 & data$R5916600 <= 39.0] <- 35.0
data$R5916600[40.0 <= data$R5916600 & data$R5916600 <= 44.0] <- 40.0
data$R5916600[45.0 <= data$R5916600 & data$R5916600 <= 49.0] <- 45.0
data$R5916600[50.0 <= data$R5916600 & data$R5916600 <= 9.9999999E7] <- 50.0
data$R5916600 <- factor(data$R5916600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R6478000[1.0 <= data$R6478000 & data$R6478000 <= 499.0] <- 1.0
data$R6478000[500.0 <= data$R6478000 & data$R6478000 <= 999.0] <- 500.0
data$R6478000[1000.0 <= data$R6478000 & data$R6478000 <= 1499.0] <- 1000.0
data$R6478000[1500.0 <= data$R6478000 & data$R6478000 <= 1999.0] <- 1500.0
data$R6478000[2000.0 <= data$R6478000 & data$R6478000 <= 2499.0] <- 2000.0
data$R6478000[2500.0 <= data$R6478000 & data$R6478000 <= 2999.0] <- 2500.0
data$R6478000[3000.0 <= data$R6478000 & data$R6478000 <= 3499.0] <- 3000.0
data$R6478000[3500.0 <= data$R6478000 & data$R6478000 <= 3999.0] <- 3500.0
data$R6478000[4000.0 <= data$R6478000 & data$R6478000 <= 4499.0] <- 4000.0
data$R6478000[4500.0 <= data$R6478000 & data$R6478000 <= 4999.0] <- 4500.0
data$R6478000[5000.0 <= data$R6478000 & data$R6478000 <= 9.9999999E7] <- 5000.0
data$R6478000 <- factor(data$R6478000,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R6478100[1.0 <= data$R6478100 & data$R6478100 <= 499.0] <- 1.0
data$R6478100[500.0 <= data$R6478100 & data$R6478100 <= 999.0] <- 500.0
data$R6478100[1000.0 <= data$R6478100 & data$R6478100 <= 1499.0] <- 1000.0
data$R6478100[1500.0 <= data$R6478100 & data$R6478100 <= 1999.0] <- 1500.0
data$R6478100[2000.0 <= data$R6478100 & data$R6478100 <= 2499.0] <- 2000.0
data$R6478100[2500.0 <= data$R6478100 & data$R6478100 <= 2999.0] <- 2500.0
data$R6478100[3000.0 <= data$R6478100 & data$R6478100 <= 3499.0] <- 3000.0
data$R6478100[3500.0 <= data$R6478100 & data$R6478100 <= 3999.0] <- 3500.0
data$R6478100[4000.0 <= data$R6478100 & data$R6478100 <= 4499.0] <- 4000.0
data$R6478100[4500.0 <= data$R6478100 & data$R6478100 <= 4999.0] <- 4500.0
data$R6478100[5000.0 <= data$R6478100 & data$R6478100 <= 9.9999999E7] <- 5000.0
data$R6478100 <- factor(data$R6478100,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R6478200[1.0 <= data$R6478200 & data$R6478200 <= 499.0] <- 1.0
data$R6478200[500.0 <= data$R6478200 & data$R6478200 <= 999.0] <- 500.0
data$R6478200[1000.0 <= data$R6478200 & data$R6478200 <= 1499.0] <- 1000.0
data$R6478200[1500.0 <= data$R6478200 & data$R6478200 <= 1999.0] <- 1500.0
data$R6478200[2000.0 <= data$R6478200 & data$R6478200 <= 2499.0] <- 2000.0
data$R6478200[2500.0 <= data$R6478200 & data$R6478200 <= 2999.0] <- 2500.0
data$R6478200[3000.0 <= data$R6478200 & data$R6478200 <= 3499.0] <- 3000.0
data$R6478200[3500.0 <= data$R6478200 & data$R6478200 <= 3999.0] <- 3500.0
data$R6478200[4000.0 <= data$R6478200 & data$R6478200 <= 4499.0] <- 4000.0
data$R6478200[4500.0 <= data$R6478200 & data$R6478200 <= 4999.0] <- 4500.0
data$R6478200[5000.0 <= data$R6478200 & data$R6478200 <= 9.9999999E7] <- 5000.0
data$R6478200 <- factor(data$R6478200,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R6478300[1.0 <= data$R6478300 & data$R6478300 <= 499.0] <- 1.0
data$R6478300[500.0 <= data$R6478300 & data$R6478300 <= 999.0] <- 500.0
data$R6478300[1000.0 <= data$R6478300 & data$R6478300 <= 1499.0] <- 1000.0
data$R6478300[1500.0 <= data$R6478300 & data$R6478300 <= 1999.0] <- 1500.0
data$R6478300[2000.0 <= data$R6478300 & data$R6478300 <= 2499.0] <- 2000.0
data$R6478300[2500.0 <= data$R6478300 & data$R6478300 <= 2999.0] <- 2500.0
data$R6478300[3000.0 <= data$R6478300 & data$R6478300 <= 3499.0] <- 3000.0
data$R6478300[3500.0 <= data$R6478300 & data$R6478300 <= 3999.0] <- 3500.0
data$R6478300[4000.0 <= data$R6478300 & data$R6478300 <= 4499.0] <- 4000.0
data$R6478300[4500.0 <= data$R6478300 & data$R6478300 <= 4999.0] <- 4500.0
data$R6478300[5000.0 <= data$R6478300 & data$R6478300 <= 9.9999999E7] <- 5000.0
data$R6478300 <- factor(data$R6478300,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R6478400[1.0 <= data$R6478400 & data$R6478400 <= 499.0] <- 1.0
data$R6478400[500.0 <= data$R6478400 & data$R6478400 <= 999.0] <- 500.0
data$R6478400[1000.0 <= data$R6478400 & data$R6478400 <= 1499.0] <- 1000.0
data$R6478400[1500.0 <= data$R6478400 & data$R6478400 <= 1999.0] <- 1500.0
data$R6478400[2000.0 <= data$R6478400 & data$R6478400 <= 2499.0] <- 2000.0
data$R6478400[2500.0 <= data$R6478400 & data$R6478400 <= 2999.0] <- 2500.0
data$R6478400[3000.0 <= data$R6478400 & data$R6478400 <= 3499.0] <- 3000.0
data$R6478400[3500.0 <= data$R6478400 & data$R6478400 <= 3999.0] <- 3500.0
data$R6478400[4000.0 <= data$R6478400 & data$R6478400 <= 4499.0] <- 4000.0
data$R6478400[4500.0 <= data$R6478400 & data$R6478400 <= 4999.0] <- 4500.0
data$R6478400[5000.0 <= data$R6478400 & data$R6478400 <= 9.9999999E7] <- 5000.0
data$R6478400 <- factor(data$R6478400,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R6479400 <- factor(data$R6479400,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$R6479600 <- factor(data$R6479600,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$R6504200[1.0 <= data$R6504200 & data$R6504200 <= 9.0] <- 1.0
data$R6504200[10.0 <= data$R6504200 & data$R6504200 <= 19.0] <- 10.0
data$R6504200[20.0 <= data$R6504200 & data$R6504200 <= 29.0] <- 20.0
data$R6504200[30.0 <= data$R6504200 & data$R6504200 <= 39.0] <- 30.0
data$R6504200[40.0 <= data$R6504200 & data$R6504200 <= 49.0] <- 40.0
data$R6504200[50.0 <= data$R6504200 & data$R6504200 <= 59.0] <- 50.0
data$R6504200[60.0 <= data$R6504200 & data$R6504200 <= 69.0] <- 60.0
data$R6504200[70.0 <= data$R6504200 & data$R6504200 <= 79.0] <- 70.0
data$R6504200[80.0 <= data$R6504200 & data$R6504200 <= 89.0] <- 80.0
data$R6504200[90.0 <= data$R6504200 & data$R6504200 <= 99.0] <- 90.0
data$R6504200[100.0 <= data$R6504200 & data$R6504200 <= 9.9999999E7] <- 100.0
data$R6504200 <- factor(data$R6504200,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$R6504300[1.0 <= data$R6504300 & data$R6504300 <= 9.0] <- 1.0
data$R6504300[10.0 <= data$R6504300 & data$R6504300 <= 19.0] <- 10.0
data$R6504300[20.0 <= data$R6504300 & data$R6504300 <= 29.0] <- 20.0
data$R6504300[30.0 <= data$R6504300 & data$R6504300 <= 39.0] <- 30.0
data$R6504300[40.0 <= data$R6504300 & data$R6504300 <= 49.0] <- 40.0
data$R6504300[50.0 <= data$R6504300 & data$R6504300 <= 59.0] <- 50.0
data$R6504300[60.0 <= data$R6504300 & data$R6504300 <= 69.0] <- 60.0
data$R6504300[70.0 <= data$R6504300 & data$R6504300 <= 79.0] <- 70.0
data$R6504300[80.0 <= data$R6504300 & data$R6504300 <= 89.0] <- 80.0
data$R6504300[90.0 <= data$R6504300 & data$R6504300 <= 99.0] <- 90.0
data$R6504300[100.0 <= data$R6504300 & data$R6504300 <= 9.9999999E7] <- 100.0
data$R6504300 <- factor(data$R6504300,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$R6504400[1.0 <= data$R6504400 & data$R6504400 <= 9.0] <- 1.0
data$R6504400[10.0 <= data$R6504400 & data$R6504400 <= 19.0] <- 10.0
data$R6504400[20.0 <= data$R6504400 & data$R6504400 <= 29.0] <- 20.0
data$R6504400[30.0 <= data$R6504400 & data$R6504400 <= 39.0] <- 30.0
data$R6504400[40.0 <= data$R6504400 & data$R6504400 <= 49.0] <- 40.0
data$R6504400[50.0 <= data$R6504400 & data$R6504400 <= 59.0] <- 50.0
data$R6504400[60.0 <= data$R6504400 & data$R6504400 <= 69.0] <- 60.0
data$R6504400[70.0 <= data$R6504400 & data$R6504400 <= 79.0] <- 70.0
data$R6504400[80.0 <= data$R6504400 & data$R6504400 <= 89.0] <- 80.0
data$R6504400[90.0 <= data$R6504400 & data$R6504400 <= 99.0] <- 90.0
data$R6504400[100.0 <= data$R6504400 & data$R6504400 <= 9.9999999E7] <- 100.0
data$R6504400 <- factor(data$R6504400,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$R6504500[1.0 <= data$R6504500 & data$R6504500 <= 9.0] <- 1.0
data$R6504500[10.0 <= data$R6504500 & data$R6504500 <= 19.0] <- 10.0
data$R6504500[20.0 <= data$R6504500 & data$R6504500 <= 29.0] <- 20.0
data$R6504500[30.0 <= data$R6504500 & data$R6504500 <= 39.0] <- 30.0
data$R6504500[40.0 <= data$R6504500 & data$R6504500 <= 49.0] <- 40.0
data$R6504500[50.0 <= data$R6504500 & data$R6504500 <= 59.0] <- 50.0
data$R6504500[60.0 <= data$R6504500 & data$R6504500 <= 69.0] <- 60.0
data$R6504500[70.0 <= data$R6504500 & data$R6504500 <= 79.0] <- 70.0
data$R6504500[80.0 <= data$R6504500 & data$R6504500 <= 89.0] <- 80.0
data$R6504500[90.0 <= data$R6504500 & data$R6504500 <= 99.0] <- 90.0
data$R6504500[100.0 <= data$R6504500 & data$R6504500 <= 9.9999999E7] <- 100.0
data$R6504500 <- factor(data$R6504500,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$R6504600[1.0 <= data$R6504600 & data$R6504600 <= 9.0] <- 1.0
data$R6504600[10.0 <= data$R6504600 & data$R6504600 <= 19.0] <- 10.0
data$R6504600[20.0 <= data$R6504600 & data$R6504600 <= 29.0] <- 20.0
data$R6504600[30.0 <= data$R6504600 & data$R6504600 <= 39.0] <- 30.0
data$R6504600[40.0 <= data$R6504600 & data$R6504600 <= 49.0] <- 40.0
data$R6504600[50.0 <= data$R6504600 & data$R6504600 <= 59.0] <- 50.0
data$R6504600[60.0 <= data$R6504600 & data$R6504600 <= 69.0] <- 60.0
data$R6504600[70.0 <= data$R6504600 & data$R6504600 <= 79.0] <- 70.0
data$R6504600[80.0 <= data$R6504600 & data$R6504600 <= 89.0] <- 80.0
data$R6504600[90.0 <= data$R6504600 & data$R6504600 <= 99.0] <- 90.0
data$R6504600[100.0 <= data$R6504600 & data$R6504600 <= 9.9999999E7] <- 100.0
data$R6504600 <- factor(data$R6504600,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$R6540400 <- factor(data$R6540400,
levels=c(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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"UNGRADED"))
data$R6578200[1.0 <= data$R6578200 & data$R6578200 <= 4.0] <- 1.0
data$R6578200[5.0 <= data$R6578200 & data$R6578200 <= 9.0] <- 5.0
data$R6578200[10.0 <= data$R6578200 & data$R6578200 <= 14.0] <- 10.0
data$R6578200[15.0 <= data$R6578200 & data$R6578200 <= 19.0] <- 15.0
data$R6578200[20.0 <= data$R6578200 & data$R6578200 <= 24.0] <- 20.0
data$R6578200[25.0 <= data$R6578200 & data$R6578200 <= 29.0] <- 25.0
data$R6578200[30.0 <= data$R6578200 & data$R6578200 <= 34.0] <- 30.0
data$R6578200[35.0 <= data$R6578200 & data$R6578200 <= 39.0] <- 35.0
data$R6578200[40.0 <= data$R6578200 & data$R6578200 <= 44.0] <- 40.0
data$R6578200[45.0 <= data$R6578200 & data$R6578200 <= 49.0] <- 45.0
data$R6578200[50.0 <= data$R6578200 & data$R6578200 <= 9.9999999E7] <- 50.0
data$R6578200 <- factor(data$R6578200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R6578300[1.0 <= data$R6578300 & data$R6578300 <= 4.0] <- 1.0
data$R6578300[5.0 <= data$R6578300 & data$R6578300 <= 9.0] <- 5.0
data$R6578300[10.0 <= data$R6578300 & data$R6578300 <= 14.0] <- 10.0
data$R6578300[15.0 <= data$R6578300 & data$R6578300 <= 19.0] <- 15.0
data$R6578300[20.0 <= data$R6578300 & data$R6578300 <= 24.0] <- 20.0
data$R6578300[25.0 <= data$R6578300 & data$R6578300 <= 29.0] <- 25.0
data$R6578300[30.0 <= data$R6578300 & data$R6578300 <= 34.0] <- 30.0
data$R6578300[35.0 <= data$R6578300 & data$R6578300 <= 39.0] <- 35.0
data$R6578300[40.0 <= data$R6578300 & data$R6578300 <= 44.0] <- 40.0
data$R6578300[45.0 <= data$R6578300 & data$R6578300 <= 49.0] <- 45.0
data$R6578300[50.0 <= data$R6578300 & data$R6578300 <= 9.9999999E7] <- 50.0
data$R6578300 <- factor(data$R6578300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R6578400[1.0 <= data$R6578400 & data$R6578400 <= 4.0] <- 1.0
data$R6578400[5.0 <= data$R6578400 & data$R6578400 <= 9.0] <- 5.0
data$R6578400[10.0 <= data$R6578400 & data$R6578400 <= 14.0] <- 10.0
data$R6578400[15.0 <= data$R6578400 & data$R6578400 <= 19.0] <- 15.0
data$R6578400[20.0 <= data$R6578400 & data$R6578400 <= 24.0] <- 20.0
data$R6578400[25.0 <= data$R6578400 & data$R6578400 <= 29.0] <- 25.0
data$R6578400[30.0 <= data$R6578400 & data$R6578400 <= 34.0] <- 30.0
data$R6578400[35.0 <= data$R6578400 & data$R6578400 <= 39.0] <- 35.0
data$R6578400[40.0 <= data$R6578400 & data$R6578400 <= 44.0] <- 40.0
data$R6578400[45.0 <= data$R6578400 & data$R6578400 <= 49.0] <- 45.0
data$R6578400[50.0 <= data$R6578400 & data$R6578400 <= 9.9999999E7] <- 50.0
data$R6578400 <- factor(data$R6578400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R6578500[1.0 <= data$R6578500 & data$R6578500 <= 4.0] <- 1.0
data$R6578500[5.0 <= data$R6578500 & data$R6578500 <= 9.0] <- 5.0
data$R6578500[10.0 <= data$R6578500 & data$R6578500 <= 14.0] <- 10.0
data$R6578500[15.0 <= data$R6578500 & data$R6578500 <= 19.0] <- 15.0
data$R6578500[20.0 <= data$R6578500 & data$R6578500 <= 24.0] <- 20.0
data$R6578500[25.0 <= data$R6578500 & data$R6578500 <= 29.0] <- 25.0
data$R6578500[30.0 <= data$R6578500 & data$R6578500 <= 34.0] <- 30.0
data$R6578500[35.0 <= data$R6578500 & data$R6578500 <= 39.0] <- 35.0
data$R6578500[40.0 <= data$R6578500 & data$R6578500 <= 44.0] <- 40.0
data$R6578500[45.0 <= data$R6578500 & data$R6578500 <= 49.0] <- 45.0
data$R6578500[50.0 <= data$R6578500 & data$R6578500 <= 9.9999999E7] <- 50.0
data$R6578500 <- factor(data$R6578500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R6578600[1.0 <= data$R6578600 & data$R6578600 <= 4.0] <- 1.0
data$R6578600[5.0 <= data$R6578600 & data$R6578600 <= 9.0] <- 5.0
data$R6578600[10.0 <= data$R6578600 & data$R6578600 <= 14.0] <- 10.0
data$R6578600[15.0 <= data$R6578600 & data$R6578600 <= 19.0] <- 15.0
data$R6578600[20.0 <= data$R6578600 & data$R6578600 <= 24.0] <- 20.0
data$R6578600[25.0 <= data$R6578600 & data$R6578600 <= 29.0] <- 25.0
data$R6578600[30.0 <= data$R6578600 & data$R6578600 <= 34.0] <- 30.0
data$R6578600[35.0 <= data$R6578600 & data$R6578600 <= 39.0] <- 35.0
data$R6578600[40.0 <= data$R6578600 & data$R6578600 <= 44.0] <- 40.0
data$R6578600[45.0 <= data$R6578600 & data$R6578600 <= 49.0] <- 45.0
data$R6578600[50.0 <= data$R6578600 & data$R6578600 <= 9.9999999E7] <- 50.0
data$R6578600 <- factor(data$R6578600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R6578700[1.0 <= data$R6578700 & data$R6578700 <= 4.0] <- 1.0
data$R6578700[5.0 <= data$R6578700 & data$R6578700 <= 9.0] <- 5.0
data$R6578700[10.0 <= data$R6578700 & data$R6578700 <= 14.0] <- 10.0
data$R6578700[15.0 <= data$R6578700 & data$R6578700 <= 19.0] <- 15.0
data$R6578700[20.0 <= data$R6578700 & data$R6578700 <= 24.0] <- 20.0
data$R6578700[25.0 <= data$R6578700 & data$R6578700 <= 29.0] <- 25.0
data$R6578700[30.0 <= data$R6578700 & data$R6578700 <= 34.0] <- 30.0
data$R6578700[35.0 <= data$R6578700 & data$R6578700 <= 39.0] <- 35.0
data$R6578700[40.0 <= data$R6578700 & data$R6578700 <= 44.0] <- 40.0
data$R6578700[45.0 <= data$R6578700 & data$R6578700 <= 49.0] <- 45.0
data$R6578700[50.0 <= data$R6578700 & data$R6578700 <= 9.9999999E7] <- 50.0
data$R6578700 <- factor(data$R6578700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R6578800[1.0 <= data$R6578800 & data$R6578800 <= 4.0] <- 1.0
data$R6578800[5.0 <= data$R6578800 & data$R6578800 <= 9.0] <- 5.0
data$R6578800[10.0 <= data$R6578800 & data$R6578800 <= 14.0] <- 10.0
data$R6578800[15.0 <= data$R6578800 & data$R6578800 <= 19.0] <- 15.0
data$R6578800[20.0 <= data$R6578800 & data$R6578800 <= 24.0] <- 20.0
data$R6578800[25.0 <= data$R6578800 & data$R6578800 <= 29.0] <- 25.0
data$R6578800[30.0 <= data$R6578800 & data$R6578800 <= 34.0] <- 30.0
data$R6578800[35.0 <= data$R6578800 & data$R6578800 <= 39.0] <- 35.0
data$R6578800[40.0 <= data$R6578800 & data$R6578800 <= 44.0] <- 40.0
data$R6578800[45.0 <= data$R6578800 & data$R6578800 <= 49.0] <- 45.0
data$R6578800[50.0 <= data$R6578800 & data$R6578800 <= 9.9999999E7] <- 50.0
data$R6578800 <- factor(data$R6578800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R6578900[1.0 <= data$R6578900 & data$R6578900 <= 4.0] <- 1.0
data$R6578900[5.0 <= data$R6578900 & data$R6578900 <= 9.0] <- 5.0
data$R6578900[10.0 <= data$R6578900 & data$R6578900 <= 14.0] <- 10.0
data$R6578900[15.0 <= data$R6578900 & data$R6578900 <= 19.0] <- 15.0
data$R6578900[20.0 <= data$R6578900 & data$R6578900 <= 24.0] <- 20.0
data$R6578900[25.0 <= data$R6578900 & data$R6578900 <= 29.0] <- 25.0
data$R6578900[30.0 <= data$R6578900 & data$R6578900 <= 34.0] <- 30.0
data$R6578900[35.0 <= data$R6578900 & data$R6578900 <= 39.0] <- 35.0
data$R6578900[40.0 <= data$R6578900 & data$R6578900 <= 44.0] <- 40.0
data$R6578900[45.0 <= data$R6578900 & data$R6578900 <= 49.0] <- 45.0
data$R6578900[50.0 <= data$R6578900 & data$R6578900 <= 9.9999999E7] <- 50.0
data$R6578900 <- factor(data$R6578900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R6579000[1.0 <= data$R6579000 & data$R6579000 <= 4.0] <- 1.0
data$R6579000[5.0 <= data$R6579000 & data$R6579000 <= 9.0] <- 5.0
data$R6579000[10.0 <= data$R6579000 & data$R6579000 <= 14.0] <- 10.0
data$R6579000[15.0 <= data$R6579000 & data$R6579000 <= 19.0] <- 15.0
data$R6579000[20.0 <= data$R6579000 & data$R6579000 <= 24.0] <- 20.0
data$R6579000[25.0 <= data$R6579000 & data$R6579000 <= 29.0] <- 25.0
data$R6579000[30.0 <= data$R6579000 & data$R6579000 <= 34.0] <- 30.0
data$R6579000[35.0 <= data$R6579000 & data$R6579000 <= 39.0] <- 35.0
data$R6579000[40.0 <= data$R6579000 & data$R6579000 <= 44.0] <- 40.0
data$R6579000[45.0 <= data$R6579000 & data$R6579000 <= 49.0] <- 45.0
data$R6579000[50.0 <= data$R6579000 & data$R6579000 <= 9.9999999E7] <- 50.0
data$R6579000 <- factor(data$R6579000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R6579100[1.0 <= data$R6579100 & data$R6579100 <= 4.0] <- 1.0
data$R6579100[5.0 <= data$R6579100 & data$R6579100 <= 9.0] <- 5.0
data$R6579100[10.0 <= data$R6579100 & data$R6579100 <= 14.0] <- 10.0
data$R6579100[15.0 <= data$R6579100 & data$R6579100 <= 19.0] <- 15.0
data$R6579100[20.0 <= data$R6579100 & data$R6579100 <= 24.0] <- 20.0
data$R6579100[25.0 <= data$R6579100 & data$R6579100 <= 29.0] <- 25.0
data$R6579100[30.0 <= data$R6579100 & data$R6579100 <= 34.0] <- 30.0
data$R6579100[35.0 <= data$R6579100 & data$R6579100 <= 39.0] <- 35.0
data$R6579100[40.0 <= data$R6579100 & data$R6579100 <= 44.0] <- 40.0
data$R6579100[45.0 <= data$R6579100 & data$R6579100 <= 49.0] <- 45.0
data$R6579100[50.0 <= data$R6579100 & data$R6579100 <= 9.9999999E7] <- 50.0
data$R6579100 <- factor(data$R6579100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R6579200 <- factor(data$R6579200,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R6579300 <- factor(data$R6579300,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R6579400 <- factor(data$R6579400,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R6579500 <- factor(data$R6579500,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R6579600 <- factor(data$R6579600,
levels=c(0.0,1.0),
labels=c("NO",
"YES"))
data$R6579700[1.0 <= data$R6579700 & data$R6579700 <= 4.0] <- 1.0
data$R6579700[5.0 <= data$R6579700 & data$R6579700 <= 9.0] <- 5.0
data$R6579700[10.0 <= data$R6579700 & data$R6579700 <= 14.0] <- 10.0
data$R6579700[15.0 <= data$R6579700 & data$R6579700 <= 19.0] <- 15.0
data$R6579700[20.0 <= data$R6579700 & data$R6579700 <= 24.0] <- 20.0
data$R6579700[25.0 <= data$R6579700 & data$R6579700 <= 29.0] <- 25.0
data$R6579700[30.0 <= data$R6579700 & data$R6579700 <= 34.0] <- 30.0
data$R6579700[35.0 <= data$R6579700 & data$R6579700 <= 39.0] <- 35.0
data$R6579700[40.0 <= data$R6579700 & data$R6579700 <= 44.0] <- 40.0
data$R6579700[45.0 <= data$R6579700 & data$R6579700 <= 49.0] <- 45.0
data$R6579700[50.0 <= data$R6579700 & data$R6579700 <= 9.9999999E7] <- 50.0
data$R6579700 <- factor(data$R6579700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R6579800[1.0 <= data$R6579800 & data$R6579800 <= 4.0] <- 1.0
data$R6579800[5.0 <= data$R6579800 & data$R6579800 <= 9.0] <- 5.0
data$R6579800[10.0 <= data$R6579800 & data$R6579800 <= 14.0] <- 10.0
data$R6579800[15.0 <= data$R6579800 & data$R6579800 <= 19.0] <- 15.0
data$R6579800[20.0 <= data$R6579800 & data$R6579800 <= 24.0] <- 20.0
data$R6579800[25.0 <= data$R6579800 & data$R6579800 <= 29.0] <- 25.0
data$R6579800[30.0 <= data$R6579800 & data$R6579800 <= 34.0] <- 30.0
data$R6579800[35.0 <= data$R6579800 & data$R6579800 <= 39.0] <- 35.0
data$R6579800[40.0 <= data$R6579800 & data$R6579800 <= 44.0] <- 40.0
data$R6579800[45.0 <= data$R6579800 & data$R6579800 <= 49.0] <- 45.0
data$R6579800[50.0 <= data$R6579800 & data$R6579800 <= 9.9999999E7] <- 50.0
data$R6579800 <- factor(data$R6579800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R6579900[1.0 <= data$R6579900 & data$R6579900 <= 4.0] <- 1.0
data$R6579900[5.0 <= data$R6579900 & data$R6579900 <= 9.0] <- 5.0
data$R6579900[10.0 <= data$R6579900 & data$R6579900 <= 14.0] <- 10.0
data$R6579900[15.0 <= data$R6579900 & data$R6579900 <= 19.0] <- 15.0
data$R6579900[20.0 <= data$R6579900 & data$R6579900 <= 24.0] <- 20.0
data$R6579900[25.0 <= data$R6579900 & data$R6579900 <= 29.0] <- 25.0
data$R6579900[30.0 <= data$R6579900 & data$R6579900 <= 34.0] <- 30.0
data$R6579900[35.0 <= data$R6579900 & data$R6579900 <= 39.0] <- 35.0
data$R6579900[40.0 <= data$R6579900 & data$R6579900 <= 44.0] <- 40.0
data$R6579900[45.0 <= data$R6579900 & data$R6579900 <= 49.0] <- 45.0
data$R6579900[50.0 <= data$R6579900 & data$R6579900 <= 9.9999999E7] <- 50.0
data$R6579900 <- factor(data$R6579900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R6580000[1.0 <= data$R6580000 & data$R6580000 <= 4.0] <- 1.0
data$R6580000[5.0 <= data$R6580000 & data$R6580000 <= 9.0] <- 5.0
data$R6580000[10.0 <= data$R6580000 & data$R6580000 <= 14.0] <- 10.0
data$R6580000[15.0 <= data$R6580000 & data$R6580000 <= 19.0] <- 15.0
data$R6580000[20.0 <= data$R6580000 & data$R6580000 <= 24.0] <- 20.0
data$R6580000[25.0 <= data$R6580000 & data$R6580000 <= 29.0] <- 25.0
data$R6580000[30.0 <= data$R6580000 & data$R6580000 <= 34.0] <- 30.0
data$R6580000[35.0 <= data$R6580000 & data$R6580000 <= 39.0] <- 35.0
data$R6580000[40.0 <= data$R6580000 & data$R6580000 <= 44.0] <- 40.0
data$R6580000[45.0 <= data$R6580000 & data$R6580000 <= 49.0] <- 45.0
data$R6580000[50.0 <= data$R6580000 & data$R6580000 <= 9.9999999E7] <- 50.0
data$R6580000 <- factor(data$R6580000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R6580100[1.0 <= data$R6580100 & data$R6580100 <= 4.0] <- 1.0
data$R6580100[5.0 <= data$R6580100 & data$R6580100 <= 9.0] <- 5.0
data$R6580100[10.0 <= data$R6580100 & data$R6580100 <= 14.0] <- 10.0
data$R6580100[15.0 <= data$R6580100 & data$R6580100 <= 19.0] <- 15.0
data$R6580100[20.0 <= data$R6580100 & data$R6580100 <= 24.0] <- 20.0
data$R6580100[25.0 <= data$R6580100 & data$R6580100 <= 29.0] <- 25.0
data$R6580100[30.0 <= data$R6580100 & data$R6580100 <= 34.0] <- 30.0
data$R6580100[35.0 <= data$R6580100 & data$R6580100 <= 39.0] <- 35.0
data$R6580100[40.0 <= data$R6580100 & data$R6580100 <= 44.0] <- 40.0
data$R6580100[45.0 <= data$R6580100 & data$R6580100 <= 49.0] <- 45.0
data$R6580100[50.0 <= data$R6580100 & data$R6580100 <= 9.9999999E7] <- 50.0
data$R6580100 <- factor(data$R6580100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7005700[1.0 <= data$R7005700 & data$R7005700 <= 499.0] <- 1.0
data$R7005700[500.0 <= data$R7005700 & data$R7005700 <= 999.0] <- 500.0
data$R7005700[1000.0 <= data$R7005700 & data$R7005700 <= 1499.0] <- 1000.0
data$R7005700[1500.0 <= data$R7005700 & data$R7005700 <= 1999.0] <- 1500.0
data$R7005700[2000.0 <= data$R7005700 & data$R7005700 <= 2499.0] <- 2000.0
data$R7005700[2500.0 <= data$R7005700 & data$R7005700 <= 2999.0] <- 2500.0
data$R7005700[3000.0 <= data$R7005700 & data$R7005700 <= 3499.0] <- 3000.0
data$R7005700[3500.0 <= data$R7005700 & data$R7005700 <= 3999.0] <- 3500.0
data$R7005700[4000.0 <= data$R7005700 & data$R7005700 <= 4499.0] <- 4000.0
data$R7005700[4500.0 <= data$R7005700 & data$R7005700 <= 4999.0] <- 4500.0
data$R7005700[5000.0 <= data$R7005700 & data$R7005700 <= 9.9999999E7] <- 5000.0
data$R7005700 <- factor(data$R7005700,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R7005800[1.0 <= data$R7005800 & data$R7005800 <= 499.0] <- 1.0
data$R7005800[500.0 <= data$R7005800 & data$R7005800 <= 999.0] <- 500.0
data$R7005800[1000.0 <= data$R7005800 & data$R7005800 <= 1499.0] <- 1000.0
data$R7005800[1500.0 <= data$R7005800 & data$R7005800 <= 1999.0] <- 1500.0
data$R7005800[2000.0 <= data$R7005800 & data$R7005800 <= 2499.0] <- 2000.0
data$R7005800[2500.0 <= data$R7005800 & data$R7005800 <= 2999.0] <- 2500.0
data$R7005800[3000.0 <= data$R7005800 & data$R7005800 <= 3499.0] <- 3000.0
data$R7005800[3500.0 <= data$R7005800 & data$R7005800 <= 3999.0] <- 3500.0
data$R7005800[4000.0 <= data$R7005800 & data$R7005800 <= 4499.0] <- 4000.0
data$R7005800[4500.0 <= data$R7005800 & data$R7005800 <= 4999.0] <- 4500.0
data$R7005800[5000.0 <= data$R7005800 & data$R7005800 <= 9.9999999E7] <- 5000.0
data$R7005800 <- factor(data$R7005800,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R7005900[1.0 <= data$R7005900 & data$R7005900 <= 499.0] <- 1.0
data$R7005900[500.0 <= data$R7005900 & data$R7005900 <= 999.0] <- 500.0
data$R7005900[1000.0 <= data$R7005900 & data$R7005900 <= 1499.0] <- 1000.0
data$R7005900[1500.0 <= data$R7005900 & data$R7005900 <= 1999.0] <- 1500.0
data$R7005900[2000.0 <= data$R7005900 & data$R7005900 <= 2499.0] <- 2000.0
data$R7005900[2500.0 <= data$R7005900 & data$R7005900 <= 2999.0] <- 2500.0
data$R7005900[3000.0 <= data$R7005900 & data$R7005900 <= 3499.0] <- 3000.0
data$R7005900[3500.0 <= data$R7005900 & data$R7005900 <= 3999.0] <- 3500.0
data$R7005900[4000.0 <= data$R7005900 & data$R7005900 <= 4499.0] <- 4000.0
data$R7005900[4500.0 <= data$R7005900 & data$R7005900 <= 4999.0] <- 4500.0
data$R7005900[5000.0 <= data$R7005900 & data$R7005900 <= 9.9999999E7] <- 5000.0
data$R7005900 <- factor(data$R7005900,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R7006000[1.0 <= data$R7006000 & data$R7006000 <= 499.0] <- 1.0
data$R7006000[500.0 <= data$R7006000 & data$R7006000 <= 999.0] <- 500.0
data$R7006000[1000.0 <= data$R7006000 & data$R7006000 <= 1499.0] <- 1000.0
data$R7006000[1500.0 <= data$R7006000 & data$R7006000 <= 1999.0] <- 1500.0
data$R7006000[2000.0 <= data$R7006000 & data$R7006000 <= 2499.0] <- 2000.0
data$R7006000[2500.0 <= data$R7006000 & data$R7006000 <= 2999.0] <- 2500.0
data$R7006000[3000.0 <= data$R7006000 & data$R7006000 <= 3499.0] <- 3000.0
data$R7006000[3500.0 <= data$R7006000 & data$R7006000 <= 3999.0] <- 3500.0
data$R7006000[4000.0 <= data$R7006000 & data$R7006000 <= 4499.0] <- 4000.0
data$R7006000[4500.0 <= data$R7006000 & data$R7006000 <= 4999.0] <- 4500.0
data$R7006000[5000.0 <= data$R7006000 & data$R7006000 <= 9.9999999E7] <- 5000.0
data$R7006000 <- factor(data$R7006000,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R7006100[1.0 <= data$R7006100 & data$R7006100 <= 499.0] <- 1.0
data$R7006100[500.0 <= data$R7006100 & data$R7006100 <= 999.0] <- 500.0
data$R7006100[1000.0 <= data$R7006100 & data$R7006100 <= 1499.0] <- 1000.0
data$R7006100[1500.0 <= data$R7006100 & data$R7006100 <= 1999.0] <- 1500.0
data$R7006100[2000.0 <= data$R7006100 & data$R7006100 <= 2499.0] <- 2000.0
data$R7006100[2500.0 <= data$R7006100 & data$R7006100 <= 2999.0] <- 2500.0
data$R7006100[3000.0 <= data$R7006100 & data$R7006100 <= 3499.0] <- 3000.0
data$R7006100[3500.0 <= data$R7006100 & data$R7006100 <= 3999.0] <- 3500.0
data$R7006100[4000.0 <= data$R7006100 & data$R7006100 <= 4499.0] <- 4000.0
data$R7006100[4500.0 <= data$R7006100 & data$R7006100 <= 4999.0] <- 4500.0
data$R7006100[5000.0 <= data$R7006100 & data$R7006100 <= 9.9999999E7] <- 5000.0
data$R7006100 <- factor(data$R7006100,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R7007100 <- factor(data$R7007100,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$R7007300 <- factor(data$R7007300,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$R7080400[1.0 <= data$R7080400 & data$R7080400 <= 9.0] <- 1.0
data$R7080400[10.0 <= data$R7080400 & data$R7080400 <= 19.0] <- 10.0
data$R7080400[20.0 <= data$R7080400 & data$R7080400 <= 29.0] <- 20.0
data$R7080400[30.0 <= data$R7080400 & data$R7080400 <= 39.0] <- 30.0
data$R7080400[40.0 <= data$R7080400 & data$R7080400 <= 49.0] <- 40.0
data$R7080400[50.0 <= data$R7080400 & data$R7080400 <= 59.0] <- 50.0
data$R7080400[60.0 <= data$R7080400 & data$R7080400 <= 69.0] <- 60.0
data$R7080400[70.0 <= data$R7080400 & data$R7080400 <= 79.0] <- 70.0
data$R7080400[80.0 <= data$R7080400 & data$R7080400 <= 89.0] <- 80.0
data$R7080400[90.0 <= data$R7080400 & data$R7080400 <= 99.0] <- 90.0
data$R7080400[100.0 <= data$R7080400 & data$R7080400 <= 9.9999999E7] <- 100.0
data$R7080400 <- factor(data$R7080400,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$R7080500[1.0 <= data$R7080500 & data$R7080500 <= 9.0] <- 1.0
data$R7080500[10.0 <= data$R7080500 & data$R7080500 <= 19.0] <- 10.0
data$R7080500[20.0 <= data$R7080500 & data$R7080500 <= 29.0] <- 20.0
data$R7080500[30.0 <= data$R7080500 & data$R7080500 <= 39.0] <- 30.0
data$R7080500[40.0 <= data$R7080500 & data$R7080500 <= 49.0] <- 40.0
data$R7080500[50.0 <= data$R7080500 & data$R7080500 <= 59.0] <- 50.0
data$R7080500[60.0 <= data$R7080500 & data$R7080500 <= 69.0] <- 60.0
data$R7080500[70.0 <= data$R7080500 & data$R7080500 <= 79.0] <- 70.0
data$R7080500[80.0 <= data$R7080500 & data$R7080500 <= 89.0] <- 80.0
data$R7080500[90.0 <= data$R7080500 & data$R7080500 <= 99.0] <- 90.0
data$R7080500[100.0 <= data$R7080500 & data$R7080500 <= 9.9999999E7] <- 100.0
data$R7080500 <- factor(data$R7080500,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$R7080600[1.0 <= data$R7080600 & data$R7080600 <= 9.0] <- 1.0
data$R7080600[10.0 <= data$R7080600 & data$R7080600 <= 19.0] <- 10.0
data$R7080600[20.0 <= data$R7080600 & data$R7080600 <= 29.0] <- 20.0
data$R7080600[30.0 <= data$R7080600 & data$R7080600 <= 39.0] <- 30.0
data$R7080600[40.0 <= data$R7080600 & data$R7080600 <= 49.0] <- 40.0
data$R7080600[50.0 <= data$R7080600 & data$R7080600 <= 59.0] <- 50.0
data$R7080600[60.0 <= data$R7080600 & data$R7080600 <= 69.0] <- 60.0
data$R7080600[70.0 <= data$R7080600 & data$R7080600 <= 79.0] <- 70.0
data$R7080600[80.0 <= data$R7080600 & data$R7080600 <= 89.0] <- 80.0
data$R7080600[90.0 <= data$R7080600 & data$R7080600 <= 99.0] <- 90.0
data$R7080600[100.0 <= data$R7080600 & data$R7080600 <= 9.9999999E7] <- 100.0
data$R7080600 <- factor(data$R7080600,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$R7080700[1.0 <= data$R7080700 & data$R7080700 <= 9.0] <- 1.0
data$R7080700[10.0 <= data$R7080700 & data$R7080700 <= 19.0] <- 10.0
data$R7080700[20.0 <= data$R7080700 & data$R7080700 <= 29.0] <- 20.0
data$R7080700[30.0 <= data$R7080700 & data$R7080700 <= 39.0] <- 30.0
data$R7080700[40.0 <= data$R7080700 & data$R7080700 <= 49.0] <- 40.0
data$R7080700[50.0 <= data$R7080700 & data$R7080700 <= 59.0] <- 50.0
data$R7080700[60.0 <= data$R7080700 & data$R7080700 <= 69.0] <- 60.0
data$R7080700[70.0 <= data$R7080700 & data$R7080700 <= 79.0] <- 70.0
data$R7080700[80.0 <= data$R7080700 & data$R7080700 <= 89.0] <- 80.0
data$R7080700[90.0 <= data$R7080700 & data$R7080700 <= 99.0] <- 90.0
data$R7080700[100.0 <= data$R7080700 & data$R7080700 <= 9.9999999E7] <- 100.0
data$R7080700 <- factor(data$R7080700,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$R7080800[1.0 <= data$R7080800 & data$R7080800 <= 9.0] <- 1.0
data$R7080800[10.0 <= data$R7080800 & data$R7080800 <= 19.0] <- 10.0
data$R7080800[20.0 <= data$R7080800 & data$R7080800 <= 29.0] <- 20.0
data$R7080800[30.0 <= data$R7080800 & data$R7080800 <= 39.0] <- 30.0
data$R7080800[40.0 <= data$R7080800 & data$R7080800 <= 49.0] <- 40.0
data$R7080800[50.0 <= data$R7080800 & data$R7080800 <= 59.0] <- 50.0
data$R7080800[60.0 <= data$R7080800 & data$R7080800 <= 69.0] <- 60.0
data$R7080800[70.0 <= data$R7080800 & data$R7080800 <= 79.0] <- 70.0
data$R7080800[80.0 <= data$R7080800 & data$R7080800 <= 89.0] <- 80.0
data$R7080800[90.0 <= data$R7080800 & data$R7080800 <= 99.0] <- 90.0
data$R7080800[100.0 <= data$R7080800 & data$R7080800 <= 9.9999999E7] <- 100.0
data$R7080800 <- factor(data$R7080800,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$R7103600 <- factor(data$R7103600,
levels=c(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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"UNGRADED"))
data$R7192900[1.0 <= data$R7192900 & data$R7192900 <= 4.0] <- 1.0
data$R7192900[5.0 <= data$R7192900 & data$R7192900 <= 9.0] <- 5.0
data$R7192900[10.0 <= data$R7192900 & data$R7192900 <= 14.0] <- 10.0
data$R7192900[15.0 <= data$R7192900 & data$R7192900 <= 19.0] <- 15.0
data$R7192900[20.0 <= data$R7192900 & data$R7192900 <= 24.0] <- 20.0
data$R7192900[25.0 <= data$R7192900 & data$R7192900 <= 29.0] <- 25.0
data$R7192900[30.0 <= data$R7192900 & data$R7192900 <= 34.0] <- 30.0
data$R7192900[35.0 <= data$R7192900 & data$R7192900 <= 39.0] <- 35.0
data$R7192900[40.0 <= data$R7192900 & data$R7192900 <= 44.0] <- 40.0
data$R7192900[45.0 <= data$R7192900 & data$R7192900 <= 49.0] <- 45.0
data$R7192900[50.0 <= data$R7192900 & data$R7192900 <= 9.9999999E7] <- 50.0
data$R7192900 <- factor(data$R7192900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7193000[1.0 <= data$R7193000 & data$R7193000 <= 4.0] <- 1.0
data$R7193000[5.0 <= data$R7193000 & data$R7193000 <= 9.0] <- 5.0
data$R7193000[10.0 <= data$R7193000 & data$R7193000 <= 14.0] <- 10.0
data$R7193000[15.0 <= data$R7193000 & data$R7193000 <= 19.0] <- 15.0
data$R7193000[20.0 <= data$R7193000 & data$R7193000 <= 24.0] <- 20.0
data$R7193000[25.0 <= data$R7193000 & data$R7193000 <= 29.0] <- 25.0
data$R7193000[30.0 <= data$R7193000 & data$R7193000 <= 34.0] <- 30.0
data$R7193000[35.0 <= data$R7193000 & data$R7193000 <= 39.0] <- 35.0
data$R7193000[40.0 <= data$R7193000 & data$R7193000 <= 44.0] <- 40.0
data$R7193000[45.0 <= data$R7193000 & data$R7193000 <= 49.0] <- 45.0
data$R7193000[50.0 <= data$R7193000 & data$R7193000 <= 9.9999999E7] <- 50.0
data$R7193000 <- factor(data$R7193000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7193100[1.0 <= data$R7193100 & data$R7193100 <= 4.0] <- 1.0
data$R7193100[5.0 <= data$R7193100 & data$R7193100 <= 9.0] <- 5.0
data$R7193100[10.0 <= data$R7193100 & data$R7193100 <= 14.0] <- 10.0
data$R7193100[15.0 <= data$R7193100 & data$R7193100 <= 19.0] <- 15.0
data$R7193100[20.0 <= data$R7193100 & data$R7193100 <= 24.0] <- 20.0
data$R7193100[25.0 <= data$R7193100 & data$R7193100 <= 29.0] <- 25.0
data$R7193100[30.0 <= data$R7193100 & data$R7193100 <= 34.0] <- 30.0
data$R7193100[35.0 <= data$R7193100 & data$R7193100 <= 39.0] <- 35.0
data$R7193100[40.0 <= data$R7193100 & data$R7193100 <= 44.0] <- 40.0
data$R7193100[45.0 <= data$R7193100 & data$R7193100 <= 49.0] <- 45.0
data$R7193100[50.0 <= data$R7193100 & data$R7193100 <= 9.9999999E7] <- 50.0
data$R7193100 <- factor(data$R7193100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7193200[1.0 <= data$R7193200 & data$R7193200 <= 4.0] <- 1.0
data$R7193200[5.0 <= data$R7193200 & data$R7193200 <= 9.0] <- 5.0
data$R7193200[10.0 <= data$R7193200 & data$R7193200 <= 14.0] <- 10.0
data$R7193200[15.0 <= data$R7193200 & data$R7193200 <= 19.0] <- 15.0
data$R7193200[20.0 <= data$R7193200 & data$R7193200 <= 24.0] <- 20.0
data$R7193200[25.0 <= data$R7193200 & data$R7193200 <= 29.0] <- 25.0
data$R7193200[30.0 <= data$R7193200 & data$R7193200 <= 34.0] <- 30.0
data$R7193200[35.0 <= data$R7193200 & data$R7193200 <= 39.0] <- 35.0
data$R7193200[40.0 <= data$R7193200 & data$R7193200 <= 44.0] <- 40.0
data$R7193200[45.0 <= data$R7193200 & data$R7193200 <= 49.0] <- 45.0
data$R7193200[50.0 <= data$R7193200 & data$R7193200 <= 9.9999999E7] <- 50.0
data$R7193200 <- factor(data$R7193200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7193300[1.0 <= data$R7193300 & data$R7193300 <= 4.0] <- 1.0
data$R7193300[5.0 <= data$R7193300 & data$R7193300 <= 9.0] <- 5.0
data$R7193300[10.0 <= data$R7193300 & data$R7193300 <= 14.0] <- 10.0
data$R7193300[15.0 <= data$R7193300 & data$R7193300 <= 19.0] <- 15.0
data$R7193300[20.0 <= data$R7193300 & data$R7193300 <= 24.0] <- 20.0
data$R7193300[25.0 <= data$R7193300 & data$R7193300 <= 29.0] <- 25.0
data$R7193300[30.0 <= data$R7193300 & data$R7193300 <= 34.0] <- 30.0
data$R7193300[35.0 <= data$R7193300 & data$R7193300 <= 39.0] <- 35.0
data$R7193300[40.0 <= data$R7193300 & data$R7193300 <= 44.0] <- 40.0
data$R7193300[45.0 <= data$R7193300 & data$R7193300 <= 49.0] <- 45.0
data$R7193300[50.0 <= data$R7193300 & data$R7193300 <= 9.9999999E7] <- 50.0
data$R7193300 <- factor(data$R7193300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7193400[1.0 <= data$R7193400 & data$R7193400 <= 4.0] <- 1.0
data$R7193400[5.0 <= data$R7193400 & data$R7193400 <= 9.0] <- 5.0
data$R7193400[10.0 <= data$R7193400 & data$R7193400 <= 14.0] <- 10.0
data$R7193400[15.0 <= data$R7193400 & data$R7193400 <= 19.0] <- 15.0
data$R7193400[20.0 <= data$R7193400 & data$R7193400 <= 24.0] <- 20.0
data$R7193400[25.0 <= data$R7193400 & data$R7193400 <= 29.0] <- 25.0
data$R7193400[30.0 <= data$R7193400 & data$R7193400 <= 34.0] <- 30.0
data$R7193400[35.0 <= data$R7193400 & data$R7193400 <= 39.0] <- 35.0
data$R7193400[40.0 <= data$R7193400 & data$R7193400 <= 44.0] <- 40.0
data$R7193400[45.0 <= data$R7193400 & data$R7193400 <= 49.0] <- 45.0
data$R7193400[50.0 <= data$R7193400 & data$R7193400 <= 9.9999999E7] <- 50.0
data$R7193400 <- factor(data$R7193400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7193500[1.0 <= data$R7193500 & data$R7193500 <= 4.0] <- 1.0
data$R7193500[5.0 <= data$R7193500 & data$R7193500 <= 9.0] <- 5.0
data$R7193500[10.0 <= data$R7193500 & data$R7193500 <= 14.0] <- 10.0
data$R7193500[15.0 <= data$R7193500 & data$R7193500 <= 19.0] <- 15.0
data$R7193500[20.0 <= data$R7193500 & data$R7193500 <= 24.0] <- 20.0
data$R7193500[25.0 <= data$R7193500 & data$R7193500 <= 29.0] <- 25.0
data$R7193500[30.0 <= data$R7193500 & data$R7193500 <= 34.0] <- 30.0
data$R7193500[35.0 <= data$R7193500 & data$R7193500 <= 39.0] <- 35.0
data$R7193500[40.0 <= data$R7193500 & data$R7193500 <= 44.0] <- 40.0
data$R7193500[45.0 <= data$R7193500 & data$R7193500 <= 49.0] <- 45.0
data$R7193500[50.0 <= data$R7193500 & data$R7193500 <= 9.9999999E7] <- 50.0
data$R7193500 <- factor(data$R7193500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7193600[1.0 <= data$R7193600 & data$R7193600 <= 4.0] <- 1.0
data$R7193600[5.0 <= data$R7193600 & data$R7193600 <= 9.0] <- 5.0
data$R7193600[10.0 <= data$R7193600 & data$R7193600 <= 14.0] <- 10.0
data$R7193600[15.0 <= data$R7193600 & data$R7193600 <= 19.0] <- 15.0
data$R7193600[20.0 <= data$R7193600 & data$R7193600 <= 24.0] <- 20.0
data$R7193600[25.0 <= data$R7193600 & data$R7193600 <= 29.0] <- 25.0
data$R7193600[30.0 <= data$R7193600 & data$R7193600 <= 34.0] <- 30.0
data$R7193600[35.0 <= data$R7193600 & data$R7193600 <= 39.0] <- 35.0
data$R7193600[40.0 <= data$R7193600 & data$R7193600 <= 44.0] <- 40.0
data$R7193600[45.0 <= data$R7193600 & data$R7193600 <= 49.0] <- 45.0
data$R7193600[50.0 <= data$R7193600 & data$R7193600 <= 9.9999999E7] <- 50.0
data$R7193600 <- factor(data$R7193600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7193700[1.0 <= data$R7193700 & data$R7193700 <= 4.0] <- 1.0
data$R7193700[5.0 <= data$R7193700 & data$R7193700 <= 9.0] <- 5.0
data$R7193700[10.0 <= data$R7193700 & data$R7193700 <= 14.0] <- 10.0
data$R7193700[15.0 <= data$R7193700 & data$R7193700 <= 19.0] <- 15.0
data$R7193700[20.0 <= data$R7193700 & data$R7193700 <= 24.0] <- 20.0
data$R7193700[25.0 <= data$R7193700 & data$R7193700 <= 29.0] <- 25.0
data$R7193700[30.0 <= data$R7193700 & data$R7193700 <= 34.0] <- 30.0
data$R7193700[35.0 <= data$R7193700 & data$R7193700 <= 39.0] <- 35.0
data$R7193700[40.0 <= data$R7193700 & data$R7193700 <= 44.0] <- 40.0
data$R7193700[45.0 <= data$R7193700 & data$R7193700 <= 49.0] <- 45.0
data$R7193700[50.0 <= data$R7193700 & data$R7193700 <= 9.9999999E7] <- 50.0
data$R7193700 <- factor(data$R7193700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7193800[1.0 <= data$R7193800 & data$R7193800 <= 4.0] <- 1.0
data$R7193800[5.0 <= data$R7193800 & data$R7193800 <= 9.0] <- 5.0
data$R7193800[10.0 <= data$R7193800 & data$R7193800 <= 14.0] <- 10.0
data$R7193800[15.0 <= data$R7193800 & data$R7193800 <= 19.0] <- 15.0
data$R7193800[20.0 <= data$R7193800 & data$R7193800 <= 24.0] <- 20.0
data$R7193800[25.0 <= data$R7193800 & data$R7193800 <= 29.0] <- 25.0
data$R7193800[30.0 <= data$R7193800 & data$R7193800 <= 34.0] <- 30.0
data$R7193800[35.0 <= data$R7193800 & data$R7193800 <= 39.0] <- 35.0
data$R7193800[40.0 <= data$R7193800 & data$R7193800 <= 44.0] <- 40.0
data$R7193800[45.0 <= data$R7193800 & data$R7193800 <= 49.0] <- 45.0
data$R7193800[50.0 <= data$R7193800 & data$R7193800 <= 9.9999999E7] <- 50.0
data$R7193800 <- factor(data$R7193800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7193900 <- factor(data$R7193900,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$R7194000 <- factor(data$R7194000,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$R7194100 <- factor(data$R7194100,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$R7194200 <- factor(data$R7194200,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$R7194300 <- factor(data$R7194300,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$R7194400[1.0 <= data$R7194400 & data$R7194400 <= 4.0] <- 1.0
data$R7194400[5.0 <= data$R7194400 & data$R7194400 <= 9.0] <- 5.0
data$R7194400[10.0 <= data$R7194400 & data$R7194400 <= 14.0] <- 10.0
data$R7194400[15.0 <= data$R7194400 & data$R7194400 <= 19.0] <- 15.0
data$R7194400[20.0 <= data$R7194400 & data$R7194400 <= 24.0] <- 20.0
data$R7194400[25.0 <= data$R7194400 & data$R7194400 <= 29.0] <- 25.0
data$R7194400[30.0 <= data$R7194400 & data$R7194400 <= 34.0] <- 30.0
data$R7194400[35.0 <= data$R7194400 & data$R7194400 <= 39.0] <- 35.0
data$R7194400[40.0 <= data$R7194400 & data$R7194400 <= 44.0] <- 40.0
data$R7194400[45.0 <= data$R7194400 & data$R7194400 <= 49.0] <- 45.0
data$R7194400[50.0 <= data$R7194400 & data$R7194400 <= 9.9999999E7] <- 50.0
data$R7194400 <- factor(data$R7194400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7194500[1.0 <= data$R7194500 & data$R7194500 <= 4.0] <- 1.0
data$R7194500[5.0 <= data$R7194500 & data$R7194500 <= 9.0] <- 5.0
data$R7194500[10.0 <= data$R7194500 & data$R7194500 <= 14.0] <- 10.0
data$R7194500[15.0 <= data$R7194500 & data$R7194500 <= 19.0] <- 15.0
data$R7194500[20.0 <= data$R7194500 & data$R7194500 <= 24.0] <- 20.0
data$R7194500[25.0 <= data$R7194500 & data$R7194500 <= 29.0] <- 25.0
data$R7194500[30.0 <= data$R7194500 & data$R7194500 <= 34.0] <- 30.0
data$R7194500[35.0 <= data$R7194500 & data$R7194500 <= 39.0] <- 35.0
data$R7194500[40.0 <= data$R7194500 & data$R7194500 <= 44.0] <- 40.0
data$R7194500[45.0 <= data$R7194500 & data$R7194500 <= 49.0] <- 45.0
data$R7194500[50.0 <= data$R7194500 & data$R7194500 <= 9.9999999E7] <- 50.0
data$R7194500 <- factor(data$R7194500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7194600[1.0 <= data$R7194600 & data$R7194600 <= 4.0] <- 1.0
data$R7194600[5.0 <= data$R7194600 & data$R7194600 <= 9.0] <- 5.0
data$R7194600[10.0 <= data$R7194600 & data$R7194600 <= 14.0] <- 10.0
data$R7194600[15.0 <= data$R7194600 & data$R7194600 <= 19.0] <- 15.0
data$R7194600[20.0 <= data$R7194600 & data$R7194600 <= 24.0] <- 20.0
data$R7194600[25.0 <= data$R7194600 & data$R7194600 <= 29.0] <- 25.0
data$R7194600[30.0 <= data$R7194600 & data$R7194600 <= 34.0] <- 30.0
data$R7194600[35.0 <= data$R7194600 & data$R7194600 <= 39.0] <- 35.0
data$R7194600[40.0 <= data$R7194600 & data$R7194600 <= 44.0] <- 40.0
data$R7194600[45.0 <= data$R7194600 & data$R7194600 <= 49.0] <- 45.0
data$R7194600[50.0 <= data$R7194600 & data$R7194600 <= 9.9999999E7] <- 50.0
data$R7194600 <- factor(data$R7194600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7194700[1.0 <= data$R7194700 & data$R7194700 <= 4.0] <- 1.0
data$R7194700[5.0 <= data$R7194700 & data$R7194700 <= 9.0] <- 5.0
data$R7194700[10.0 <= data$R7194700 & data$R7194700 <= 14.0] <- 10.0
data$R7194700[15.0 <= data$R7194700 & data$R7194700 <= 19.0] <- 15.0
data$R7194700[20.0 <= data$R7194700 & data$R7194700 <= 24.0] <- 20.0
data$R7194700[25.0 <= data$R7194700 & data$R7194700 <= 29.0] <- 25.0
data$R7194700[30.0 <= data$R7194700 & data$R7194700 <= 34.0] <- 30.0
data$R7194700[35.0 <= data$R7194700 & data$R7194700 <= 39.0] <- 35.0
data$R7194700[40.0 <= data$R7194700 & data$R7194700 <= 44.0] <- 40.0
data$R7194700[45.0 <= data$R7194700 & data$R7194700 <= 49.0] <- 45.0
data$R7194700[50.0 <= data$R7194700 & data$R7194700 <= 9.9999999E7] <- 50.0
data$R7194700 <- factor(data$R7194700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7194800[1.0 <= data$R7194800 & data$R7194800 <= 4.0] <- 1.0
data$R7194800[5.0 <= data$R7194800 & data$R7194800 <= 9.0] <- 5.0
data$R7194800[10.0 <= data$R7194800 & data$R7194800 <= 14.0] <- 10.0
data$R7194800[15.0 <= data$R7194800 & data$R7194800 <= 19.0] <- 15.0
data$R7194800[20.0 <= data$R7194800 & data$R7194800 <= 24.0] <- 20.0
data$R7194800[25.0 <= data$R7194800 & data$R7194800 <= 29.0] <- 25.0
data$R7194800[30.0 <= data$R7194800 & data$R7194800 <= 34.0] <- 30.0
data$R7194800[35.0 <= data$R7194800 & data$R7194800 <= 39.0] <- 35.0
data$R7194800[40.0 <= data$R7194800 & data$R7194800 <= 44.0] <- 40.0
data$R7194800[45.0 <= data$R7194800 & data$R7194800 <= 49.0] <- 45.0
data$R7194800[50.0 <= data$R7194800 & data$R7194800 <= 9.9999999E7] <- 50.0
data$R7194800 <- factor(data$R7194800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7702900[1.0 <= data$R7702900 & data$R7702900 <= 499.0] <- 1.0
data$R7702900[500.0 <= data$R7702900 & data$R7702900 <= 999.0] <- 500.0
data$R7702900[1000.0 <= data$R7702900 & data$R7702900 <= 1499.0] <- 1000.0
data$R7702900[1500.0 <= data$R7702900 & data$R7702900 <= 1999.0] <- 1500.0
data$R7702900[2000.0 <= data$R7702900 & data$R7702900 <= 2499.0] <- 2000.0
data$R7702900[2500.0 <= data$R7702900 & data$R7702900 <= 2999.0] <- 2500.0
data$R7702900[3000.0 <= data$R7702900 & data$R7702900 <= 3499.0] <- 3000.0
data$R7702900[3500.0 <= data$R7702900 & data$R7702900 <= 3999.0] <- 3500.0
data$R7702900[4000.0 <= data$R7702900 & data$R7702900 <= 4499.0] <- 4000.0
data$R7702900[4500.0 <= data$R7702900 & data$R7702900 <= 4999.0] <- 4500.0
data$R7702900[5000.0 <= data$R7702900 & data$R7702900 <= 9.9999999E7] <- 5000.0
data$R7702900 <- factor(data$R7702900,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R7703000[1.0 <= data$R7703000 & data$R7703000 <= 499.0] <- 1.0
data$R7703000[500.0 <= data$R7703000 & data$R7703000 <= 999.0] <- 500.0
data$R7703000[1000.0 <= data$R7703000 & data$R7703000 <= 1499.0] <- 1000.0
data$R7703000[1500.0 <= data$R7703000 & data$R7703000 <= 1999.0] <- 1500.0
data$R7703000[2000.0 <= data$R7703000 & data$R7703000 <= 2499.0] <- 2000.0
data$R7703000[2500.0 <= data$R7703000 & data$R7703000 <= 2999.0] <- 2500.0
data$R7703000[3000.0 <= data$R7703000 & data$R7703000 <= 3499.0] <- 3000.0
data$R7703000[3500.0 <= data$R7703000 & data$R7703000 <= 3999.0] <- 3500.0
data$R7703000[4000.0 <= data$R7703000 & data$R7703000 <= 4499.0] <- 4000.0
data$R7703000[4500.0 <= data$R7703000 & data$R7703000 <= 4999.0] <- 4500.0
data$R7703000[5000.0 <= data$R7703000 & data$R7703000 <= 9.9999999E7] <- 5000.0
data$R7703000 <- factor(data$R7703000,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R7703100[1.0 <= data$R7703100 & data$R7703100 <= 499.0] <- 1.0
data$R7703100[500.0 <= data$R7703100 & data$R7703100 <= 999.0] <- 500.0
data$R7703100[1000.0 <= data$R7703100 & data$R7703100 <= 1499.0] <- 1000.0
data$R7703100[1500.0 <= data$R7703100 & data$R7703100 <= 1999.0] <- 1500.0
data$R7703100[2000.0 <= data$R7703100 & data$R7703100 <= 2499.0] <- 2000.0
data$R7703100[2500.0 <= data$R7703100 & data$R7703100 <= 2999.0] <- 2500.0
data$R7703100[3000.0 <= data$R7703100 & data$R7703100 <= 3499.0] <- 3000.0
data$R7703100[3500.0 <= data$R7703100 & data$R7703100 <= 3999.0] <- 3500.0
data$R7703100[4000.0 <= data$R7703100 & data$R7703100 <= 4499.0] <- 4000.0
data$R7703100[4500.0 <= data$R7703100 & data$R7703100 <= 4999.0] <- 4500.0
data$R7703100[5000.0 <= data$R7703100 & data$R7703100 <= 9.9999999E7] <- 5000.0
data$R7703100 <- factor(data$R7703100,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R7703200[1.0 <= data$R7703200 & data$R7703200 <= 499.0] <- 1.0
data$R7703200[500.0 <= data$R7703200 & data$R7703200 <= 999.0] <- 500.0
data$R7703200[1000.0 <= data$R7703200 & data$R7703200 <= 1499.0] <- 1000.0
data$R7703200[1500.0 <= data$R7703200 & data$R7703200 <= 1999.0] <- 1500.0
data$R7703200[2000.0 <= data$R7703200 & data$R7703200 <= 2499.0] <- 2000.0
data$R7703200[2500.0 <= data$R7703200 & data$R7703200 <= 2999.0] <- 2500.0
data$R7703200[3000.0 <= data$R7703200 & data$R7703200 <= 3499.0] <- 3000.0
data$R7703200[3500.0 <= data$R7703200 & data$R7703200 <= 3999.0] <- 3500.0
data$R7703200[4000.0 <= data$R7703200 & data$R7703200 <= 4499.0] <- 4000.0
data$R7703200[4500.0 <= data$R7703200 & data$R7703200 <= 4999.0] <- 4500.0
data$R7703200[5000.0 <= data$R7703200 & data$R7703200 <= 9.9999999E7] <- 5000.0
data$R7703200 <- factor(data$R7703200,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R7703300[1.0 <= data$R7703300 & data$R7703300 <= 499.0] <- 1.0
data$R7703300[500.0 <= data$R7703300 & data$R7703300 <= 999.0] <- 500.0
data$R7703300[1000.0 <= data$R7703300 & data$R7703300 <= 1499.0] <- 1000.0
data$R7703300[1500.0 <= data$R7703300 & data$R7703300 <= 1999.0] <- 1500.0
data$R7703300[2000.0 <= data$R7703300 & data$R7703300 <= 2499.0] <- 2000.0
data$R7703300[2500.0 <= data$R7703300 & data$R7703300 <= 2999.0] <- 2500.0
data$R7703300[3000.0 <= data$R7703300 & data$R7703300 <= 3499.0] <- 3000.0
data$R7703300[3500.0 <= data$R7703300 & data$R7703300 <= 3999.0] <- 3500.0
data$R7703300[4000.0 <= data$R7703300 & data$R7703300 <= 4499.0] <- 4000.0
data$R7703300[4500.0 <= data$R7703300 & data$R7703300 <= 4999.0] <- 4500.0
data$R7703300[5000.0 <= data$R7703300 & data$R7703300 <= 9.9999999E7] <- 5000.0
data$R7703300 <- factor(data$R7703300,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R7704400 <- factor(data$R7704400,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$R7704600 <- factor(data$R7704600,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$R7769000[1.0 <= data$R7769000 & data$R7769000 <= 9.0] <- 1.0
data$R7769000[10.0 <= data$R7769000 & data$R7769000 <= 19.0] <- 10.0
data$R7769000[20.0 <= data$R7769000 & data$R7769000 <= 29.0] <- 20.0
data$R7769000[30.0 <= data$R7769000 & data$R7769000 <= 39.0] <- 30.0
data$R7769000[40.0 <= data$R7769000 & data$R7769000 <= 49.0] <- 40.0
data$R7769000[50.0 <= data$R7769000 & data$R7769000 <= 59.0] <- 50.0
data$R7769000[60.0 <= data$R7769000 & data$R7769000 <= 69.0] <- 60.0
data$R7769000[70.0 <= data$R7769000 & data$R7769000 <= 79.0] <- 70.0
data$R7769000[80.0 <= data$R7769000 & data$R7769000 <= 89.0] <- 80.0
data$R7769000[90.0 <= data$R7769000 & data$R7769000 <= 99.0] <- 90.0
data$R7769000[100.0 <= data$R7769000 & data$R7769000 <= 9.9999999E7] <- 100.0
data$R7769000 <- factor(data$R7769000,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$R7769100[1.0 <= data$R7769100 & data$R7769100 <= 9.0] <- 1.0
data$R7769100[10.0 <= data$R7769100 & data$R7769100 <= 19.0] <- 10.0
data$R7769100[20.0 <= data$R7769100 & data$R7769100 <= 29.0] <- 20.0
data$R7769100[30.0 <= data$R7769100 & data$R7769100 <= 39.0] <- 30.0
data$R7769100[40.0 <= data$R7769100 & data$R7769100 <= 49.0] <- 40.0
data$R7769100[50.0 <= data$R7769100 & data$R7769100 <= 59.0] <- 50.0
data$R7769100[60.0 <= data$R7769100 & data$R7769100 <= 69.0] <- 60.0
data$R7769100[70.0 <= data$R7769100 & data$R7769100 <= 79.0] <- 70.0
data$R7769100[80.0 <= data$R7769100 & data$R7769100 <= 89.0] <- 80.0
data$R7769100[90.0 <= data$R7769100 & data$R7769100 <= 99.0] <- 90.0
data$R7769100[100.0 <= data$R7769100 & data$R7769100 <= 9.9999999E7] <- 100.0
data$R7769100 <- factor(data$R7769100,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$R7769200[1.0 <= data$R7769200 & data$R7769200 <= 9.0] <- 1.0
data$R7769200[10.0 <= data$R7769200 & data$R7769200 <= 19.0] <- 10.0
data$R7769200[20.0 <= data$R7769200 & data$R7769200 <= 29.0] <- 20.0
data$R7769200[30.0 <= data$R7769200 & data$R7769200 <= 39.0] <- 30.0
data$R7769200[40.0 <= data$R7769200 & data$R7769200 <= 49.0] <- 40.0
data$R7769200[50.0 <= data$R7769200 & data$R7769200 <= 59.0] <- 50.0
data$R7769200[60.0 <= data$R7769200 & data$R7769200 <= 69.0] <- 60.0
data$R7769200[70.0 <= data$R7769200 & data$R7769200 <= 79.0] <- 70.0
data$R7769200[80.0 <= data$R7769200 & data$R7769200 <= 89.0] <- 80.0
data$R7769200[90.0 <= data$R7769200 & data$R7769200 <= 99.0] <- 90.0
data$R7769200[100.0 <= data$R7769200 & data$R7769200 <= 9.9999999E7] <- 100.0
data$R7769200 <- factor(data$R7769200,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$R7769300[1.0 <= data$R7769300 & data$R7769300 <= 9.0] <- 1.0
data$R7769300[10.0 <= data$R7769300 & data$R7769300 <= 19.0] <- 10.0
data$R7769300[20.0 <= data$R7769300 & data$R7769300 <= 29.0] <- 20.0
data$R7769300[30.0 <= data$R7769300 & data$R7769300 <= 39.0] <- 30.0
data$R7769300[40.0 <= data$R7769300 & data$R7769300 <= 49.0] <- 40.0
data$R7769300[50.0 <= data$R7769300 & data$R7769300 <= 59.0] <- 50.0
data$R7769300[60.0 <= data$R7769300 & data$R7769300 <= 69.0] <- 60.0
data$R7769300[70.0 <= data$R7769300 & data$R7769300 <= 79.0] <- 70.0
data$R7769300[80.0 <= data$R7769300 & data$R7769300 <= 89.0] <- 80.0
data$R7769300[90.0 <= data$R7769300 & data$R7769300 <= 99.0] <- 90.0
data$R7769300[100.0 <= data$R7769300 & data$R7769300 <= 9.9999999E7] <- 100.0
data$R7769300 <- factor(data$R7769300,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$R7769400[1.0 <= data$R7769400 & data$R7769400 <= 9.0] <- 1.0
data$R7769400[10.0 <= data$R7769400 & data$R7769400 <= 19.0] <- 10.0
data$R7769400[20.0 <= data$R7769400 & data$R7769400 <= 29.0] <- 20.0
data$R7769400[30.0 <= data$R7769400 & data$R7769400 <= 39.0] <- 30.0
data$R7769400[40.0 <= data$R7769400 & data$R7769400 <= 49.0] <- 40.0
data$R7769400[50.0 <= data$R7769400 & data$R7769400 <= 59.0] <- 50.0
data$R7769400[60.0 <= data$R7769400 & data$R7769400 <= 69.0] <- 60.0
data$R7769400[70.0 <= data$R7769400 & data$R7769400 <= 79.0] <- 70.0
data$R7769400[80.0 <= data$R7769400 & data$R7769400 <= 89.0] <- 80.0
data$R7769400[90.0 <= data$R7769400 & data$R7769400 <= 99.0] <- 90.0
data$R7769400[100.0 <= data$R7769400 & data$R7769400 <= 9.9999999E7] <- 100.0
data$R7769400 <- factor(data$R7769400,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$R7810500 <- factor(data$R7810500,
levels=c(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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"UNGRADED"))
data$R7878600[1.0 <= data$R7878600 & data$R7878600 <= 9.0] <- 1.0
data$R7878600[10.0 <= data$R7878600 & data$R7878600 <= 19.0] <- 10.0
data$R7878600[20.0 <= data$R7878600 & data$R7878600 <= 29.0] <- 20.0
data$R7878600[30.0 <= data$R7878600 & data$R7878600 <= 39.0] <- 30.0
data$R7878600[40.0 <= data$R7878600 & data$R7878600 <= 49.0] <- 40.0
data$R7878600[50.0 <= data$R7878600 & data$R7878600 <= 59.0] <- 50.0
data$R7878600[60.0 <= data$R7878600 & data$R7878600 <= 69.0] <- 60.0
data$R7878600[70.0 <= data$R7878600 & data$R7878600 <= 79.0] <- 70.0
data$R7878600[80.0 <= data$R7878600 & data$R7878600 <= 89.0] <- 80.0
data$R7878600[90.0 <= data$R7878600 & data$R7878600 <= 99.0] <- 90.0
data$R7878600[100.0 <= data$R7878600 & data$R7878600 <= 9.9999999E7] <- 100.0
data$R7878600 <- factor(data$R7878600,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$R7878700[1.0 <= data$R7878700 & data$R7878700 <= 9.0] <- 1.0
data$R7878700[10.0 <= data$R7878700 & data$R7878700 <= 19.0] <- 10.0
data$R7878700[20.0 <= data$R7878700 & data$R7878700 <= 29.0] <- 20.0
data$R7878700[30.0 <= data$R7878700 & data$R7878700 <= 39.0] <- 30.0
data$R7878700[40.0 <= data$R7878700 & data$R7878700 <= 49.0] <- 40.0
data$R7878700[50.0 <= data$R7878700 & data$R7878700 <= 59.0] <- 50.0
data$R7878700[60.0 <= data$R7878700 & data$R7878700 <= 69.0] <- 60.0
data$R7878700[70.0 <= data$R7878700 & data$R7878700 <= 79.0] <- 70.0
data$R7878700[80.0 <= data$R7878700 & data$R7878700 <= 89.0] <- 80.0
data$R7878700[90.0 <= data$R7878700 & data$R7878700 <= 99.0] <- 90.0
data$R7878700[100.0 <= data$R7878700 & data$R7878700 <= 9.9999999E7] <- 100.0
data$R7878700 <- factor(data$R7878700,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$R7878800[1.0 <= data$R7878800 & data$R7878800 <= 9.0] <- 1.0
data$R7878800[10.0 <= data$R7878800 & data$R7878800 <= 19.0] <- 10.0
data$R7878800[20.0 <= data$R7878800 & data$R7878800 <= 29.0] <- 20.0
data$R7878800[30.0 <= data$R7878800 & data$R7878800 <= 39.0] <- 30.0
data$R7878800[40.0 <= data$R7878800 & data$R7878800 <= 49.0] <- 40.0
data$R7878800[50.0 <= data$R7878800 & data$R7878800 <= 59.0] <- 50.0
data$R7878800[60.0 <= data$R7878800 & data$R7878800 <= 69.0] <- 60.0
data$R7878800[70.0 <= data$R7878800 & data$R7878800 <= 79.0] <- 70.0
data$R7878800[80.0 <= data$R7878800 & data$R7878800 <= 89.0] <- 80.0
data$R7878800[90.0 <= data$R7878800 & data$R7878800 <= 99.0] <- 90.0
data$R7878800[100.0 <= data$R7878800 & data$R7878800 <= 9.9999999E7] <- 100.0
data$R7878800 <- factor(data$R7878800,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$R7878900[1.0 <= data$R7878900 & data$R7878900 <= 9.0] <- 1.0
data$R7878900[10.0 <= data$R7878900 & data$R7878900 <= 19.0] <- 10.0
data$R7878900[20.0 <= data$R7878900 & data$R7878900 <= 29.0] <- 20.0
data$R7878900[30.0 <= data$R7878900 & data$R7878900 <= 39.0] <- 30.0
data$R7878900[40.0 <= data$R7878900 & data$R7878900 <= 49.0] <- 40.0
data$R7878900[50.0 <= data$R7878900 & data$R7878900 <= 59.0] <- 50.0
data$R7878900[60.0 <= data$R7878900 & data$R7878900 <= 69.0] <- 60.0
data$R7878900[70.0 <= data$R7878900 & data$R7878900 <= 79.0] <- 70.0
data$R7878900[80.0 <= data$R7878900 & data$R7878900 <= 89.0] <- 80.0
data$R7878900[90.0 <= data$R7878900 & data$R7878900 <= 99.0] <- 90.0
data$R7878900[100.0 <= data$R7878900 & data$R7878900 <= 9.9999999E7] <- 100.0
data$R7878900 <- factor(data$R7878900,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$R7879000[1.0 <= data$R7879000 & data$R7879000 <= 9.0] <- 1.0
data$R7879000[10.0 <= data$R7879000 & data$R7879000 <= 19.0] <- 10.0
data$R7879000[20.0 <= data$R7879000 & data$R7879000 <= 29.0] <- 20.0
data$R7879000[30.0 <= data$R7879000 & data$R7879000 <= 39.0] <- 30.0
data$R7879000[40.0 <= data$R7879000 & data$R7879000 <= 49.0] <- 40.0
data$R7879000[50.0 <= data$R7879000 & data$R7879000 <= 59.0] <- 50.0
data$R7879000[60.0 <= data$R7879000 & data$R7879000 <= 69.0] <- 60.0
data$R7879000[70.0 <= data$R7879000 & data$R7879000 <= 79.0] <- 70.0
data$R7879000[80.0 <= data$R7879000 & data$R7879000 <= 89.0] <- 80.0
data$R7879000[90.0 <= data$R7879000 & data$R7879000 <= 99.0] <- 90.0
data$R7879000[100.0 <= data$R7879000 & data$R7879000 <= 9.9999999E7] <- 100.0
data$R7879000 <- factor(data$R7879000,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$R7879600[1.0 <= data$R7879600 & data$R7879600 <= 4.0] <- 1.0
data$R7879600[5.0 <= data$R7879600 & data$R7879600 <= 9.0] <- 5.0
data$R7879600[10.0 <= data$R7879600 & data$R7879600 <= 14.0] <- 10.0
data$R7879600[15.0 <= data$R7879600 & data$R7879600 <= 19.0] <- 15.0
data$R7879600[20.0 <= data$R7879600 & data$R7879600 <= 24.0] <- 20.0
data$R7879600[25.0 <= data$R7879600 & data$R7879600 <= 29.0] <- 25.0
data$R7879600[30.0 <= data$R7879600 & data$R7879600 <= 34.0] <- 30.0
data$R7879600[35.0 <= data$R7879600 & data$R7879600 <= 39.0] <- 35.0
data$R7879600[40.0 <= data$R7879600 & data$R7879600 <= 44.0] <- 40.0
data$R7879600[45.0 <= data$R7879600 & data$R7879600 <= 49.0] <- 45.0
data$R7879600[50.0 <= data$R7879600 & data$R7879600 <= 9.9999999E7] <- 50.0
data$R7879600 <- factor(data$R7879600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7879700[1.0 <= data$R7879700 & data$R7879700 <= 4.0] <- 1.0
data$R7879700[5.0 <= data$R7879700 & data$R7879700 <= 9.0] <- 5.0
data$R7879700[10.0 <= data$R7879700 & data$R7879700 <= 14.0] <- 10.0
data$R7879700[15.0 <= data$R7879700 & data$R7879700 <= 19.0] <- 15.0
data$R7879700[20.0 <= data$R7879700 & data$R7879700 <= 24.0] <- 20.0
data$R7879700[25.0 <= data$R7879700 & data$R7879700 <= 29.0] <- 25.0
data$R7879700[30.0 <= data$R7879700 & data$R7879700 <= 34.0] <- 30.0
data$R7879700[35.0 <= data$R7879700 & data$R7879700 <= 39.0] <- 35.0
data$R7879700[40.0 <= data$R7879700 & data$R7879700 <= 44.0] <- 40.0
data$R7879700[45.0 <= data$R7879700 & data$R7879700 <= 49.0] <- 45.0
data$R7879700[50.0 <= data$R7879700 & data$R7879700 <= 9.9999999E7] <- 50.0
data$R7879700 <- factor(data$R7879700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7879800[1.0 <= data$R7879800 & data$R7879800 <= 4.0] <- 1.0
data$R7879800[5.0 <= data$R7879800 & data$R7879800 <= 9.0] <- 5.0
data$R7879800[10.0 <= data$R7879800 & data$R7879800 <= 14.0] <- 10.0
data$R7879800[15.0 <= data$R7879800 & data$R7879800 <= 19.0] <- 15.0
data$R7879800[20.0 <= data$R7879800 & data$R7879800 <= 24.0] <- 20.0
data$R7879800[25.0 <= data$R7879800 & data$R7879800 <= 29.0] <- 25.0
data$R7879800[30.0 <= data$R7879800 & data$R7879800 <= 34.0] <- 30.0
data$R7879800[35.0 <= data$R7879800 & data$R7879800 <= 39.0] <- 35.0
data$R7879800[40.0 <= data$R7879800 & data$R7879800 <= 44.0] <- 40.0
data$R7879800[45.0 <= data$R7879800 & data$R7879800 <= 49.0] <- 45.0
data$R7879800[50.0 <= data$R7879800 & data$R7879800 <= 9.9999999E7] <- 50.0
data$R7879800 <- factor(data$R7879800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7879900[1.0 <= data$R7879900 & data$R7879900 <= 4.0] <- 1.0
data$R7879900[5.0 <= data$R7879900 & data$R7879900 <= 9.0] <- 5.0
data$R7879900[10.0 <= data$R7879900 & data$R7879900 <= 14.0] <- 10.0
data$R7879900[15.0 <= data$R7879900 & data$R7879900 <= 19.0] <- 15.0
data$R7879900[20.0 <= data$R7879900 & data$R7879900 <= 24.0] <- 20.0
data$R7879900[25.0 <= data$R7879900 & data$R7879900 <= 29.0] <- 25.0
data$R7879900[30.0 <= data$R7879900 & data$R7879900 <= 34.0] <- 30.0
data$R7879900[35.0 <= data$R7879900 & data$R7879900 <= 39.0] <- 35.0
data$R7879900[40.0 <= data$R7879900 & data$R7879900 <= 44.0] <- 40.0
data$R7879900[45.0 <= data$R7879900 & data$R7879900 <= 49.0] <- 45.0
data$R7879900[50.0 <= data$R7879900 & data$R7879900 <= 9.9999999E7] <- 50.0
data$R7879900 <- factor(data$R7879900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7880000[1.0 <= data$R7880000 & data$R7880000 <= 4.0] <- 1.0
data$R7880000[5.0 <= data$R7880000 & data$R7880000 <= 9.0] <- 5.0
data$R7880000[10.0 <= data$R7880000 & data$R7880000 <= 14.0] <- 10.0
data$R7880000[15.0 <= data$R7880000 & data$R7880000 <= 19.0] <- 15.0
data$R7880000[20.0 <= data$R7880000 & data$R7880000 <= 24.0] <- 20.0
data$R7880000[25.0 <= data$R7880000 & data$R7880000 <= 29.0] <- 25.0
data$R7880000[30.0 <= data$R7880000 & data$R7880000 <= 34.0] <- 30.0
data$R7880000[35.0 <= data$R7880000 & data$R7880000 <= 39.0] <- 35.0
data$R7880000[40.0 <= data$R7880000 & data$R7880000 <= 44.0] <- 40.0
data$R7880000[45.0 <= data$R7880000 & data$R7880000 <= 49.0] <- 45.0
data$R7880000[50.0 <= data$R7880000 & data$R7880000 <= 9.9999999E7] <- 50.0
data$R7880000 <- factor(data$R7880000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7880100[1.0 <= data$R7880100 & data$R7880100 <= 4.0] <- 1.0
data$R7880100[5.0 <= data$R7880100 & data$R7880100 <= 9.0] <- 5.0
data$R7880100[10.0 <= data$R7880100 & data$R7880100 <= 14.0] <- 10.0
data$R7880100[15.0 <= data$R7880100 & data$R7880100 <= 19.0] <- 15.0
data$R7880100[20.0 <= data$R7880100 & data$R7880100 <= 24.0] <- 20.0
data$R7880100[25.0 <= data$R7880100 & data$R7880100 <= 29.0] <- 25.0
data$R7880100[30.0 <= data$R7880100 & data$R7880100 <= 34.0] <- 30.0
data$R7880100[35.0 <= data$R7880100 & data$R7880100 <= 39.0] <- 35.0
data$R7880100[40.0 <= data$R7880100 & data$R7880100 <= 44.0] <- 40.0
data$R7880100[45.0 <= data$R7880100 & data$R7880100 <= 49.0] <- 45.0
data$R7880100[50.0 <= data$R7880100 & data$R7880100 <= 9.9999999E7] <- 50.0
data$R7880100 <- factor(data$R7880100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7880200[1.0 <= data$R7880200 & data$R7880200 <= 4.0] <- 1.0
data$R7880200[5.0 <= data$R7880200 & data$R7880200 <= 9.0] <- 5.0
data$R7880200[10.0 <= data$R7880200 & data$R7880200 <= 14.0] <- 10.0
data$R7880200[15.0 <= data$R7880200 & data$R7880200 <= 19.0] <- 15.0
data$R7880200[20.0 <= data$R7880200 & data$R7880200 <= 24.0] <- 20.0
data$R7880200[25.0 <= data$R7880200 & data$R7880200 <= 29.0] <- 25.0
data$R7880200[30.0 <= data$R7880200 & data$R7880200 <= 34.0] <- 30.0
data$R7880200[35.0 <= data$R7880200 & data$R7880200 <= 39.0] <- 35.0
data$R7880200[40.0 <= data$R7880200 & data$R7880200 <= 44.0] <- 40.0
data$R7880200[45.0 <= data$R7880200 & data$R7880200 <= 49.0] <- 45.0
data$R7880200[50.0 <= data$R7880200 & data$R7880200 <= 9.9999999E7] <- 50.0
data$R7880200 <- factor(data$R7880200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7880300[1.0 <= data$R7880300 & data$R7880300 <= 4.0] <- 1.0
data$R7880300[5.0 <= data$R7880300 & data$R7880300 <= 9.0] <- 5.0
data$R7880300[10.0 <= data$R7880300 & data$R7880300 <= 14.0] <- 10.0
data$R7880300[15.0 <= data$R7880300 & data$R7880300 <= 19.0] <- 15.0
data$R7880300[20.0 <= data$R7880300 & data$R7880300 <= 24.0] <- 20.0
data$R7880300[25.0 <= data$R7880300 & data$R7880300 <= 29.0] <- 25.0
data$R7880300[30.0 <= data$R7880300 & data$R7880300 <= 34.0] <- 30.0
data$R7880300[35.0 <= data$R7880300 & data$R7880300 <= 39.0] <- 35.0
data$R7880300[40.0 <= data$R7880300 & data$R7880300 <= 44.0] <- 40.0
data$R7880300[45.0 <= data$R7880300 & data$R7880300 <= 49.0] <- 45.0
data$R7880300[50.0 <= data$R7880300 & data$R7880300 <= 9.9999999E7] <- 50.0
data$R7880300 <- factor(data$R7880300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7880400[1.0 <= data$R7880400 & data$R7880400 <= 4.0] <- 1.0
data$R7880400[5.0 <= data$R7880400 & data$R7880400 <= 9.0] <- 5.0
data$R7880400[10.0 <= data$R7880400 & data$R7880400 <= 14.0] <- 10.0
data$R7880400[15.0 <= data$R7880400 & data$R7880400 <= 19.0] <- 15.0
data$R7880400[20.0 <= data$R7880400 & data$R7880400 <= 24.0] <- 20.0
data$R7880400[25.0 <= data$R7880400 & data$R7880400 <= 29.0] <- 25.0
data$R7880400[30.0 <= data$R7880400 & data$R7880400 <= 34.0] <- 30.0
data$R7880400[35.0 <= data$R7880400 & data$R7880400 <= 39.0] <- 35.0
data$R7880400[40.0 <= data$R7880400 & data$R7880400 <= 44.0] <- 40.0
data$R7880400[45.0 <= data$R7880400 & data$R7880400 <= 49.0] <- 45.0
data$R7880400[50.0 <= data$R7880400 & data$R7880400 <= 9.9999999E7] <- 50.0
data$R7880400 <- factor(data$R7880400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7880500[1.0 <= data$R7880500 & data$R7880500 <= 4.0] <- 1.0
data$R7880500[5.0 <= data$R7880500 & data$R7880500 <= 9.0] <- 5.0
data$R7880500[10.0 <= data$R7880500 & data$R7880500 <= 14.0] <- 10.0
data$R7880500[15.0 <= data$R7880500 & data$R7880500 <= 19.0] <- 15.0
data$R7880500[20.0 <= data$R7880500 & data$R7880500 <= 24.0] <- 20.0
data$R7880500[25.0 <= data$R7880500 & data$R7880500 <= 29.0] <- 25.0
data$R7880500[30.0 <= data$R7880500 & data$R7880500 <= 34.0] <- 30.0
data$R7880500[35.0 <= data$R7880500 & data$R7880500 <= 39.0] <- 35.0
data$R7880500[40.0 <= data$R7880500 & data$R7880500 <= 44.0] <- 40.0
data$R7880500[45.0 <= data$R7880500 & data$R7880500 <= 49.0] <- 45.0
data$R7880500[50.0 <= data$R7880500 & data$R7880500 <= 9.9999999E7] <- 50.0
data$R7880500 <- factor(data$R7880500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7880600 <- factor(data$R7880600,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$R7880700 <- factor(data$R7880700,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$R7880800 <- factor(data$R7880800,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$R7880900 <- factor(data$R7880900,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$R7881000 <- factor(data$R7881000,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$R7881100[1.0 <= data$R7881100 & data$R7881100 <= 4.0] <- 1.0
data$R7881100[5.0 <= data$R7881100 & data$R7881100 <= 9.0] <- 5.0
data$R7881100[10.0 <= data$R7881100 & data$R7881100 <= 14.0] <- 10.0
data$R7881100[15.0 <= data$R7881100 & data$R7881100 <= 19.0] <- 15.0
data$R7881100[20.0 <= data$R7881100 & data$R7881100 <= 24.0] <- 20.0
data$R7881100[25.0 <= data$R7881100 & data$R7881100 <= 29.0] <- 25.0
data$R7881100[30.0 <= data$R7881100 & data$R7881100 <= 34.0] <- 30.0
data$R7881100[35.0 <= data$R7881100 & data$R7881100 <= 39.0] <- 35.0
data$R7881100[40.0 <= data$R7881100 & data$R7881100 <= 44.0] <- 40.0
data$R7881100[45.0 <= data$R7881100 & data$R7881100 <= 49.0] <- 45.0
data$R7881100[50.0 <= data$R7881100 & data$R7881100 <= 9.9999999E7] <- 50.0
data$R7881100 <- factor(data$R7881100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7881200[1.0 <= data$R7881200 & data$R7881200 <= 4.0] <- 1.0
data$R7881200[5.0 <= data$R7881200 & data$R7881200 <= 9.0] <- 5.0
data$R7881200[10.0 <= data$R7881200 & data$R7881200 <= 14.0] <- 10.0
data$R7881200[15.0 <= data$R7881200 & data$R7881200 <= 19.0] <- 15.0
data$R7881200[20.0 <= data$R7881200 & data$R7881200 <= 24.0] <- 20.0
data$R7881200[25.0 <= data$R7881200 & data$R7881200 <= 29.0] <- 25.0
data$R7881200[30.0 <= data$R7881200 & data$R7881200 <= 34.0] <- 30.0
data$R7881200[35.0 <= data$R7881200 & data$R7881200 <= 39.0] <- 35.0
data$R7881200[40.0 <= data$R7881200 & data$R7881200 <= 44.0] <- 40.0
data$R7881200[45.0 <= data$R7881200 & data$R7881200 <= 49.0] <- 45.0
data$R7881200[50.0 <= data$R7881200 & data$R7881200 <= 9.9999999E7] <- 50.0
data$R7881200 <- factor(data$R7881200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7881300[1.0 <= data$R7881300 & data$R7881300 <= 4.0] <- 1.0
data$R7881300[5.0 <= data$R7881300 & data$R7881300 <= 9.0] <- 5.0
data$R7881300[10.0 <= data$R7881300 & data$R7881300 <= 14.0] <- 10.0
data$R7881300[15.0 <= data$R7881300 & data$R7881300 <= 19.0] <- 15.0
data$R7881300[20.0 <= data$R7881300 & data$R7881300 <= 24.0] <- 20.0
data$R7881300[25.0 <= data$R7881300 & data$R7881300 <= 29.0] <- 25.0
data$R7881300[30.0 <= data$R7881300 & data$R7881300 <= 34.0] <- 30.0
data$R7881300[35.0 <= data$R7881300 & data$R7881300 <= 39.0] <- 35.0
data$R7881300[40.0 <= data$R7881300 & data$R7881300 <= 44.0] <- 40.0
data$R7881300[45.0 <= data$R7881300 & data$R7881300 <= 49.0] <- 45.0
data$R7881300[50.0 <= data$R7881300 & data$R7881300 <= 9.9999999E7] <- 50.0
data$R7881300 <- factor(data$R7881300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7881400[1.0 <= data$R7881400 & data$R7881400 <= 4.0] <- 1.0
data$R7881400[5.0 <= data$R7881400 & data$R7881400 <= 9.0] <- 5.0
data$R7881400[10.0 <= data$R7881400 & data$R7881400 <= 14.0] <- 10.0
data$R7881400[15.0 <= data$R7881400 & data$R7881400 <= 19.0] <- 15.0
data$R7881400[20.0 <= data$R7881400 & data$R7881400 <= 24.0] <- 20.0
data$R7881400[25.0 <= data$R7881400 & data$R7881400 <= 29.0] <- 25.0
data$R7881400[30.0 <= data$R7881400 & data$R7881400 <= 34.0] <- 30.0
data$R7881400[35.0 <= data$R7881400 & data$R7881400 <= 39.0] <- 35.0
data$R7881400[40.0 <= data$R7881400 & data$R7881400 <= 44.0] <- 40.0
data$R7881400[45.0 <= data$R7881400 & data$R7881400 <= 49.0] <- 45.0
data$R7881400[50.0 <= data$R7881400 & data$R7881400 <= 9.9999999E7] <- 50.0
data$R7881400 <- factor(data$R7881400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R7881500[1.0 <= data$R7881500 & data$R7881500 <= 4.0] <- 1.0
data$R7881500[5.0 <= data$R7881500 & data$R7881500 <= 9.0] <- 5.0
data$R7881500[10.0 <= data$R7881500 & data$R7881500 <= 14.0] <- 10.0
data$R7881500[15.0 <= data$R7881500 & data$R7881500 <= 19.0] <- 15.0
data$R7881500[20.0 <= data$R7881500 & data$R7881500 <= 24.0] <- 20.0
data$R7881500[25.0 <= data$R7881500 & data$R7881500 <= 29.0] <- 25.0
data$R7881500[30.0 <= data$R7881500 & data$R7881500 <= 34.0] <- 30.0
data$R7881500[35.0 <= data$R7881500 & data$R7881500 <= 39.0] <- 35.0
data$R7881500[40.0 <= data$R7881500 & data$R7881500 <= 44.0] <- 40.0
data$R7881500[45.0 <= data$R7881500 & data$R7881500 <= 49.0] <- 45.0
data$R7881500[50.0 <= data$R7881500 & data$R7881500 <= 9.9999999E7] <- 50.0
data$R7881500 <- factor(data$R7881500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$R8495200[1.0 <= data$R8495200 & data$R8495200 <= 499.0] <- 1.0
data$R8495200[500.0 <= data$R8495200 & data$R8495200 <= 999.0] <- 500.0
data$R8495200[1000.0 <= data$R8495200 & data$R8495200 <= 1499.0] <- 1000.0
data$R8495200[1500.0 <= data$R8495200 & data$R8495200 <= 1999.0] <- 1500.0
data$R8495200[2000.0 <= data$R8495200 & data$R8495200 <= 2499.0] <- 2000.0
data$R8495200[2500.0 <= data$R8495200 & data$R8495200 <= 2999.0] <- 2500.0
data$R8495200[3000.0 <= data$R8495200 & data$R8495200 <= 3499.0] <- 3000.0
data$R8495200[3500.0 <= data$R8495200 & data$R8495200 <= 3999.0] <- 3500.0
data$R8495200[4000.0 <= data$R8495200 & data$R8495200 <= 4499.0] <- 4000.0
data$R8495200[4500.0 <= data$R8495200 & data$R8495200 <= 4999.0] <- 4500.0
data$R8495200[5000.0 <= data$R8495200 & data$R8495200 <= 9.9999999E7] <- 5000.0
data$R8495200 <- factor(data$R8495200,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R8495300[1.0 <= data$R8495300 & data$R8495300 <= 499.0] <- 1.0
data$R8495300[500.0 <= data$R8495300 & data$R8495300 <= 999.0] <- 500.0
data$R8495300[1000.0 <= data$R8495300 & data$R8495300 <= 1499.0] <- 1000.0
data$R8495300[1500.0 <= data$R8495300 & data$R8495300 <= 1999.0] <- 1500.0
data$R8495300[2000.0 <= data$R8495300 & data$R8495300 <= 2499.0] <- 2000.0
data$R8495300[2500.0 <= data$R8495300 & data$R8495300 <= 2999.0] <- 2500.0
data$R8495300[3000.0 <= data$R8495300 & data$R8495300 <= 3499.0] <- 3000.0
data$R8495300[3500.0 <= data$R8495300 & data$R8495300 <= 3999.0] <- 3500.0
data$R8495300[4000.0 <= data$R8495300 & data$R8495300 <= 4499.0] <- 4000.0
data$R8495300[4500.0 <= data$R8495300 & data$R8495300 <= 4999.0] <- 4500.0
data$R8495300[5000.0 <= data$R8495300 & data$R8495300 <= 9.9999999E7] <- 5000.0
data$R8495300 <- factor(data$R8495300,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R8495400[1.0 <= data$R8495400 & data$R8495400 <= 499.0] <- 1.0
data$R8495400[500.0 <= data$R8495400 & data$R8495400 <= 999.0] <- 500.0
data$R8495400[1000.0 <= data$R8495400 & data$R8495400 <= 1499.0] <- 1000.0
data$R8495400[1500.0 <= data$R8495400 & data$R8495400 <= 1999.0] <- 1500.0
data$R8495400[2000.0 <= data$R8495400 & data$R8495400 <= 2499.0] <- 2000.0
data$R8495400[2500.0 <= data$R8495400 & data$R8495400 <= 2999.0] <- 2500.0
data$R8495400[3000.0 <= data$R8495400 & data$R8495400 <= 3499.0] <- 3000.0
data$R8495400[3500.0 <= data$R8495400 & data$R8495400 <= 3999.0] <- 3500.0
data$R8495400[4000.0 <= data$R8495400 & data$R8495400 <= 4499.0] <- 4000.0
data$R8495400[4500.0 <= data$R8495400 & data$R8495400 <= 4999.0] <- 4500.0
data$R8495400[5000.0 <= data$R8495400 & data$R8495400 <= 9.9999999E7] <- 5000.0
data$R8495400 <- factor(data$R8495400,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R8495500[1.0 <= data$R8495500 & data$R8495500 <= 499.0] <- 1.0
data$R8495500[500.0 <= data$R8495500 & data$R8495500 <= 999.0] <- 500.0
data$R8495500[1000.0 <= data$R8495500 & data$R8495500 <= 1499.0] <- 1000.0
data$R8495500[1500.0 <= data$R8495500 & data$R8495500 <= 1999.0] <- 1500.0
data$R8495500[2000.0 <= data$R8495500 & data$R8495500 <= 2499.0] <- 2000.0
data$R8495500[2500.0 <= data$R8495500 & data$R8495500 <= 2999.0] <- 2500.0
data$R8495500[3000.0 <= data$R8495500 & data$R8495500 <= 3499.0] <- 3000.0
data$R8495500[3500.0 <= data$R8495500 & data$R8495500 <= 3999.0] <- 3500.0
data$R8495500[4000.0 <= data$R8495500 & data$R8495500 <= 4499.0] <- 4000.0
data$R8495500[4500.0 <= data$R8495500 & data$R8495500 <= 4999.0] <- 4500.0
data$R8495500[5000.0 <= data$R8495500 & data$R8495500 <= 9.9999999E7] <- 5000.0
data$R8495500 <- factor(data$R8495500,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R8495600[1.0 <= data$R8495600 & data$R8495600 <= 499.0] <- 1.0
data$R8495600[500.0 <= data$R8495600 & data$R8495600 <= 999.0] <- 500.0
data$R8495600[1000.0 <= data$R8495600 & data$R8495600 <= 1499.0] <- 1000.0
data$R8495600[1500.0 <= data$R8495600 & data$R8495600 <= 1999.0] <- 1500.0
data$R8495600[2000.0 <= data$R8495600 & data$R8495600 <= 2499.0] <- 2000.0
data$R8495600[2500.0 <= data$R8495600 & data$R8495600 <= 2999.0] <- 2500.0
data$R8495600[3000.0 <= data$R8495600 & data$R8495600 <= 3499.0] <- 3000.0
data$R8495600[3500.0 <= data$R8495600 & data$R8495600 <= 3999.0] <- 3500.0
data$R8495600[4000.0 <= data$R8495600 & data$R8495600 <= 4499.0] <- 4000.0
data$R8495600[4500.0 <= data$R8495600 & data$R8495600 <= 4999.0] <- 4500.0
data$R8495600[5000.0 <= data$R8495600 & data$R8495600 <= 9.9999999E7] <- 5000.0
data$R8495600 <- factor(data$R8495600,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$R8496800 <- factor(data$R8496800,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$R8497000 <- factor(data$R8497000,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$T0014400 <- factor(data$T0014400,
levels=c(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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"UNGRADED"))
data$T0120800[1.0 <= data$T0120800 & data$T0120800 <= 9.0] <- 1.0
data$T0120800[10.0 <= data$T0120800 & data$T0120800 <= 19.0] <- 10.0
data$T0120800[20.0 <= data$T0120800 & data$T0120800 <= 29.0] <- 20.0
data$T0120800[30.0 <= data$T0120800 & data$T0120800 <= 39.0] <- 30.0
data$T0120800[40.0 <= data$T0120800 & data$T0120800 <= 49.0] <- 40.0
data$T0120800[50.0 <= data$T0120800 & data$T0120800 <= 59.0] <- 50.0
data$T0120800[60.0 <= data$T0120800 & data$T0120800 <= 69.0] <- 60.0
data$T0120800[70.0 <= data$T0120800 & data$T0120800 <= 79.0] <- 70.0
data$T0120800[80.0 <= data$T0120800 & data$T0120800 <= 89.0] <- 80.0
data$T0120800[90.0 <= data$T0120800 & data$T0120800 <= 99.0] <- 90.0
data$T0120800[100.0 <= data$T0120800 & data$T0120800 <= 9.9999999E7] <- 100.0
data$T0120800 <- factor(data$T0120800,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T0120900[1.0 <= data$T0120900 & data$T0120900 <= 9.0] <- 1.0
data$T0120900[10.0 <= data$T0120900 & data$T0120900 <= 19.0] <- 10.0
data$T0120900[20.0 <= data$T0120900 & data$T0120900 <= 29.0] <- 20.0
data$T0120900[30.0 <= data$T0120900 & data$T0120900 <= 39.0] <- 30.0
data$T0120900[40.0 <= data$T0120900 & data$T0120900 <= 49.0] <- 40.0
data$T0120900[50.0 <= data$T0120900 & data$T0120900 <= 59.0] <- 50.0
data$T0120900[60.0 <= data$T0120900 & data$T0120900 <= 69.0] <- 60.0
data$T0120900[70.0 <= data$T0120900 & data$T0120900 <= 79.0] <- 70.0
data$T0120900[80.0 <= data$T0120900 & data$T0120900 <= 89.0] <- 80.0
data$T0120900[90.0 <= data$T0120900 & data$T0120900 <= 99.0] <- 90.0
data$T0120900[100.0 <= data$T0120900 & data$T0120900 <= 9.9999999E7] <- 100.0
data$T0120900 <- factor(data$T0120900,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T0121000[1.0 <= data$T0121000 & data$T0121000 <= 9.0] <- 1.0
data$T0121000[10.0 <= data$T0121000 & data$T0121000 <= 19.0] <- 10.0
data$T0121000[20.0 <= data$T0121000 & data$T0121000 <= 29.0] <- 20.0
data$T0121000[30.0 <= data$T0121000 & data$T0121000 <= 39.0] <- 30.0
data$T0121000[40.0 <= data$T0121000 & data$T0121000 <= 49.0] <- 40.0
data$T0121000[50.0 <= data$T0121000 & data$T0121000 <= 59.0] <- 50.0
data$T0121000[60.0 <= data$T0121000 & data$T0121000 <= 69.0] <- 60.0
data$T0121000[70.0 <= data$T0121000 & data$T0121000 <= 79.0] <- 70.0
data$T0121000[80.0 <= data$T0121000 & data$T0121000 <= 89.0] <- 80.0
data$T0121000[90.0 <= data$T0121000 & data$T0121000 <= 99.0] <- 90.0
data$T0121000[100.0 <= data$T0121000 & data$T0121000 <= 9.9999999E7] <- 100.0
data$T0121000 <- factor(data$T0121000,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T0121100[1.0 <= data$T0121100 & data$T0121100 <= 9.0] <- 1.0
data$T0121100[10.0 <= data$T0121100 & data$T0121100 <= 19.0] <- 10.0
data$T0121100[20.0 <= data$T0121100 & data$T0121100 <= 29.0] <- 20.0
data$T0121100[30.0 <= data$T0121100 & data$T0121100 <= 39.0] <- 30.0
data$T0121100[40.0 <= data$T0121100 & data$T0121100 <= 49.0] <- 40.0
data$T0121100[50.0 <= data$T0121100 & data$T0121100 <= 59.0] <- 50.0
data$T0121100[60.0 <= data$T0121100 & data$T0121100 <= 69.0] <- 60.0
data$T0121100[70.0 <= data$T0121100 & data$T0121100 <= 79.0] <- 70.0
data$T0121100[80.0 <= data$T0121100 & data$T0121100 <= 89.0] <- 80.0
data$T0121100[90.0 <= data$T0121100 & data$T0121100 <= 99.0] <- 90.0
data$T0121100[100.0 <= data$T0121100 & data$T0121100 <= 9.9999999E7] <- 100.0
data$T0121100 <- factor(data$T0121100,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T0121200[1.0 <= data$T0121200 & data$T0121200 <= 9.0] <- 1.0
data$T0121200[10.0 <= data$T0121200 & data$T0121200 <= 19.0] <- 10.0
data$T0121200[20.0 <= data$T0121200 & data$T0121200 <= 29.0] <- 20.0
data$T0121200[30.0 <= data$T0121200 & data$T0121200 <= 39.0] <- 30.0
data$T0121200[40.0 <= data$T0121200 & data$T0121200 <= 49.0] <- 40.0
data$T0121200[50.0 <= data$T0121200 & data$T0121200 <= 59.0] <- 50.0
data$T0121200[60.0 <= data$T0121200 & data$T0121200 <= 69.0] <- 60.0
data$T0121200[70.0 <= data$T0121200 & data$T0121200 <= 79.0] <- 70.0
data$T0121200[80.0 <= data$T0121200 & data$T0121200 <= 89.0] <- 80.0
data$T0121200[90.0 <= data$T0121200 & data$T0121200 <= 99.0] <- 90.0
data$T0121200[100.0 <= data$T0121200 & data$T0121200 <= 9.9999999E7] <- 100.0
data$T0121200 <- factor(data$T0121200,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T0121900[1.0 <= data$T0121900 & data$T0121900 <= 4.0] <- 1.0
data$T0121900[5.0 <= data$T0121900 & data$T0121900 <= 9.0] <- 5.0
data$T0121900[10.0 <= data$T0121900 & data$T0121900 <= 14.0] <- 10.0
data$T0121900[15.0 <= data$T0121900 & data$T0121900 <= 19.0] <- 15.0
data$T0121900[20.0 <= data$T0121900 & data$T0121900 <= 24.0] <- 20.0
data$T0121900[25.0 <= data$T0121900 & data$T0121900 <= 29.0] <- 25.0
data$T0121900[30.0 <= data$T0121900 & data$T0121900 <= 34.0] <- 30.0
data$T0121900[35.0 <= data$T0121900 & data$T0121900 <= 39.0] <- 35.0
data$T0121900[40.0 <= data$T0121900 & data$T0121900 <= 44.0] <- 40.0
data$T0121900[45.0 <= data$T0121900 & data$T0121900 <= 49.0] <- 45.0
data$T0121900[50.0 <= data$T0121900 & data$T0121900 <= 9.9999999E7] <- 50.0
data$T0121900 <- factor(data$T0121900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T0122000[1.0 <= data$T0122000 & data$T0122000 <= 4.0] <- 1.0
data$T0122000[5.0 <= data$T0122000 & data$T0122000 <= 9.0] <- 5.0
data$T0122000[10.0 <= data$T0122000 & data$T0122000 <= 14.0] <- 10.0
data$T0122000[15.0 <= data$T0122000 & data$T0122000 <= 19.0] <- 15.0
data$T0122000[20.0 <= data$T0122000 & data$T0122000 <= 24.0] <- 20.0
data$T0122000[25.0 <= data$T0122000 & data$T0122000 <= 29.0] <- 25.0
data$T0122000[30.0 <= data$T0122000 & data$T0122000 <= 34.0] <- 30.0
data$T0122000[35.0 <= data$T0122000 & data$T0122000 <= 39.0] <- 35.0
data$T0122000[40.0 <= data$T0122000 & data$T0122000 <= 44.0] <- 40.0
data$T0122000[45.0 <= data$T0122000 & data$T0122000 <= 49.0] <- 45.0
data$T0122000[50.0 <= data$T0122000 & data$T0122000 <= 9.9999999E7] <- 50.0
data$T0122000 <- factor(data$T0122000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T0122100[1.0 <= data$T0122100 & data$T0122100 <= 4.0] <- 1.0
data$T0122100[5.0 <= data$T0122100 & data$T0122100 <= 9.0] <- 5.0
data$T0122100[10.0 <= data$T0122100 & data$T0122100 <= 14.0] <- 10.0
data$T0122100[15.0 <= data$T0122100 & data$T0122100 <= 19.0] <- 15.0
data$T0122100[20.0 <= data$T0122100 & data$T0122100 <= 24.0] <- 20.0
data$T0122100[25.0 <= data$T0122100 & data$T0122100 <= 29.0] <- 25.0
data$T0122100[30.0 <= data$T0122100 & data$T0122100 <= 34.0] <- 30.0
data$T0122100[35.0 <= data$T0122100 & data$T0122100 <= 39.0] <- 35.0
data$T0122100[40.0 <= data$T0122100 & data$T0122100 <= 44.0] <- 40.0
data$T0122100[45.0 <= data$T0122100 & data$T0122100 <= 49.0] <- 45.0
data$T0122100[50.0 <= data$T0122100 & data$T0122100 <= 9.9999999E7] <- 50.0
data$T0122100 <- factor(data$T0122100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T0122200[1.0 <= data$T0122200 & data$T0122200 <= 4.0] <- 1.0
data$T0122200[5.0 <= data$T0122200 & data$T0122200 <= 9.0] <- 5.0
data$T0122200[10.0 <= data$T0122200 & data$T0122200 <= 14.0] <- 10.0
data$T0122200[15.0 <= data$T0122200 & data$T0122200 <= 19.0] <- 15.0
data$T0122200[20.0 <= data$T0122200 & data$T0122200 <= 24.0] <- 20.0
data$T0122200[25.0 <= data$T0122200 & data$T0122200 <= 29.0] <- 25.0
data$T0122200[30.0 <= data$T0122200 & data$T0122200 <= 34.0] <- 30.0
data$T0122200[35.0 <= data$T0122200 & data$T0122200 <= 39.0] <- 35.0
data$T0122200[40.0 <= data$T0122200 & data$T0122200 <= 44.0] <- 40.0
data$T0122200[45.0 <= data$T0122200 & data$T0122200 <= 49.0] <- 45.0
data$T0122200[50.0 <= data$T0122200 & data$T0122200 <= 9.9999999E7] <- 50.0
data$T0122200 <- factor(data$T0122200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T0122300[1.0 <= data$T0122300 & data$T0122300 <= 4.0] <- 1.0
data$T0122300[5.0 <= data$T0122300 & data$T0122300 <= 9.0] <- 5.0
data$T0122300[10.0 <= data$T0122300 & data$T0122300 <= 14.0] <- 10.0
data$T0122300[15.0 <= data$T0122300 & data$T0122300 <= 19.0] <- 15.0
data$T0122300[20.0 <= data$T0122300 & data$T0122300 <= 24.0] <- 20.0
data$T0122300[25.0 <= data$T0122300 & data$T0122300 <= 29.0] <- 25.0
data$T0122300[30.0 <= data$T0122300 & data$T0122300 <= 34.0] <- 30.0
data$T0122300[35.0 <= data$T0122300 & data$T0122300 <= 39.0] <- 35.0
data$T0122300[40.0 <= data$T0122300 & data$T0122300 <= 44.0] <- 40.0
data$T0122300[45.0 <= data$T0122300 & data$T0122300 <= 49.0] <- 45.0
data$T0122300[50.0 <= data$T0122300 & data$T0122300 <= 9.9999999E7] <- 50.0
data$T0122300 <- factor(data$T0122300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T0122400[1.0 <= data$T0122400 & data$T0122400 <= 4.0] <- 1.0
data$T0122400[5.0 <= data$T0122400 & data$T0122400 <= 9.0] <- 5.0
data$T0122400[10.0 <= data$T0122400 & data$T0122400 <= 14.0] <- 10.0
data$T0122400[15.0 <= data$T0122400 & data$T0122400 <= 19.0] <- 15.0
data$T0122400[20.0 <= data$T0122400 & data$T0122400 <= 24.0] <- 20.0
data$T0122400[25.0 <= data$T0122400 & data$T0122400 <= 29.0] <- 25.0
data$T0122400[30.0 <= data$T0122400 & data$T0122400 <= 34.0] <- 30.0
data$T0122400[35.0 <= data$T0122400 & data$T0122400 <= 39.0] <- 35.0
data$T0122400[40.0 <= data$T0122400 & data$T0122400 <= 44.0] <- 40.0
data$T0122400[45.0 <= data$T0122400 & data$T0122400 <= 49.0] <- 45.0
data$T0122400[50.0 <= data$T0122400 & data$T0122400 <= 9.9999999E7] <- 50.0
data$T0122400 <- factor(data$T0122400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T0122500[1.0 <= data$T0122500 & data$T0122500 <= 4.0] <- 1.0
data$T0122500[5.0 <= data$T0122500 & data$T0122500 <= 9.0] <- 5.0
data$T0122500[10.0 <= data$T0122500 & data$T0122500 <= 14.0] <- 10.0
data$T0122500[15.0 <= data$T0122500 & data$T0122500 <= 19.0] <- 15.0
data$T0122500[20.0 <= data$T0122500 & data$T0122500 <= 24.0] <- 20.0
data$T0122500[25.0 <= data$T0122500 & data$T0122500 <= 29.0] <- 25.0
data$T0122500[30.0 <= data$T0122500 & data$T0122500 <= 34.0] <- 30.0
data$T0122500[35.0 <= data$T0122500 & data$T0122500 <= 39.0] <- 35.0
data$T0122500[40.0 <= data$T0122500 & data$T0122500 <= 44.0] <- 40.0
data$T0122500[45.0 <= data$T0122500 & data$T0122500 <= 49.0] <- 45.0
data$T0122500[50.0 <= data$T0122500 & data$T0122500 <= 9.9999999E7] <- 50.0
data$T0122500 <- factor(data$T0122500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T0122600[1.0 <= data$T0122600 & data$T0122600 <= 4.0] <- 1.0
data$T0122600[5.0 <= data$T0122600 & data$T0122600 <= 9.0] <- 5.0
data$T0122600[10.0 <= data$T0122600 & data$T0122600 <= 14.0] <- 10.0
data$T0122600[15.0 <= data$T0122600 & data$T0122600 <= 19.0] <- 15.0
data$T0122600[20.0 <= data$T0122600 & data$T0122600 <= 24.0] <- 20.0
data$T0122600[25.0 <= data$T0122600 & data$T0122600 <= 29.0] <- 25.0
data$T0122600[30.0 <= data$T0122600 & data$T0122600 <= 34.0] <- 30.0
data$T0122600[35.0 <= data$T0122600 & data$T0122600 <= 39.0] <- 35.0
data$T0122600[40.0 <= data$T0122600 & data$T0122600 <= 44.0] <- 40.0
data$T0122600[45.0 <= data$T0122600 & data$T0122600 <= 49.0] <- 45.0
data$T0122600[50.0 <= data$T0122600 & data$T0122600 <= 9.9999999E7] <- 50.0
data$T0122600 <- factor(data$T0122600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T0122700[1.0 <= data$T0122700 & data$T0122700 <= 4.0] <- 1.0
data$T0122700[5.0 <= data$T0122700 & data$T0122700 <= 9.0] <- 5.0
data$T0122700[10.0 <= data$T0122700 & data$T0122700 <= 14.0] <- 10.0
data$T0122700[15.0 <= data$T0122700 & data$T0122700 <= 19.0] <- 15.0
data$T0122700[20.0 <= data$T0122700 & data$T0122700 <= 24.0] <- 20.0
data$T0122700[25.0 <= data$T0122700 & data$T0122700 <= 29.0] <- 25.0
data$T0122700[30.0 <= data$T0122700 & data$T0122700 <= 34.0] <- 30.0
data$T0122700[35.0 <= data$T0122700 & data$T0122700 <= 39.0] <- 35.0
data$T0122700[40.0 <= data$T0122700 & data$T0122700 <= 44.0] <- 40.0
data$T0122700[45.0 <= data$T0122700 & data$T0122700 <= 49.0] <- 45.0
data$T0122700[50.0 <= data$T0122700 & data$T0122700 <= 9.9999999E7] <- 50.0
data$T0122700 <- factor(data$T0122700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T0122800[1.0 <= data$T0122800 & data$T0122800 <= 4.0] <- 1.0
data$T0122800[5.0 <= data$T0122800 & data$T0122800 <= 9.0] <- 5.0
data$T0122800[10.0 <= data$T0122800 & data$T0122800 <= 14.0] <- 10.0
data$T0122800[15.0 <= data$T0122800 & data$T0122800 <= 19.0] <- 15.0
data$T0122800[20.0 <= data$T0122800 & data$T0122800 <= 24.0] <- 20.0
data$T0122800[25.0 <= data$T0122800 & data$T0122800 <= 29.0] <- 25.0
data$T0122800[30.0 <= data$T0122800 & data$T0122800 <= 34.0] <- 30.0
data$T0122800[35.0 <= data$T0122800 & data$T0122800 <= 39.0] <- 35.0
data$T0122800[40.0 <= data$T0122800 & data$T0122800 <= 44.0] <- 40.0
data$T0122800[45.0 <= data$T0122800 & data$T0122800 <= 49.0] <- 45.0
data$T0122800[50.0 <= data$T0122800 & data$T0122800 <= 9.9999999E7] <- 50.0
data$T0122800 <- factor(data$T0122800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T0122900 <- factor(data$T0122900,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$T0123000 <- factor(data$T0123000,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$T0123100 <- factor(data$T0123100,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$T0123200 <- factor(data$T0123200,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$T0123300 <- factor(data$T0123300,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$T0123400[1.0 <= data$T0123400 & data$T0123400 <= 4.0] <- 1.0
data$T0123400[5.0 <= data$T0123400 & data$T0123400 <= 9.0] <- 5.0
data$T0123400[10.0 <= data$T0123400 & data$T0123400 <= 14.0] <- 10.0
data$T0123400[15.0 <= data$T0123400 & data$T0123400 <= 19.0] <- 15.0
data$T0123400[20.0 <= data$T0123400 & data$T0123400 <= 24.0] <- 20.0
data$T0123400[25.0 <= data$T0123400 & data$T0123400 <= 29.0] <- 25.0
data$T0123400[30.0 <= data$T0123400 & data$T0123400 <= 34.0] <- 30.0
data$T0123400[35.0 <= data$T0123400 & data$T0123400 <= 39.0] <- 35.0
data$T0123400[40.0 <= data$T0123400 & data$T0123400 <= 44.0] <- 40.0
data$T0123400[45.0 <= data$T0123400 & data$T0123400 <= 49.0] <- 45.0
data$T0123400[50.0 <= data$T0123400 & data$T0123400 <= 9.9999999E7] <- 50.0
data$T0123400 <- factor(data$T0123400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T0123500[1.0 <= data$T0123500 & data$T0123500 <= 4.0] <- 1.0
data$T0123500[5.0 <= data$T0123500 & data$T0123500 <= 9.0] <- 5.0
data$T0123500[10.0 <= data$T0123500 & data$T0123500 <= 14.0] <- 10.0
data$T0123500[15.0 <= data$T0123500 & data$T0123500 <= 19.0] <- 15.0
data$T0123500[20.0 <= data$T0123500 & data$T0123500 <= 24.0] <- 20.0
data$T0123500[25.0 <= data$T0123500 & data$T0123500 <= 29.0] <- 25.0
data$T0123500[30.0 <= data$T0123500 & data$T0123500 <= 34.0] <- 30.0
data$T0123500[35.0 <= data$T0123500 & data$T0123500 <= 39.0] <- 35.0
data$T0123500[40.0 <= data$T0123500 & data$T0123500 <= 44.0] <- 40.0
data$T0123500[45.0 <= data$T0123500 & data$T0123500 <= 49.0] <- 45.0
data$T0123500[50.0 <= data$T0123500 & data$T0123500 <= 9.9999999E7] <- 50.0
data$T0123500 <- factor(data$T0123500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T0123600[1.0 <= data$T0123600 & data$T0123600 <= 4.0] <- 1.0
data$T0123600[5.0 <= data$T0123600 & data$T0123600 <= 9.0] <- 5.0
data$T0123600[10.0 <= data$T0123600 & data$T0123600 <= 14.0] <- 10.0
data$T0123600[15.0 <= data$T0123600 & data$T0123600 <= 19.0] <- 15.0
data$T0123600[20.0 <= data$T0123600 & data$T0123600 <= 24.0] <- 20.0
data$T0123600[25.0 <= data$T0123600 & data$T0123600 <= 29.0] <- 25.0
data$T0123600[30.0 <= data$T0123600 & data$T0123600 <= 34.0] <- 30.0
data$T0123600[35.0 <= data$T0123600 & data$T0123600 <= 39.0] <- 35.0
data$T0123600[40.0 <= data$T0123600 & data$T0123600 <= 44.0] <- 40.0
data$T0123600[45.0 <= data$T0123600 & data$T0123600 <= 49.0] <- 45.0
data$T0123600[50.0 <= data$T0123600 & data$T0123600 <= 9.9999999E7] <- 50.0
data$T0123600 <- factor(data$T0123600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T0123700[1.0 <= data$T0123700 & data$T0123700 <= 4.0] <- 1.0
data$T0123700[5.0 <= data$T0123700 & data$T0123700 <= 9.0] <- 5.0
data$T0123700[10.0 <= data$T0123700 & data$T0123700 <= 14.0] <- 10.0
data$T0123700[15.0 <= data$T0123700 & data$T0123700 <= 19.0] <- 15.0
data$T0123700[20.0 <= data$T0123700 & data$T0123700 <= 24.0] <- 20.0
data$T0123700[25.0 <= data$T0123700 & data$T0123700 <= 29.0] <- 25.0
data$T0123700[30.0 <= data$T0123700 & data$T0123700 <= 34.0] <- 30.0
data$T0123700[35.0 <= data$T0123700 & data$T0123700 <= 39.0] <- 35.0
data$T0123700[40.0 <= data$T0123700 & data$T0123700 <= 44.0] <- 40.0
data$T0123700[45.0 <= data$T0123700 & data$T0123700 <= 49.0] <- 45.0
data$T0123700[50.0 <= data$T0123700 & data$T0123700 <= 9.9999999E7] <- 50.0
data$T0123700 <- factor(data$T0123700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T0123800[1.0 <= data$T0123800 & data$T0123800 <= 4.0] <- 1.0
data$T0123800[5.0 <= data$T0123800 & data$T0123800 <= 9.0] <- 5.0
data$T0123800[10.0 <= data$T0123800 & data$T0123800 <= 14.0] <- 10.0
data$T0123800[15.0 <= data$T0123800 & data$T0123800 <= 19.0] <- 15.0
data$T0123800[20.0 <= data$T0123800 & data$T0123800 <= 24.0] <- 20.0
data$T0123800[25.0 <= data$T0123800 & data$T0123800 <= 29.0] <- 25.0
data$T0123800[30.0 <= data$T0123800 & data$T0123800 <= 34.0] <- 30.0
data$T0123800[35.0 <= data$T0123800 & data$T0123800 <= 39.0] <- 35.0
data$T0123800[40.0 <= data$T0123800 & data$T0123800 <= 44.0] <- 40.0
data$T0123800[45.0 <= data$T0123800 & data$T0123800 <= 49.0] <- 45.0
data$T0123800[50.0 <= data$T0123800 & data$T0123800 <= 9.9999999E7] <- 50.0
data$T0123800 <- factor(data$T0123800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T0986800[1.0 <= data$T0986800 & data$T0986800 <= 499.0] <- 1.0
data$T0986800[500.0 <= data$T0986800 & data$T0986800 <= 999.0] <- 500.0
data$T0986800[1000.0 <= data$T0986800 & data$T0986800 <= 1499.0] <- 1000.0
data$T0986800[1500.0 <= data$T0986800 & data$T0986800 <= 1999.0] <- 1500.0
data$T0986800[2000.0 <= data$T0986800 & data$T0986800 <= 2499.0] <- 2000.0
data$T0986800[2500.0 <= data$T0986800 & data$T0986800 <= 2999.0] <- 2500.0
data$T0986800[3000.0 <= data$T0986800 & data$T0986800 <= 3499.0] <- 3000.0
data$T0986800[3500.0 <= data$T0986800 & data$T0986800 <= 3999.0] <- 3500.0
data$T0986800[4000.0 <= data$T0986800 & data$T0986800 <= 4499.0] <- 4000.0
data$T0986800[4500.0 <= data$T0986800 & data$T0986800 <= 4999.0] <- 4500.0
data$T0986800[5000.0 <= data$T0986800 & data$T0986800 <= 9.9999999E7] <- 5000.0
data$T0986800 <- factor(data$T0986800,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$T0986900[1.0 <= data$T0986900 & data$T0986900 <= 499.0] <- 1.0
data$T0986900[500.0 <= data$T0986900 & data$T0986900 <= 999.0] <- 500.0
data$T0986900[1000.0 <= data$T0986900 & data$T0986900 <= 1499.0] <- 1000.0
data$T0986900[1500.0 <= data$T0986900 & data$T0986900 <= 1999.0] <- 1500.0
data$T0986900[2000.0 <= data$T0986900 & data$T0986900 <= 2499.0] <- 2000.0
data$T0986900[2500.0 <= data$T0986900 & data$T0986900 <= 2999.0] <- 2500.0
data$T0986900[3000.0 <= data$T0986900 & data$T0986900 <= 3499.0] <- 3000.0
data$T0986900[3500.0 <= data$T0986900 & data$T0986900 <= 3999.0] <- 3500.0
data$T0986900[4000.0 <= data$T0986900 & data$T0986900 <= 4499.0] <- 4000.0
data$T0986900[4500.0 <= data$T0986900 & data$T0986900 <= 4999.0] <- 4500.0
data$T0986900[5000.0 <= data$T0986900 & data$T0986900 <= 9.9999999E7] <- 5000.0
data$T0986900 <- factor(data$T0986900,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$T0987000[1.0 <= data$T0987000 & data$T0987000 <= 499.0] <- 1.0
data$T0987000[500.0 <= data$T0987000 & data$T0987000 <= 999.0] <- 500.0
data$T0987000[1000.0 <= data$T0987000 & data$T0987000 <= 1499.0] <- 1000.0
data$T0987000[1500.0 <= data$T0987000 & data$T0987000 <= 1999.0] <- 1500.0
data$T0987000[2000.0 <= data$T0987000 & data$T0987000 <= 2499.0] <- 2000.0
data$T0987000[2500.0 <= data$T0987000 & data$T0987000 <= 2999.0] <- 2500.0
data$T0987000[3000.0 <= data$T0987000 & data$T0987000 <= 3499.0] <- 3000.0
data$T0987000[3500.0 <= data$T0987000 & data$T0987000 <= 3999.0] <- 3500.0
data$T0987000[4000.0 <= data$T0987000 & data$T0987000 <= 4499.0] <- 4000.0
data$T0987000[4500.0 <= data$T0987000 & data$T0987000 <= 4999.0] <- 4500.0
data$T0987000[5000.0 <= data$T0987000 & data$T0987000 <= 9.9999999E7] <- 5000.0
data$T0987000 <- factor(data$T0987000,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$T0987100[1.0 <= data$T0987100 & data$T0987100 <= 499.0] <- 1.0
data$T0987100[500.0 <= data$T0987100 & data$T0987100 <= 999.0] <- 500.0
data$T0987100[1000.0 <= data$T0987100 & data$T0987100 <= 1499.0] <- 1000.0
data$T0987100[1500.0 <= data$T0987100 & data$T0987100 <= 1999.0] <- 1500.0
data$T0987100[2000.0 <= data$T0987100 & data$T0987100 <= 2499.0] <- 2000.0
data$T0987100[2500.0 <= data$T0987100 & data$T0987100 <= 2999.0] <- 2500.0
data$T0987100[3000.0 <= data$T0987100 & data$T0987100 <= 3499.0] <- 3000.0
data$T0987100[3500.0 <= data$T0987100 & data$T0987100 <= 3999.0] <- 3500.0
data$T0987100[4000.0 <= data$T0987100 & data$T0987100 <= 4499.0] <- 4000.0
data$T0987100[4500.0 <= data$T0987100 & data$T0987100 <= 4999.0] <- 4500.0
data$T0987100[5000.0 <= data$T0987100 & data$T0987100 <= 9.9999999E7] <- 5000.0
data$T0987100 <- factor(data$T0987100,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$T0987200[1.0 <= data$T0987200 & data$T0987200 <= 499.0] <- 1.0
data$T0987200[500.0 <= data$T0987200 & data$T0987200 <= 999.0] <- 500.0
data$T0987200[1000.0 <= data$T0987200 & data$T0987200 <= 1499.0] <- 1000.0
data$T0987200[1500.0 <= data$T0987200 & data$T0987200 <= 1999.0] <- 1500.0
data$T0987200[2000.0 <= data$T0987200 & data$T0987200 <= 2499.0] <- 2000.0
data$T0987200[2500.0 <= data$T0987200 & data$T0987200 <= 2999.0] <- 2500.0
data$T0987200[3000.0 <= data$T0987200 & data$T0987200 <= 3499.0] <- 3000.0
data$T0987200[3500.0 <= data$T0987200 & data$T0987200 <= 3999.0] <- 3500.0
data$T0987200[4000.0 <= data$T0987200 & data$T0987200 <= 4499.0] <- 4000.0
data$T0987200[4500.0 <= data$T0987200 & data$T0987200 <= 4999.0] <- 4500.0
data$T0987200[5000.0 <= data$T0987200 & data$T0987200 <= 9.9999999E7] <- 5000.0
data$T0987200 <- factor(data$T0987200,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$T0988600 <- factor(data$T0988600,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$T0988800 <- factor(data$T0988800,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$T1214300 <- factor(data$T1214300,
levels=c(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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"UNGRADED"))
data$T1280800[1.0 <= data$T1280800 & data$T1280800 <= 9.0] <- 1.0
data$T1280800[10.0 <= data$T1280800 & data$T1280800 <= 19.0] <- 10.0
data$T1280800[20.0 <= data$T1280800 & data$T1280800 <= 29.0] <- 20.0
data$T1280800[30.0 <= data$T1280800 & data$T1280800 <= 39.0] <- 30.0
data$T1280800[40.0 <= data$T1280800 & data$T1280800 <= 49.0] <- 40.0
data$T1280800[50.0 <= data$T1280800 & data$T1280800 <= 59.0] <- 50.0
data$T1280800[60.0 <= data$T1280800 & data$T1280800 <= 69.0] <- 60.0
data$T1280800[70.0 <= data$T1280800 & data$T1280800 <= 79.0] <- 70.0
data$T1280800[80.0 <= data$T1280800 & data$T1280800 <= 89.0] <- 80.0
data$T1280800[90.0 <= data$T1280800 & data$T1280800 <= 99.0] <- 90.0
data$T1280800[100.0 <= data$T1280800 & data$T1280800 <= 9.9999999E7] <- 100.0
data$T1280800 <- factor(data$T1280800,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T1280900[1.0 <= data$T1280900 & data$T1280900 <= 9.0] <- 1.0
data$T1280900[10.0 <= data$T1280900 & data$T1280900 <= 19.0] <- 10.0
data$T1280900[20.0 <= data$T1280900 & data$T1280900 <= 29.0] <- 20.0
data$T1280900[30.0 <= data$T1280900 & data$T1280900 <= 39.0] <- 30.0
data$T1280900[40.0 <= data$T1280900 & data$T1280900 <= 49.0] <- 40.0
data$T1280900[50.0 <= data$T1280900 & data$T1280900 <= 59.0] <- 50.0
data$T1280900[60.0 <= data$T1280900 & data$T1280900 <= 69.0] <- 60.0
data$T1280900[70.0 <= data$T1280900 & data$T1280900 <= 79.0] <- 70.0
data$T1280900[80.0 <= data$T1280900 & data$T1280900 <= 89.0] <- 80.0
data$T1280900[90.0 <= data$T1280900 & data$T1280900 <= 99.0] <- 90.0
data$T1280900[100.0 <= data$T1280900 & data$T1280900 <= 9.9999999E7] <- 100.0
data$T1280900 <- factor(data$T1280900,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T1281000[1.0 <= data$T1281000 & data$T1281000 <= 9.0] <- 1.0
data$T1281000[10.0 <= data$T1281000 & data$T1281000 <= 19.0] <- 10.0
data$T1281000[20.0 <= data$T1281000 & data$T1281000 <= 29.0] <- 20.0
data$T1281000[30.0 <= data$T1281000 & data$T1281000 <= 39.0] <- 30.0
data$T1281000[40.0 <= data$T1281000 & data$T1281000 <= 49.0] <- 40.0
data$T1281000[50.0 <= data$T1281000 & data$T1281000 <= 59.0] <- 50.0
data$T1281000[60.0 <= data$T1281000 & data$T1281000 <= 69.0] <- 60.0
data$T1281000[70.0 <= data$T1281000 & data$T1281000 <= 79.0] <- 70.0
data$T1281000[80.0 <= data$T1281000 & data$T1281000 <= 89.0] <- 80.0
data$T1281000[90.0 <= data$T1281000 & data$T1281000 <= 99.0] <- 90.0
data$T1281000[100.0 <= data$T1281000 & data$T1281000 <= 9.9999999E7] <- 100.0
data$T1281000 <- factor(data$T1281000,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T1281100[1.0 <= data$T1281100 & data$T1281100 <= 9.0] <- 1.0
data$T1281100[10.0 <= data$T1281100 & data$T1281100 <= 19.0] <- 10.0
data$T1281100[20.0 <= data$T1281100 & data$T1281100 <= 29.0] <- 20.0
data$T1281100[30.0 <= data$T1281100 & data$T1281100 <= 39.0] <- 30.0
data$T1281100[40.0 <= data$T1281100 & data$T1281100 <= 49.0] <- 40.0
data$T1281100[50.0 <= data$T1281100 & data$T1281100 <= 59.0] <- 50.0
data$T1281100[60.0 <= data$T1281100 & data$T1281100 <= 69.0] <- 60.0
data$T1281100[70.0 <= data$T1281100 & data$T1281100 <= 79.0] <- 70.0
data$T1281100[80.0 <= data$T1281100 & data$T1281100 <= 89.0] <- 80.0
data$T1281100[90.0 <= data$T1281100 & data$T1281100 <= 99.0] <- 90.0
data$T1281100[100.0 <= data$T1281100 & data$T1281100 <= 9.9999999E7] <- 100.0
data$T1281100 <- factor(data$T1281100,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T1281200[1.0 <= data$T1281200 & data$T1281200 <= 9.0] <- 1.0
data$T1281200[10.0 <= data$T1281200 & data$T1281200 <= 19.0] <- 10.0
data$T1281200[20.0 <= data$T1281200 & data$T1281200 <= 29.0] <- 20.0
data$T1281200[30.0 <= data$T1281200 & data$T1281200 <= 39.0] <- 30.0
data$T1281200[40.0 <= data$T1281200 & data$T1281200 <= 49.0] <- 40.0
data$T1281200[50.0 <= data$T1281200 & data$T1281200 <= 59.0] <- 50.0
data$T1281200[60.0 <= data$T1281200 & data$T1281200 <= 69.0] <- 60.0
data$T1281200[70.0 <= data$T1281200 & data$T1281200 <= 79.0] <- 70.0
data$T1281200[80.0 <= data$T1281200 & data$T1281200 <= 89.0] <- 80.0
data$T1281200[90.0 <= data$T1281200 & data$T1281200 <= 99.0] <- 90.0
data$T1281200[100.0 <= data$T1281200 & data$T1281200 <= 9.9999999E7] <- 100.0
data$T1281200 <- factor(data$T1281200,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T1281800[1.0 <= data$T1281800 & data$T1281800 <= 4.0] <- 1.0
data$T1281800[5.0 <= data$T1281800 & data$T1281800 <= 9.0] <- 5.0
data$T1281800[10.0 <= data$T1281800 & data$T1281800 <= 14.0] <- 10.0
data$T1281800[15.0 <= data$T1281800 & data$T1281800 <= 19.0] <- 15.0
data$T1281800[20.0 <= data$T1281800 & data$T1281800 <= 24.0] <- 20.0
data$T1281800[25.0 <= data$T1281800 & data$T1281800 <= 29.0] <- 25.0
data$T1281800[30.0 <= data$T1281800 & data$T1281800 <= 34.0] <- 30.0
data$T1281800[35.0 <= data$T1281800 & data$T1281800 <= 39.0] <- 35.0
data$T1281800[40.0 <= data$T1281800 & data$T1281800 <= 44.0] <- 40.0
data$T1281800[45.0 <= data$T1281800 & data$T1281800 <= 49.0] <- 45.0
data$T1281800[50.0 <= data$T1281800 & data$T1281800 <= 9.9999999E7] <- 50.0
data$T1281800 <- factor(data$T1281800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T1281900[1.0 <= data$T1281900 & data$T1281900 <= 4.0] <- 1.0
data$T1281900[5.0 <= data$T1281900 & data$T1281900 <= 9.0] <- 5.0
data$T1281900[10.0 <= data$T1281900 & data$T1281900 <= 14.0] <- 10.0
data$T1281900[15.0 <= data$T1281900 & data$T1281900 <= 19.0] <- 15.0
data$T1281900[20.0 <= data$T1281900 & data$T1281900 <= 24.0] <- 20.0
data$T1281900[25.0 <= data$T1281900 & data$T1281900 <= 29.0] <- 25.0
data$T1281900[30.0 <= data$T1281900 & data$T1281900 <= 34.0] <- 30.0
data$T1281900[35.0 <= data$T1281900 & data$T1281900 <= 39.0] <- 35.0
data$T1281900[40.0 <= data$T1281900 & data$T1281900 <= 44.0] <- 40.0
data$T1281900[45.0 <= data$T1281900 & data$T1281900 <= 49.0] <- 45.0
data$T1281900[50.0 <= data$T1281900 & data$T1281900 <= 9.9999999E7] <- 50.0
data$T1281900 <- factor(data$T1281900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T1282000[1.0 <= data$T1282000 & data$T1282000 <= 4.0] <- 1.0
data$T1282000[5.0 <= data$T1282000 & data$T1282000 <= 9.0] <- 5.0
data$T1282000[10.0 <= data$T1282000 & data$T1282000 <= 14.0] <- 10.0
data$T1282000[15.0 <= data$T1282000 & data$T1282000 <= 19.0] <- 15.0
data$T1282000[20.0 <= data$T1282000 & data$T1282000 <= 24.0] <- 20.0
data$T1282000[25.0 <= data$T1282000 & data$T1282000 <= 29.0] <- 25.0
data$T1282000[30.0 <= data$T1282000 & data$T1282000 <= 34.0] <- 30.0
data$T1282000[35.0 <= data$T1282000 & data$T1282000 <= 39.0] <- 35.0
data$T1282000[40.0 <= data$T1282000 & data$T1282000 <= 44.0] <- 40.0
data$T1282000[45.0 <= data$T1282000 & data$T1282000 <= 49.0] <- 45.0
data$T1282000[50.0 <= data$T1282000 & data$T1282000 <= 9.9999999E7] <- 50.0
data$T1282000 <- factor(data$T1282000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T1282100[1.0 <= data$T1282100 & data$T1282100 <= 4.0] <- 1.0
data$T1282100[5.0 <= data$T1282100 & data$T1282100 <= 9.0] <- 5.0
data$T1282100[10.0 <= data$T1282100 & data$T1282100 <= 14.0] <- 10.0
data$T1282100[15.0 <= data$T1282100 & data$T1282100 <= 19.0] <- 15.0
data$T1282100[20.0 <= data$T1282100 & data$T1282100 <= 24.0] <- 20.0
data$T1282100[25.0 <= data$T1282100 & data$T1282100 <= 29.0] <- 25.0
data$T1282100[30.0 <= data$T1282100 & data$T1282100 <= 34.0] <- 30.0
data$T1282100[35.0 <= data$T1282100 & data$T1282100 <= 39.0] <- 35.0
data$T1282100[40.0 <= data$T1282100 & data$T1282100 <= 44.0] <- 40.0
data$T1282100[45.0 <= data$T1282100 & data$T1282100 <= 49.0] <- 45.0
data$T1282100[50.0 <= data$T1282100 & data$T1282100 <= 9.9999999E7] <- 50.0
data$T1282100 <- factor(data$T1282100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T1282200[1.0 <= data$T1282200 & data$T1282200 <= 4.0] <- 1.0
data$T1282200[5.0 <= data$T1282200 & data$T1282200 <= 9.0] <- 5.0
data$T1282200[10.0 <= data$T1282200 & data$T1282200 <= 14.0] <- 10.0
data$T1282200[15.0 <= data$T1282200 & data$T1282200 <= 19.0] <- 15.0
data$T1282200[20.0 <= data$T1282200 & data$T1282200 <= 24.0] <- 20.0
data$T1282200[25.0 <= data$T1282200 & data$T1282200 <= 29.0] <- 25.0
data$T1282200[30.0 <= data$T1282200 & data$T1282200 <= 34.0] <- 30.0
data$T1282200[35.0 <= data$T1282200 & data$T1282200 <= 39.0] <- 35.0
data$T1282200[40.0 <= data$T1282200 & data$T1282200 <= 44.0] <- 40.0
data$T1282200[45.0 <= data$T1282200 & data$T1282200 <= 49.0] <- 45.0
data$T1282200[50.0 <= data$T1282200 & data$T1282200 <= 9.9999999E7] <- 50.0
data$T1282200 <- factor(data$T1282200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T1282300[1.0 <= data$T1282300 & data$T1282300 <= 4.0] <- 1.0
data$T1282300[5.0 <= data$T1282300 & data$T1282300 <= 9.0] <- 5.0
data$T1282300[10.0 <= data$T1282300 & data$T1282300 <= 14.0] <- 10.0
data$T1282300[15.0 <= data$T1282300 & data$T1282300 <= 19.0] <- 15.0
data$T1282300[20.0 <= data$T1282300 & data$T1282300 <= 24.0] <- 20.0
data$T1282300[25.0 <= data$T1282300 & data$T1282300 <= 29.0] <- 25.0
data$T1282300[30.0 <= data$T1282300 & data$T1282300 <= 34.0] <- 30.0
data$T1282300[35.0 <= data$T1282300 & data$T1282300 <= 39.0] <- 35.0
data$T1282300[40.0 <= data$T1282300 & data$T1282300 <= 44.0] <- 40.0
data$T1282300[45.0 <= data$T1282300 & data$T1282300 <= 49.0] <- 45.0
data$T1282300[50.0 <= data$T1282300 & data$T1282300 <= 9.9999999E7] <- 50.0
data$T1282300 <- factor(data$T1282300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T1282400[1.0 <= data$T1282400 & data$T1282400 <= 4.0] <- 1.0
data$T1282400[5.0 <= data$T1282400 & data$T1282400 <= 9.0] <- 5.0
data$T1282400[10.0 <= data$T1282400 & data$T1282400 <= 14.0] <- 10.0
data$T1282400[15.0 <= data$T1282400 & data$T1282400 <= 19.0] <- 15.0
data$T1282400[20.0 <= data$T1282400 & data$T1282400 <= 24.0] <- 20.0
data$T1282400[25.0 <= data$T1282400 & data$T1282400 <= 29.0] <- 25.0
data$T1282400[30.0 <= data$T1282400 & data$T1282400 <= 34.0] <- 30.0
data$T1282400[35.0 <= data$T1282400 & data$T1282400 <= 39.0] <- 35.0
data$T1282400[40.0 <= data$T1282400 & data$T1282400 <= 44.0] <- 40.0
data$T1282400[45.0 <= data$T1282400 & data$T1282400 <= 49.0] <- 45.0
data$T1282400[50.0 <= data$T1282400 & data$T1282400 <= 9.9999999E7] <- 50.0
data$T1282400 <- factor(data$T1282400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T1282500[1.0 <= data$T1282500 & data$T1282500 <= 4.0] <- 1.0
data$T1282500[5.0 <= data$T1282500 & data$T1282500 <= 9.0] <- 5.0
data$T1282500[10.0 <= data$T1282500 & data$T1282500 <= 14.0] <- 10.0
data$T1282500[15.0 <= data$T1282500 & data$T1282500 <= 19.0] <- 15.0
data$T1282500[20.0 <= data$T1282500 & data$T1282500 <= 24.0] <- 20.0
data$T1282500[25.0 <= data$T1282500 & data$T1282500 <= 29.0] <- 25.0
data$T1282500[30.0 <= data$T1282500 & data$T1282500 <= 34.0] <- 30.0
data$T1282500[35.0 <= data$T1282500 & data$T1282500 <= 39.0] <- 35.0
data$T1282500[40.0 <= data$T1282500 & data$T1282500 <= 44.0] <- 40.0
data$T1282500[45.0 <= data$T1282500 & data$T1282500 <= 49.0] <- 45.0
data$T1282500[50.0 <= data$T1282500 & data$T1282500 <= 9.9999999E7] <- 50.0
data$T1282500 <- factor(data$T1282500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T1282600[1.0 <= data$T1282600 & data$T1282600 <= 4.0] <- 1.0
data$T1282600[5.0 <= data$T1282600 & data$T1282600 <= 9.0] <- 5.0
data$T1282600[10.0 <= data$T1282600 & data$T1282600 <= 14.0] <- 10.0
data$T1282600[15.0 <= data$T1282600 & data$T1282600 <= 19.0] <- 15.0
data$T1282600[20.0 <= data$T1282600 & data$T1282600 <= 24.0] <- 20.0
data$T1282600[25.0 <= data$T1282600 & data$T1282600 <= 29.0] <- 25.0
data$T1282600[30.0 <= data$T1282600 & data$T1282600 <= 34.0] <- 30.0
data$T1282600[35.0 <= data$T1282600 & data$T1282600 <= 39.0] <- 35.0
data$T1282600[40.0 <= data$T1282600 & data$T1282600 <= 44.0] <- 40.0
data$T1282600[45.0 <= data$T1282600 & data$T1282600 <= 49.0] <- 45.0
data$T1282600[50.0 <= data$T1282600 & data$T1282600 <= 9.9999999E7] <- 50.0
data$T1282600 <- factor(data$T1282600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T1282700[1.0 <= data$T1282700 & data$T1282700 <= 4.0] <- 1.0
data$T1282700[5.0 <= data$T1282700 & data$T1282700 <= 9.0] <- 5.0
data$T1282700[10.0 <= data$T1282700 & data$T1282700 <= 14.0] <- 10.0
data$T1282700[15.0 <= data$T1282700 & data$T1282700 <= 19.0] <- 15.0
data$T1282700[20.0 <= data$T1282700 & data$T1282700 <= 24.0] <- 20.0
data$T1282700[25.0 <= data$T1282700 & data$T1282700 <= 29.0] <- 25.0
data$T1282700[30.0 <= data$T1282700 & data$T1282700 <= 34.0] <- 30.0
data$T1282700[35.0 <= data$T1282700 & data$T1282700 <= 39.0] <- 35.0
data$T1282700[40.0 <= data$T1282700 & data$T1282700 <= 44.0] <- 40.0
data$T1282700[45.0 <= data$T1282700 & data$T1282700 <= 49.0] <- 45.0
data$T1282700[50.0 <= data$T1282700 & data$T1282700 <= 9.9999999E7] <- 50.0
data$T1282700 <- factor(data$T1282700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T1282800 <- factor(data$T1282800,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$T1282900 <- factor(data$T1282900,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$T1283000 <- factor(data$T1283000,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$T1283100 <- factor(data$T1283100,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$T1283200 <- factor(data$T1283200,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$T1283300[1.0 <= data$T1283300 & data$T1283300 <= 4.0] <- 1.0
data$T1283300[5.0 <= data$T1283300 & data$T1283300 <= 9.0] <- 5.0
data$T1283300[10.0 <= data$T1283300 & data$T1283300 <= 14.0] <- 10.0
data$T1283300[15.0 <= data$T1283300 & data$T1283300 <= 19.0] <- 15.0
data$T1283300[20.0 <= data$T1283300 & data$T1283300 <= 24.0] <- 20.0
data$T1283300[25.0 <= data$T1283300 & data$T1283300 <= 29.0] <- 25.0
data$T1283300[30.0 <= data$T1283300 & data$T1283300 <= 34.0] <- 30.0
data$T1283300[35.0 <= data$T1283300 & data$T1283300 <= 39.0] <- 35.0
data$T1283300[40.0 <= data$T1283300 & data$T1283300 <= 44.0] <- 40.0
data$T1283300[45.0 <= data$T1283300 & data$T1283300 <= 49.0] <- 45.0
data$T1283300[50.0 <= data$T1283300 & data$T1283300 <= 9.9999999E7] <- 50.0
data$T1283300 <- factor(data$T1283300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T1283400[1.0 <= data$T1283400 & data$T1283400 <= 4.0] <- 1.0
data$T1283400[5.0 <= data$T1283400 & data$T1283400 <= 9.0] <- 5.0
data$T1283400[10.0 <= data$T1283400 & data$T1283400 <= 14.0] <- 10.0
data$T1283400[15.0 <= data$T1283400 & data$T1283400 <= 19.0] <- 15.0
data$T1283400[20.0 <= data$T1283400 & data$T1283400 <= 24.0] <- 20.0
data$T1283400[25.0 <= data$T1283400 & data$T1283400 <= 29.0] <- 25.0
data$T1283400[30.0 <= data$T1283400 & data$T1283400 <= 34.0] <- 30.0
data$T1283400[35.0 <= data$T1283400 & data$T1283400 <= 39.0] <- 35.0
data$T1283400[40.0 <= data$T1283400 & data$T1283400 <= 44.0] <- 40.0
data$T1283400[45.0 <= data$T1283400 & data$T1283400 <= 49.0] <- 45.0
data$T1283400[50.0 <= data$T1283400 & data$T1283400 <= 9.9999999E7] <- 50.0
data$T1283400 <- factor(data$T1283400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T1283500[1.0 <= data$T1283500 & data$T1283500 <= 4.0] <- 1.0
data$T1283500[5.0 <= data$T1283500 & data$T1283500 <= 9.0] <- 5.0
data$T1283500[10.0 <= data$T1283500 & data$T1283500 <= 14.0] <- 10.0
data$T1283500[15.0 <= data$T1283500 & data$T1283500 <= 19.0] <- 15.0
data$T1283500[20.0 <= data$T1283500 & data$T1283500 <= 24.0] <- 20.0
data$T1283500[25.0 <= data$T1283500 & data$T1283500 <= 29.0] <- 25.0
data$T1283500[30.0 <= data$T1283500 & data$T1283500 <= 34.0] <- 30.0
data$T1283500[35.0 <= data$T1283500 & data$T1283500 <= 39.0] <- 35.0
data$T1283500[40.0 <= data$T1283500 & data$T1283500 <= 44.0] <- 40.0
data$T1283500[45.0 <= data$T1283500 & data$T1283500 <= 49.0] <- 45.0
data$T1283500[50.0 <= data$T1283500 & data$T1283500 <= 9.9999999E7] <- 50.0
data$T1283500 <- factor(data$T1283500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T1283600[1.0 <= data$T1283600 & data$T1283600 <= 4.0] <- 1.0
data$T1283600[5.0 <= data$T1283600 & data$T1283600 <= 9.0] <- 5.0
data$T1283600[10.0 <= data$T1283600 & data$T1283600 <= 14.0] <- 10.0
data$T1283600[15.0 <= data$T1283600 & data$T1283600 <= 19.0] <- 15.0
data$T1283600[20.0 <= data$T1283600 & data$T1283600 <= 24.0] <- 20.0
data$T1283600[25.0 <= data$T1283600 & data$T1283600 <= 29.0] <- 25.0
data$T1283600[30.0 <= data$T1283600 & data$T1283600 <= 34.0] <- 30.0
data$T1283600[35.0 <= data$T1283600 & data$T1283600 <= 39.0] <- 35.0
data$T1283600[40.0 <= data$T1283600 & data$T1283600 <= 44.0] <- 40.0
data$T1283600[45.0 <= data$T1283600 & data$T1283600 <= 49.0] <- 45.0
data$T1283600[50.0 <= data$T1283600 & data$T1283600 <= 9.9999999E7] <- 50.0
data$T1283600 <- factor(data$T1283600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T2209100[1.0 <= data$T2209100 & data$T2209100 <= 499.0] <- 1.0
data$T2209100[500.0 <= data$T2209100 & data$T2209100 <= 999.0] <- 500.0
data$T2209100[1000.0 <= data$T2209100 & data$T2209100 <= 1499.0] <- 1000.0
data$T2209100[1500.0 <= data$T2209100 & data$T2209100 <= 1999.0] <- 1500.0
data$T2209100[2000.0 <= data$T2209100 & data$T2209100 <= 2499.0] <- 2000.0
data$T2209100[2500.0 <= data$T2209100 & data$T2209100 <= 2999.0] <- 2500.0
data$T2209100[3000.0 <= data$T2209100 & data$T2209100 <= 3499.0] <- 3000.0
data$T2209100[3500.0 <= data$T2209100 & data$T2209100 <= 3999.0] <- 3500.0
data$T2209100[4000.0 <= data$T2209100 & data$T2209100 <= 4499.0] <- 4000.0
data$T2209100[4500.0 <= data$T2209100 & data$T2209100 <= 4999.0] <- 4500.0
data$T2209100[5000.0 <= data$T2209100 & data$T2209100 <= 9.9999999E7] <- 5000.0
data$T2209100 <- factor(data$T2209100,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$T2209200[1.0 <= data$T2209200 & data$T2209200 <= 499.0] <- 1.0
data$T2209200[500.0 <= data$T2209200 & data$T2209200 <= 999.0] <- 500.0
data$T2209200[1000.0 <= data$T2209200 & data$T2209200 <= 1499.0] <- 1000.0
data$T2209200[1500.0 <= data$T2209200 & data$T2209200 <= 1999.0] <- 1500.0
data$T2209200[2000.0 <= data$T2209200 & data$T2209200 <= 2499.0] <- 2000.0
data$T2209200[2500.0 <= data$T2209200 & data$T2209200 <= 2999.0] <- 2500.0
data$T2209200[3000.0 <= data$T2209200 & data$T2209200 <= 3499.0] <- 3000.0
data$T2209200[3500.0 <= data$T2209200 & data$T2209200 <= 3999.0] <- 3500.0
data$T2209200[4000.0 <= data$T2209200 & data$T2209200 <= 4499.0] <- 4000.0
data$T2209200[4500.0 <= data$T2209200 & data$T2209200 <= 4999.0] <- 4500.0
data$T2209200[5000.0 <= data$T2209200 & data$T2209200 <= 9.9999999E7] <- 5000.0
data$T2209200 <- factor(data$T2209200,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$T2209300[1.0 <= data$T2209300 & data$T2209300 <= 499.0] <- 1.0
data$T2209300[500.0 <= data$T2209300 & data$T2209300 <= 999.0] <- 500.0
data$T2209300[1000.0 <= data$T2209300 & data$T2209300 <= 1499.0] <- 1000.0
data$T2209300[1500.0 <= data$T2209300 & data$T2209300 <= 1999.0] <- 1500.0
data$T2209300[2000.0 <= data$T2209300 & data$T2209300 <= 2499.0] <- 2000.0
data$T2209300[2500.0 <= data$T2209300 & data$T2209300 <= 2999.0] <- 2500.0
data$T2209300[3000.0 <= data$T2209300 & data$T2209300 <= 3499.0] <- 3000.0
data$T2209300[3500.0 <= data$T2209300 & data$T2209300 <= 3999.0] <- 3500.0
data$T2209300[4000.0 <= data$T2209300 & data$T2209300 <= 4499.0] <- 4000.0
data$T2209300[4500.0 <= data$T2209300 & data$T2209300 <= 4999.0] <- 4500.0
data$T2209300[5000.0 <= data$T2209300 & data$T2209300 <= 9.9999999E7] <- 5000.0
data$T2209300 <- factor(data$T2209300,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$T2209400[1.0 <= data$T2209400 & data$T2209400 <= 499.0] <- 1.0
data$T2209400[500.0 <= data$T2209400 & data$T2209400 <= 999.0] <- 500.0
data$T2209400[1000.0 <= data$T2209400 & data$T2209400 <= 1499.0] <- 1000.0
data$T2209400[1500.0 <= data$T2209400 & data$T2209400 <= 1999.0] <- 1500.0
data$T2209400[2000.0 <= data$T2209400 & data$T2209400 <= 2499.0] <- 2000.0
data$T2209400[2500.0 <= data$T2209400 & data$T2209400 <= 2999.0] <- 2500.0
data$T2209400[3000.0 <= data$T2209400 & data$T2209400 <= 3499.0] <- 3000.0
data$T2209400[3500.0 <= data$T2209400 & data$T2209400 <= 3999.0] <- 3500.0
data$T2209400[4000.0 <= data$T2209400 & data$T2209400 <= 4499.0] <- 4000.0
data$T2209400[4500.0 <= data$T2209400 & data$T2209400 <= 4999.0] <- 4500.0
data$T2209400[5000.0 <= data$T2209400 & data$T2209400 <= 9.9999999E7] <- 5000.0
data$T2209400 <- factor(data$T2209400,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$T2209500[1.0 <= data$T2209500 & data$T2209500 <= 499.0] <- 1.0
data$T2209500[500.0 <= data$T2209500 & data$T2209500 <= 999.0] <- 500.0
data$T2209500[1000.0 <= data$T2209500 & data$T2209500 <= 1499.0] <- 1000.0
data$T2209500[1500.0 <= data$T2209500 & data$T2209500 <= 1999.0] <- 1500.0
data$T2209500[2000.0 <= data$T2209500 & data$T2209500 <= 2499.0] <- 2000.0
data$T2209500[2500.0 <= data$T2209500 & data$T2209500 <= 2999.0] <- 2500.0
data$T2209500[3000.0 <= data$T2209500 & data$T2209500 <= 3499.0] <- 3000.0
data$T2209500[3500.0 <= data$T2209500 & data$T2209500 <= 3999.0] <- 3500.0
data$T2209500[4000.0 <= data$T2209500 & data$T2209500 <= 4499.0] <- 4000.0
data$T2209500[4500.0 <= data$T2209500 & data$T2209500 <= 4999.0] <- 4500.0
data$T2209500[5000.0 <= data$T2209500 & data$T2209500 <= 9.9999999E7] <- 5000.0
data$T2209500 <- factor(data$T2209500,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$T2210600 <- factor(data$T2210600,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$T2210700 <- factor(data$T2210700,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$T2272800 <- factor(data$T2272800,
levels=c(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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"UNGRADED"))
data$T2301300[1.0 <= data$T2301300 & data$T2301300 <= 9.0] <- 1.0
data$T2301300[10.0 <= data$T2301300 & data$T2301300 <= 19.0] <- 10.0
data$T2301300[20.0 <= data$T2301300 & data$T2301300 <= 29.0] <- 20.0
data$T2301300[30.0 <= data$T2301300 & data$T2301300 <= 39.0] <- 30.0
data$T2301300[40.0 <= data$T2301300 & data$T2301300 <= 49.0] <- 40.0
data$T2301300[50.0 <= data$T2301300 & data$T2301300 <= 59.0] <- 50.0
data$T2301300[60.0 <= data$T2301300 & data$T2301300 <= 69.0] <- 60.0
data$T2301300[70.0 <= data$T2301300 & data$T2301300 <= 79.0] <- 70.0
data$T2301300[80.0 <= data$T2301300 & data$T2301300 <= 89.0] <- 80.0
data$T2301300[90.0 <= data$T2301300 & data$T2301300 <= 99.0] <- 90.0
data$T2301300[100.0 <= data$T2301300 & data$T2301300 <= 9.9999999E7] <- 100.0
data$T2301300 <- factor(data$T2301300,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T2301400[1.0 <= data$T2301400 & data$T2301400 <= 9.0] <- 1.0
data$T2301400[10.0 <= data$T2301400 & data$T2301400 <= 19.0] <- 10.0
data$T2301400[20.0 <= data$T2301400 & data$T2301400 <= 29.0] <- 20.0
data$T2301400[30.0 <= data$T2301400 & data$T2301400 <= 39.0] <- 30.0
data$T2301400[40.0 <= data$T2301400 & data$T2301400 <= 49.0] <- 40.0
data$T2301400[50.0 <= data$T2301400 & data$T2301400 <= 59.0] <- 50.0
data$T2301400[60.0 <= data$T2301400 & data$T2301400 <= 69.0] <- 60.0
data$T2301400[70.0 <= data$T2301400 & data$T2301400 <= 79.0] <- 70.0
data$T2301400[80.0 <= data$T2301400 & data$T2301400 <= 89.0] <- 80.0
data$T2301400[90.0 <= data$T2301400 & data$T2301400 <= 99.0] <- 90.0
data$T2301400[100.0 <= data$T2301400 & data$T2301400 <= 9.9999999E7] <- 100.0
data$T2301400 <- factor(data$T2301400,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T2301500[1.0 <= data$T2301500 & data$T2301500 <= 9.0] <- 1.0
data$T2301500[10.0 <= data$T2301500 & data$T2301500 <= 19.0] <- 10.0
data$T2301500[20.0 <= data$T2301500 & data$T2301500 <= 29.0] <- 20.0
data$T2301500[30.0 <= data$T2301500 & data$T2301500 <= 39.0] <- 30.0
data$T2301500[40.0 <= data$T2301500 & data$T2301500 <= 49.0] <- 40.0
data$T2301500[50.0 <= data$T2301500 & data$T2301500 <= 59.0] <- 50.0
data$T2301500[60.0 <= data$T2301500 & data$T2301500 <= 69.0] <- 60.0
data$T2301500[70.0 <= data$T2301500 & data$T2301500 <= 79.0] <- 70.0
data$T2301500[80.0 <= data$T2301500 & data$T2301500 <= 89.0] <- 80.0
data$T2301500[90.0 <= data$T2301500 & data$T2301500 <= 99.0] <- 90.0
data$T2301500[100.0 <= data$T2301500 & data$T2301500 <= 9.9999999E7] <- 100.0
data$T2301500 <- factor(data$T2301500,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T2301600[1.0 <= data$T2301600 & data$T2301600 <= 9.0] <- 1.0
data$T2301600[10.0 <= data$T2301600 & data$T2301600 <= 19.0] <- 10.0
data$T2301600[20.0 <= data$T2301600 & data$T2301600 <= 29.0] <- 20.0
data$T2301600[30.0 <= data$T2301600 & data$T2301600 <= 39.0] <- 30.0
data$T2301600[40.0 <= data$T2301600 & data$T2301600 <= 49.0] <- 40.0
data$T2301600[50.0 <= data$T2301600 & data$T2301600 <= 59.0] <- 50.0
data$T2301600[60.0 <= data$T2301600 & data$T2301600 <= 69.0] <- 60.0
data$T2301600[70.0 <= data$T2301600 & data$T2301600 <= 79.0] <- 70.0
data$T2301600[80.0 <= data$T2301600 & data$T2301600 <= 89.0] <- 80.0
data$T2301600[90.0 <= data$T2301600 & data$T2301600 <= 99.0] <- 90.0
data$T2301600[100.0 <= data$T2301600 & data$T2301600 <= 9.9999999E7] <- 100.0
data$T2301600 <- factor(data$T2301600,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T2301700[1.0 <= data$T2301700 & data$T2301700 <= 9.0] <- 1.0
data$T2301700[10.0 <= data$T2301700 & data$T2301700 <= 19.0] <- 10.0
data$T2301700[20.0 <= data$T2301700 & data$T2301700 <= 29.0] <- 20.0
data$T2301700[30.0 <= data$T2301700 & data$T2301700 <= 39.0] <- 30.0
data$T2301700[40.0 <= data$T2301700 & data$T2301700 <= 49.0] <- 40.0
data$T2301700[50.0 <= data$T2301700 & data$T2301700 <= 59.0] <- 50.0
data$T2301700[60.0 <= data$T2301700 & data$T2301700 <= 69.0] <- 60.0
data$T2301700[70.0 <= data$T2301700 & data$T2301700 <= 79.0] <- 70.0
data$T2301700[80.0 <= data$T2301700 & data$T2301700 <= 89.0] <- 80.0
data$T2301700[90.0 <= data$T2301700 & data$T2301700 <= 99.0] <- 90.0
data$T2301700[100.0 <= data$T2301700 & data$T2301700 <= 9.9999999E7] <- 100.0
data$T2301700 <- factor(data$T2301700,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T2302300[1.0 <= data$T2302300 & data$T2302300 <= 4.0] <- 1.0
data$T2302300[5.0 <= data$T2302300 & data$T2302300 <= 9.0] <- 5.0
data$T2302300[10.0 <= data$T2302300 & data$T2302300 <= 14.0] <- 10.0
data$T2302300[15.0 <= data$T2302300 & data$T2302300 <= 19.0] <- 15.0
data$T2302300[20.0 <= data$T2302300 & data$T2302300 <= 24.0] <- 20.0
data$T2302300[25.0 <= data$T2302300 & data$T2302300 <= 29.0] <- 25.0
data$T2302300[30.0 <= data$T2302300 & data$T2302300 <= 34.0] <- 30.0
data$T2302300[35.0 <= data$T2302300 & data$T2302300 <= 39.0] <- 35.0
data$T2302300[40.0 <= data$T2302300 & data$T2302300 <= 44.0] <- 40.0
data$T2302300[45.0 <= data$T2302300 & data$T2302300 <= 49.0] <- 45.0
data$T2302300[50.0 <= data$T2302300 & data$T2302300 <= 9.9999999E7] <- 50.0
data$T2302300 <- factor(data$T2302300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T2302400[1.0 <= data$T2302400 & data$T2302400 <= 4.0] <- 1.0
data$T2302400[5.0 <= data$T2302400 & data$T2302400 <= 9.0] <- 5.0
data$T2302400[10.0 <= data$T2302400 & data$T2302400 <= 14.0] <- 10.0
data$T2302400[15.0 <= data$T2302400 & data$T2302400 <= 19.0] <- 15.0
data$T2302400[20.0 <= data$T2302400 & data$T2302400 <= 24.0] <- 20.0
data$T2302400[25.0 <= data$T2302400 & data$T2302400 <= 29.0] <- 25.0
data$T2302400[30.0 <= data$T2302400 & data$T2302400 <= 34.0] <- 30.0
data$T2302400[35.0 <= data$T2302400 & data$T2302400 <= 39.0] <- 35.0
data$T2302400[40.0 <= data$T2302400 & data$T2302400 <= 44.0] <- 40.0
data$T2302400[45.0 <= data$T2302400 & data$T2302400 <= 49.0] <- 45.0
data$T2302400[50.0 <= data$T2302400 & data$T2302400 <= 9.9999999E7] <- 50.0
data$T2302400 <- factor(data$T2302400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T2302500[1.0 <= data$T2302500 & data$T2302500 <= 4.0] <- 1.0
data$T2302500[5.0 <= data$T2302500 & data$T2302500 <= 9.0] <- 5.0
data$T2302500[10.0 <= data$T2302500 & data$T2302500 <= 14.0] <- 10.0
data$T2302500[15.0 <= data$T2302500 & data$T2302500 <= 19.0] <- 15.0
data$T2302500[20.0 <= data$T2302500 & data$T2302500 <= 24.0] <- 20.0
data$T2302500[25.0 <= data$T2302500 & data$T2302500 <= 29.0] <- 25.0
data$T2302500[30.0 <= data$T2302500 & data$T2302500 <= 34.0] <- 30.0
data$T2302500[35.0 <= data$T2302500 & data$T2302500 <= 39.0] <- 35.0
data$T2302500[40.0 <= data$T2302500 & data$T2302500 <= 44.0] <- 40.0
data$T2302500[45.0 <= data$T2302500 & data$T2302500 <= 49.0] <- 45.0
data$T2302500[50.0 <= data$T2302500 & data$T2302500 <= 9.9999999E7] <- 50.0
data$T2302500 <- factor(data$T2302500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T2302600[1.0 <= data$T2302600 & data$T2302600 <= 4.0] <- 1.0
data$T2302600[5.0 <= data$T2302600 & data$T2302600 <= 9.0] <- 5.0
data$T2302600[10.0 <= data$T2302600 & data$T2302600 <= 14.0] <- 10.0
data$T2302600[15.0 <= data$T2302600 & data$T2302600 <= 19.0] <- 15.0
data$T2302600[20.0 <= data$T2302600 & data$T2302600 <= 24.0] <- 20.0
data$T2302600[25.0 <= data$T2302600 & data$T2302600 <= 29.0] <- 25.0
data$T2302600[30.0 <= data$T2302600 & data$T2302600 <= 34.0] <- 30.0
data$T2302600[35.0 <= data$T2302600 & data$T2302600 <= 39.0] <- 35.0
data$T2302600[40.0 <= data$T2302600 & data$T2302600 <= 44.0] <- 40.0
data$T2302600[45.0 <= data$T2302600 & data$T2302600 <= 49.0] <- 45.0
data$T2302600[50.0 <= data$T2302600 & data$T2302600 <= 9.9999999E7] <- 50.0
data$T2302600 <- factor(data$T2302600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T2302700[1.0 <= data$T2302700 & data$T2302700 <= 4.0] <- 1.0
data$T2302700[5.0 <= data$T2302700 & data$T2302700 <= 9.0] <- 5.0
data$T2302700[10.0 <= data$T2302700 & data$T2302700 <= 14.0] <- 10.0
data$T2302700[15.0 <= data$T2302700 & data$T2302700 <= 19.0] <- 15.0
data$T2302700[20.0 <= data$T2302700 & data$T2302700 <= 24.0] <- 20.0
data$T2302700[25.0 <= data$T2302700 & data$T2302700 <= 29.0] <- 25.0
data$T2302700[30.0 <= data$T2302700 & data$T2302700 <= 34.0] <- 30.0
data$T2302700[35.0 <= data$T2302700 & data$T2302700 <= 39.0] <- 35.0
data$T2302700[40.0 <= data$T2302700 & data$T2302700 <= 44.0] <- 40.0
data$T2302700[45.0 <= data$T2302700 & data$T2302700 <= 49.0] <- 45.0
data$T2302700[50.0 <= data$T2302700 & data$T2302700 <= 9.9999999E7] <- 50.0
data$T2302700 <- factor(data$T2302700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T2302800[1.0 <= data$T2302800 & data$T2302800 <= 4.0] <- 1.0
data$T2302800[5.0 <= data$T2302800 & data$T2302800 <= 9.0] <- 5.0
data$T2302800[10.0 <= data$T2302800 & data$T2302800 <= 14.0] <- 10.0
data$T2302800[15.0 <= data$T2302800 & data$T2302800 <= 19.0] <- 15.0
data$T2302800[20.0 <= data$T2302800 & data$T2302800 <= 24.0] <- 20.0
data$T2302800[25.0 <= data$T2302800 & data$T2302800 <= 29.0] <- 25.0
data$T2302800[30.0 <= data$T2302800 & data$T2302800 <= 34.0] <- 30.0
data$T2302800[35.0 <= data$T2302800 & data$T2302800 <= 39.0] <- 35.0
data$T2302800[40.0 <= data$T2302800 & data$T2302800 <= 44.0] <- 40.0
data$T2302800[45.0 <= data$T2302800 & data$T2302800 <= 49.0] <- 45.0
data$T2302800[50.0 <= data$T2302800 & data$T2302800 <= 9.9999999E7] <- 50.0
data$T2302800 <- factor(data$T2302800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T2302900[1.0 <= data$T2302900 & data$T2302900 <= 4.0] <- 1.0
data$T2302900[5.0 <= data$T2302900 & data$T2302900 <= 9.0] <- 5.0
data$T2302900[10.0 <= data$T2302900 & data$T2302900 <= 14.0] <- 10.0
data$T2302900[15.0 <= data$T2302900 & data$T2302900 <= 19.0] <- 15.0
data$T2302900[20.0 <= data$T2302900 & data$T2302900 <= 24.0] <- 20.0
data$T2302900[25.0 <= data$T2302900 & data$T2302900 <= 29.0] <- 25.0
data$T2302900[30.0 <= data$T2302900 & data$T2302900 <= 34.0] <- 30.0
data$T2302900[35.0 <= data$T2302900 & data$T2302900 <= 39.0] <- 35.0
data$T2302900[40.0 <= data$T2302900 & data$T2302900 <= 44.0] <- 40.0
data$T2302900[45.0 <= data$T2302900 & data$T2302900 <= 49.0] <- 45.0
data$T2302900[50.0 <= data$T2302900 & data$T2302900 <= 9.9999999E7] <- 50.0
data$T2302900 <- factor(data$T2302900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T2303000[1.0 <= data$T2303000 & data$T2303000 <= 4.0] <- 1.0
data$T2303000[5.0 <= data$T2303000 & data$T2303000 <= 9.0] <- 5.0
data$T2303000[10.0 <= data$T2303000 & data$T2303000 <= 14.0] <- 10.0
data$T2303000[15.0 <= data$T2303000 & data$T2303000 <= 19.0] <- 15.0
data$T2303000[20.0 <= data$T2303000 & data$T2303000 <= 24.0] <- 20.0
data$T2303000[25.0 <= data$T2303000 & data$T2303000 <= 29.0] <- 25.0
data$T2303000[30.0 <= data$T2303000 & data$T2303000 <= 34.0] <- 30.0
data$T2303000[35.0 <= data$T2303000 & data$T2303000 <= 39.0] <- 35.0
data$T2303000[40.0 <= data$T2303000 & data$T2303000 <= 44.0] <- 40.0
data$T2303000[45.0 <= data$T2303000 & data$T2303000 <= 49.0] <- 45.0
data$T2303000[50.0 <= data$T2303000 & data$T2303000 <= 9.9999999E7] <- 50.0
data$T2303000 <- factor(data$T2303000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T2303100[1.0 <= data$T2303100 & data$T2303100 <= 4.0] <- 1.0
data$T2303100[5.0 <= data$T2303100 & data$T2303100 <= 9.0] <- 5.0
data$T2303100[10.0 <= data$T2303100 & data$T2303100 <= 14.0] <- 10.0
data$T2303100[15.0 <= data$T2303100 & data$T2303100 <= 19.0] <- 15.0
data$T2303100[20.0 <= data$T2303100 & data$T2303100 <= 24.0] <- 20.0
data$T2303100[25.0 <= data$T2303100 & data$T2303100 <= 29.0] <- 25.0
data$T2303100[30.0 <= data$T2303100 & data$T2303100 <= 34.0] <- 30.0
data$T2303100[35.0 <= data$T2303100 & data$T2303100 <= 39.0] <- 35.0
data$T2303100[40.0 <= data$T2303100 & data$T2303100 <= 44.0] <- 40.0
data$T2303100[45.0 <= data$T2303100 & data$T2303100 <= 49.0] <- 45.0
data$T2303100[50.0 <= data$T2303100 & data$T2303100 <= 9.9999999E7] <- 50.0
data$T2303100 <- factor(data$T2303100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T2303200[1.0 <= data$T2303200 & data$T2303200 <= 4.0] <- 1.0
data$T2303200[5.0 <= data$T2303200 & data$T2303200 <= 9.0] <- 5.0
data$T2303200[10.0 <= data$T2303200 & data$T2303200 <= 14.0] <- 10.0
data$T2303200[15.0 <= data$T2303200 & data$T2303200 <= 19.0] <- 15.0
data$T2303200[20.0 <= data$T2303200 & data$T2303200 <= 24.0] <- 20.0
data$T2303200[25.0 <= data$T2303200 & data$T2303200 <= 29.0] <- 25.0
data$T2303200[30.0 <= data$T2303200 & data$T2303200 <= 34.0] <- 30.0
data$T2303200[35.0 <= data$T2303200 & data$T2303200 <= 39.0] <- 35.0
data$T2303200[40.0 <= data$T2303200 & data$T2303200 <= 44.0] <- 40.0
data$T2303200[45.0 <= data$T2303200 & data$T2303200 <= 49.0] <- 45.0
data$T2303200[50.0 <= data$T2303200 & data$T2303200 <= 9.9999999E7] <- 50.0
data$T2303200 <- factor(data$T2303200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T2303300 <- factor(data$T2303300,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$T2303400 <- factor(data$T2303400,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$T2303500 <- factor(data$T2303500,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$T2303600 <- factor(data$T2303600,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$T2303700 <- factor(data$T2303700,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$T2303800[1.0 <= data$T2303800 & data$T2303800 <= 4.0] <- 1.0
data$T2303800[5.0 <= data$T2303800 & data$T2303800 <= 9.0] <- 5.0
data$T2303800[10.0 <= data$T2303800 & data$T2303800 <= 14.0] <- 10.0
data$T2303800[15.0 <= data$T2303800 & data$T2303800 <= 19.0] <- 15.0
data$T2303800[20.0 <= data$T2303800 & data$T2303800 <= 24.0] <- 20.0
data$T2303800[25.0 <= data$T2303800 & data$T2303800 <= 29.0] <- 25.0
data$T2303800[30.0 <= data$T2303800 & data$T2303800 <= 34.0] <- 30.0
data$T2303800[35.0 <= data$T2303800 & data$T2303800 <= 39.0] <- 35.0
data$T2303800[40.0 <= data$T2303800 & data$T2303800 <= 44.0] <- 40.0
data$T2303800[45.0 <= data$T2303800 & data$T2303800 <= 49.0] <- 45.0
data$T2303800[50.0 <= data$T2303800 & data$T2303800 <= 9.9999999E7] <- 50.0
data$T2303800 <- factor(data$T2303800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T2303900[1.0 <= data$T2303900 & data$T2303900 <= 4.0] <- 1.0
data$T2303900[5.0 <= data$T2303900 & data$T2303900 <= 9.0] <- 5.0
data$T2303900[10.0 <= data$T2303900 & data$T2303900 <= 14.0] <- 10.0
data$T2303900[15.0 <= data$T2303900 & data$T2303900 <= 19.0] <- 15.0
data$T2303900[20.0 <= data$T2303900 & data$T2303900 <= 24.0] <- 20.0
data$T2303900[25.0 <= data$T2303900 & data$T2303900 <= 29.0] <- 25.0
data$T2303900[30.0 <= data$T2303900 & data$T2303900 <= 34.0] <- 30.0
data$T2303900[35.0 <= data$T2303900 & data$T2303900 <= 39.0] <- 35.0
data$T2303900[40.0 <= data$T2303900 & data$T2303900 <= 44.0] <- 40.0
data$T2303900[45.0 <= data$T2303900 & data$T2303900 <= 49.0] <- 45.0
data$T2303900[50.0 <= data$T2303900 & data$T2303900 <= 9.9999999E7] <- 50.0
data$T2303900 <- factor(data$T2303900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T2304000[1.0 <= data$T2304000 & data$T2304000 <= 4.0] <- 1.0
data$T2304000[5.0 <= data$T2304000 & data$T2304000 <= 9.0] <- 5.0
data$T2304000[10.0 <= data$T2304000 & data$T2304000 <= 14.0] <- 10.0
data$T2304000[15.0 <= data$T2304000 & data$T2304000 <= 19.0] <- 15.0
data$T2304000[20.0 <= data$T2304000 & data$T2304000 <= 24.0] <- 20.0
data$T2304000[25.0 <= data$T2304000 & data$T2304000 <= 29.0] <- 25.0
data$T2304000[30.0 <= data$T2304000 & data$T2304000 <= 34.0] <- 30.0
data$T2304000[35.0 <= data$T2304000 & data$T2304000 <= 39.0] <- 35.0
data$T2304000[40.0 <= data$T2304000 & data$T2304000 <= 44.0] <- 40.0
data$T2304000[45.0 <= data$T2304000 & data$T2304000 <= 49.0] <- 45.0
data$T2304000[50.0 <= data$T2304000 & data$T2304000 <= 9.9999999E7] <- 50.0
data$T2304000 <- factor(data$T2304000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T2304100[1.0 <= data$T2304100 & data$T2304100 <= 4.0] <- 1.0
data$T2304100[5.0 <= data$T2304100 & data$T2304100 <= 9.0] <- 5.0
data$T2304100[10.0 <= data$T2304100 & data$T2304100 <= 14.0] <- 10.0
data$T2304100[15.0 <= data$T2304100 & data$T2304100 <= 19.0] <- 15.0
data$T2304100[20.0 <= data$T2304100 & data$T2304100 <= 24.0] <- 20.0
data$T2304100[25.0 <= data$T2304100 & data$T2304100 <= 29.0] <- 25.0
data$T2304100[30.0 <= data$T2304100 & data$T2304100 <= 34.0] <- 30.0
data$T2304100[35.0 <= data$T2304100 & data$T2304100 <= 39.0] <- 35.0
data$T2304100[40.0 <= data$T2304100 & data$T2304100 <= 44.0] <- 40.0
data$T2304100[45.0 <= data$T2304100 & data$T2304100 <= 49.0] <- 45.0
data$T2304100[50.0 <= data$T2304100 & data$T2304100 <= 9.9999999E7] <- 50.0
data$T2304100 <- factor(data$T2304100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T2304200[1.0 <= data$T2304200 & data$T2304200 <= 4.0] <- 1.0
data$T2304200[5.0 <= data$T2304200 & data$T2304200 <= 9.0] <- 5.0
data$T2304200[10.0 <= data$T2304200 & data$T2304200 <= 14.0] <- 10.0
data$T2304200[15.0 <= data$T2304200 & data$T2304200 <= 19.0] <- 15.0
data$T2304200[20.0 <= data$T2304200 & data$T2304200 <= 24.0] <- 20.0
data$T2304200[25.0 <= data$T2304200 & data$T2304200 <= 29.0] <- 25.0
data$T2304200[30.0 <= data$T2304200 & data$T2304200 <= 34.0] <- 30.0
data$T2304200[35.0 <= data$T2304200 & data$T2304200 <= 39.0] <- 35.0
data$T2304200[40.0 <= data$T2304200 & data$T2304200 <= 44.0] <- 40.0
data$T2304200[45.0 <= data$T2304200 & data$T2304200 <= 49.0] <- 45.0
data$T2304200[50.0 <= data$T2304200 & data$T2304200 <= 9.9999999E7] <- 50.0
data$T2304200 <- factor(data$T2304200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T3106900[1.0 <= data$T3106900 & data$T3106900 <= 499.0] <- 1.0
data$T3106900[500.0 <= data$T3106900 & data$T3106900 <= 999.0] <- 500.0
data$T3106900[1000.0 <= data$T3106900 & data$T3106900 <= 1499.0] <- 1000.0
data$T3106900[1500.0 <= data$T3106900 & data$T3106900 <= 1999.0] <- 1500.0
data$T3106900[2000.0 <= data$T3106900 & data$T3106900 <= 2499.0] <- 2000.0
data$T3106900[2500.0 <= data$T3106900 & data$T3106900 <= 2999.0] <- 2500.0
data$T3106900[3000.0 <= data$T3106900 & data$T3106900 <= 3499.0] <- 3000.0
data$T3106900[3500.0 <= data$T3106900 & data$T3106900 <= 3999.0] <- 3500.0
data$T3106900[4000.0 <= data$T3106900 & data$T3106900 <= 4499.0] <- 4000.0
data$T3106900[4500.0 <= data$T3106900 & data$T3106900 <= 4999.0] <- 4500.0
data$T3106900[5000.0 <= data$T3106900 & data$T3106900 <= 9.9999999E7] <- 5000.0
data$T3106900 <- factor(data$T3106900,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$T3107000[1.0 <= data$T3107000 & data$T3107000 <= 499.0] <- 1.0
data$T3107000[500.0 <= data$T3107000 & data$T3107000 <= 999.0] <- 500.0
data$T3107000[1000.0 <= data$T3107000 & data$T3107000 <= 1499.0] <- 1000.0
data$T3107000[1500.0 <= data$T3107000 & data$T3107000 <= 1999.0] <- 1500.0
data$T3107000[2000.0 <= data$T3107000 & data$T3107000 <= 2499.0] <- 2000.0
data$T3107000[2500.0 <= data$T3107000 & data$T3107000 <= 2999.0] <- 2500.0
data$T3107000[3000.0 <= data$T3107000 & data$T3107000 <= 3499.0] <- 3000.0
data$T3107000[3500.0 <= data$T3107000 & data$T3107000 <= 3999.0] <- 3500.0
data$T3107000[4000.0 <= data$T3107000 & data$T3107000 <= 4499.0] <- 4000.0
data$T3107000[4500.0 <= data$T3107000 & data$T3107000 <= 4999.0] <- 4500.0
data$T3107000[5000.0 <= data$T3107000 & data$T3107000 <= 9.9999999E7] <- 5000.0
data$T3107000 <- factor(data$T3107000,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$T3107100[1.0 <= data$T3107100 & data$T3107100 <= 499.0] <- 1.0
data$T3107100[500.0 <= data$T3107100 & data$T3107100 <= 999.0] <- 500.0
data$T3107100[1000.0 <= data$T3107100 & data$T3107100 <= 1499.0] <- 1000.0
data$T3107100[1500.0 <= data$T3107100 & data$T3107100 <= 1999.0] <- 1500.0
data$T3107100[2000.0 <= data$T3107100 & data$T3107100 <= 2499.0] <- 2000.0
data$T3107100[2500.0 <= data$T3107100 & data$T3107100 <= 2999.0] <- 2500.0
data$T3107100[3000.0 <= data$T3107100 & data$T3107100 <= 3499.0] <- 3000.0
data$T3107100[3500.0 <= data$T3107100 & data$T3107100 <= 3999.0] <- 3500.0
data$T3107100[4000.0 <= data$T3107100 & data$T3107100 <= 4499.0] <- 4000.0
data$T3107100[4500.0 <= data$T3107100 & data$T3107100 <= 4999.0] <- 4500.0
data$T3107100[5000.0 <= data$T3107100 & data$T3107100 <= 9.9999999E7] <- 5000.0
data$T3107100 <- factor(data$T3107100,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$T3107200[1.0 <= data$T3107200 & data$T3107200 <= 499.0] <- 1.0
data$T3107200[500.0 <= data$T3107200 & data$T3107200 <= 999.0] <- 500.0
data$T3107200[1000.0 <= data$T3107200 & data$T3107200 <= 1499.0] <- 1000.0
data$T3107200[1500.0 <= data$T3107200 & data$T3107200 <= 1999.0] <- 1500.0
data$T3107200[2000.0 <= data$T3107200 & data$T3107200 <= 2499.0] <- 2000.0
data$T3107200[2500.0 <= data$T3107200 & data$T3107200 <= 2999.0] <- 2500.0
data$T3107200[3000.0 <= data$T3107200 & data$T3107200 <= 3499.0] <- 3000.0
data$T3107200[3500.0 <= data$T3107200 & data$T3107200 <= 3999.0] <- 3500.0
data$T3107200[4000.0 <= data$T3107200 & data$T3107200 <= 4499.0] <- 4000.0
data$T3107200[4500.0 <= data$T3107200 & data$T3107200 <= 4999.0] <- 4500.0
data$T3107200[5000.0 <= data$T3107200 & data$T3107200 <= 9.9999999E7] <- 5000.0
data$T3107200 <- factor(data$T3107200,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$T3107300[1.0 <= data$T3107300 & data$T3107300 <= 499.0] <- 1.0
data$T3107300[500.0 <= data$T3107300 & data$T3107300 <= 999.0] <- 500.0
data$T3107300[1000.0 <= data$T3107300 & data$T3107300 <= 1499.0] <- 1000.0
data$T3107300[1500.0 <= data$T3107300 & data$T3107300 <= 1999.0] <- 1500.0
data$T3107300[2000.0 <= data$T3107300 & data$T3107300 <= 2499.0] <- 2000.0
data$T3107300[2500.0 <= data$T3107300 & data$T3107300 <= 2999.0] <- 2500.0
data$T3107300[3000.0 <= data$T3107300 & data$T3107300 <= 3499.0] <- 3000.0
data$T3107300[3500.0 <= data$T3107300 & data$T3107300 <= 3999.0] <- 3500.0
data$T3107300[4000.0 <= data$T3107300 & data$T3107300 <= 4499.0] <- 4000.0
data$T3107300[4500.0 <= data$T3107300 & data$T3107300 <= 4999.0] <- 4500.0
data$T3107300[5000.0 <= data$T3107300 & data$T3107300 <= 9.9999999E7] <- 5000.0
data$T3107300 <- factor(data$T3107300,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$T3108500 <- factor(data$T3108500,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$T3108600 <- factor(data$T3108600,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$T3212900 <- factor(data$T3212900,
levels=c(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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"UNGRADED"))
data$T3279800[1.0 <= data$T3279800 & data$T3279800 <= 9.0] <- 1.0
data$T3279800[10.0 <= data$T3279800 & data$T3279800 <= 19.0] <- 10.0
data$T3279800[20.0 <= data$T3279800 & data$T3279800 <= 29.0] <- 20.0
data$T3279800[30.0 <= data$T3279800 & data$T3279800 <= 39.0] <- 30.0
data$T3279800[40.0 <= data$T3279800 & data$T3279800 <= 49.0] <- 40.0
data$T3279800[50.0 <= data$T3279800 & data$T3279800 <= 59.0] <- 50.0
data$T3279800[60.0 <= data$T3279800 & data$T3279800 <= 69.0] <- 60.0
data$T3279800[70.0 <= data$T3279800 & data$T3279800 <= 79.0] <- 70.0
data$T3279800[80.0 <= data$T3279800 & data$T3279800 <= 89.0] <- 80.0
data$T3279800[90.0 <= data$T3279800 & data$T3279800 <= 99.0] <- 90.0
data$T3279800[100.0 <= data$T3279800 & data$T3279800 <= 9.9999999E7] <- 100.0
data$T3279800 <- factor(data$T3279800,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T3279900[1.0 <= data$T3279900 & data$T3279900 <= 9.0] <- 1.0
data$T3279900[10.0 <= data$T3279900 & data$T3279900 <= 19.0] <- 10.0
data$T3279900[20.0 <= data$T3279900 & data$T3279900 <= 29.0] <- 20.0
data$T3279900[30.0 <= data$T3279900 & data$T3279900 <= 39.0] <- 30.0
data$T3279900[40.0 <= data$T3279900 & data$T3279900 <= 49.0] <- 40.0
data$T3279900[50.0 <= data$T3279900 & data$T3279900 <= 59.0] <- 50.0
data$T3279900[60.0 <= data$T3279900 & data$T3279900 <= 69.0] <- 60.0
data$T3279900[70.0 <= data$T3279900 & data$T3279900 <= 79.0] <- 70.0
data$T3279900[80.0 <= data$T3279900 & data$T3279900 <= 89.0] <- 80.0
data$T3279900[90.0 <= data$T3279900 & data$T3279900 <= 99.0] <- 90.0
data$T3279900[100.0 <= data$T3279900 & data$T3279900 <= 9.9999999E7] <- 100.0
data$T3279900 <- factor(data$T3279900,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T3280000[1.0 <= data$T3280000 & data$T3280000 <= 9.0] <- 1.0
data$T3280000[10.0 <= data$T3280000 & data$T3280000 <= 19.0] <- 10.0
data$T3280000[20.0 <= data$T3280000 & data$T3280000 <= 29.0] <- 20.0
data$T3280000[30.0 <= data$T3280000 & data$T3280000 <= 39.0] <- 30.0
data$T3280000[40.0 <= data$T3280000 & data$T3280000 <= 49.0] <- 40.0
data$T3280000[50.0 <= data$T3280000 & data$T3280000 <= 59.0] <- 50.0
data$T3280000[60.0 <= data$T3280000 & data$T3280000 <= 69.0] <- 60.0
data$T3280000[70.0 <= data$T3280000 & data$T3280000 <= 79.0] <- 70.0
data$T3280000[80.0 <= data$T3280000 & data$T3280000 <= 89.0] <- 80.0
data$T3280000[90.0 <= data$T3280000 & data$T3280000 <= 99.0] <- 90.0
data$T3280000[100.0 <= data$T3280000 & data$T3280000 <= 9.9999999E7] <- 100.0
data$T3280000 <- factor(data$T3280000,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T3280100[1.0 <= data$T3280100 & data$T3280100 <= 9.0] <- 1.0
data$T3280100[10.0 <= data$T3280100 & data$T3280100 <= 19.0] <- 10.0
data$T3280100[20.0 <= data$T3280100 & data$T3280100 <= 29.0] <- 20.0
data$T3280100[30.0 <= data$T3280100 & data$T3280100 <= 39.0] <- 30.0
data$T3280100[40.0 <= data$T3280100 & data$T3280100 <= 49.0] <- 40.0
data$T3280100[50.0 <= data$T3280100 & data$T3280100 <= 59.0] <- 50.0
data$T3280100[60.0 <= data$T3280100 & data$T3280100 <= 69.0] <- 60.0
data$T3280100[70.0 <= data$T3280100 & data$T3280100 <= 79.0] <- 70.0
data$T3280100[80.0 <= data$T3280100 & data$T3280100 <= 89.0] <- 80.0
data$T3280100[90.0 <= data$T3280100 & data$T3280100 <= 99.0] <- 90.0
data$T3280100[100.0 <= data$T3280100 & data$T3280100 <= 9.9999999E7] <- 100.0
data$T3280100 <- factor(data$T3280100,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T3280200[1.0 <= data$T3280200 & data$T3280200 <= 9.0] <- 1.0
data$T3280200[10.0 <= data$T3280200 & data$T3280200 <= 19.0] <- 10.0
data$T3280200[20.0 <= data$T3280200 & data$T3280200 <= 29.0] <- 20.0
data$T3280200[30.0 <= data$T3280200 & data$T3280200 <= 39.0] <- 30.0
data$T3280200[40.0 <= data$T3280200 & data$T3280200 <= 49.0] <- 40.0
data$T3280200[50.0 <= data$T3280200 & data$T3280200 <= 59.0] <- 50.0
data$T3280200[60.0 <= data$T3280200 & data$T3280200 <= 69.0] <- 60.0
data$T3280200[70.0 <= data$T3280200 & data$T3280200 <= 79.0] <- 70.0
data$T3280200[80.0 <= data$T3280200 & data$T3280200 <= 89.0] <- 80.0
data$T3280200[90.0 <= data$T3280200 & data$T3280200 <= 99.0] <- 90.0
data$T3280200[100.0 <= data$T3280200 & data$T3280200 <= 9.9999999E7] <- 100.0
data$T3280200 <- factor(data$T3280200,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T3280800[1.0 <= data$T3280800 & data$T3280800 <= 4.0] <- 1.0
data$T3280800[5.0 <= data$T3280800 & data$T3280800 <= 9.0] <- 5.0
data$T3280800[10.0 <= data$T3280800 & data$T3280800 <= 14.0] <- 10.0
data$T3280800[15.0 <= data$T3280800 & data$T3280800 <= 19.0] <- 15.0
data$T3280800[20.0 <= data$T3280800 & data$T3280800 <= 24.0] <- 20.0
data$T3280800[25.0 <= data$T3280800 & data$T3280800 <= 29.0] <- 25.0
data$T3280800[30.0 <= data$T3280800 & data$T3280800 <= 34.0] <- 30.0
data$T3280800[35.0 <= data$T3280800 & data$T3280800 <= 39.0] <- 35.0
data$T3280800[40.0 <= data$T3280800 & data$T3280800 <= 44.0] <- 40.0
data$T3280800[45.0 <= data$T3280800 & data$T3280800 <= 49.0] <- 45.0
data$T3280800[50.0 <= data$T3280800 & data$T3280800 <= 9.9999999E7] <- 50.0
data$T3280800 <- factor(data$T3280800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T3280900[1.0 <= data$T3280900 & data$T3280900 <= 4.0] <- 1.0
data$T3280900[5.0 <= data$T3280900 & data$T3280900 <= 9.0] <- 5.0
data$T3280900[10.0 <= data$T3280900 & data$T3280900 <= 14.0] <- 10.0
data$T3280900[15.0 <= data$T3280900 & data$T3280900 <= 19.0] <- 15.0
data$T3280900[20.0 <= data$T3280900 & data$T3280900 <= 24.0] <- 20.0
data$T3280900[25.0 <= data$T3280900 & data$T3280900 <= 29.0] <- 25.0
data$T3280900[30.0 <= data$T3280900 & data$T3280900 <= 34.0] <- 30.0
data$T3280900[35.0 <= data$T3280900 & data$T3280900 <= 39.0] <- 35.0
data$T3280900[40.0 <= data$T3280900 & data$T3280900 <= 44.0] <- 40.0
data$T3280900[45.0 <= data$T3280900 & data$T3280900 <= 49.0] <- 45.0
data$T3280900[50.0 <= data$T3280900 & data$T3280900 <= 9.9999999E7] <- 50.0
data$T3280900 <- factor(data$T3280900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T3281000[1.0 <= data$T3281000 & data$T3281000 <= 4.0] <- 1.0
data$T3281000[5.0 <= data$T3281000 & data$T3281000 <= 9.0] <- 5.0
data$T3281000[10.0 <= data$T3281000 & data$T3281000 <= 14.0] <- 10.0
data$T3281000[15.0 <= data$T3281000 & data$T3281000 <= 19.0] <- 15.0
data$T3281000[20.0 <= data$T3281000 & data$T3281000 <= 24.0] <- 20.0
data$T3281000[25.0 <= data$T3281000 & data$T3281000 <= 29.0] <- 25.0
data$T3281000[30.0 <= data$T3281000 & data$T3281000 <= 34.0] <- 30.0
data$T3281000[35.0 <= data$T3281000 & data$T3281000 <= 39.0] <- 35.0
data$T3281000[40.0 <= data$T3281000 & data$T3281000 <= 44.0] <- 40.0
data$T3281000[45.0 <= data$T3281000 & data$T3281000 <= 49.0] <- 45.0
data$T3281000[50.0 <= data$T3281000 & data$T3281000 <= 9.9999999E7] <- 50.0
data$T3281000 <- factor(data$T3281000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T3281100[1.0 <= data$T3281100 & data$T3281100 <= 4.0] <- 1.0
data$T3281100[5.0 <= data$T3281100 & data$T3281100 <= 9.0] <- 5.0
data$T3281100[10.0 <= data$T3281100 & data$T3281100 <= 14.0] <- 10.0
data$T3281100[15.0 <= data$T3281100 & data$T3281100 <= 19.0] <- 15.0
data$T3281100[20.0 <= data$T3281100 & data$T3281100 <= 24.0] <- 20.0
data$T3281100[25.0 <= data$T3281100 & data$T3281100 <= 29.0] <- 25.0
data$T3281100[30.0 <= data$T3281100 & data$T3281100 <= 34.0] <- 30.0
data$T3281100[35.0 <= data$T3281100 & data$T3281100 <= 39.0] <- 35.0
data$T3281100[40.0 <= data$T3281100 & data$T3281100 <= 44.0] <- 40.0
data$T3281100[45.0 <= data$T3281100 & data$T3281100 <= 49.0] <- 45.0
data$T3281100[50.0 <= data$T3281100 & data$T3281100 <= 9.9999999E7] <- 50.0
data$T3281100 <- factor(data$T3281100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T3281200[1.0 <= data$T3281200 & data$T3281200 <= 4.0] <- 1.0
data$T3281200[5.0 <= data$T3281200 & data$T3281200 <= 9.0] <- 5.0
data$T3281200[10.0 <= data$T3281200 & data$T3281200 <= 14.0] <- 10.0
data$T3281200[15.0 <= data$T3281200 & data$T3281200 <= 19.0] <- 15.0
data$T3281200[20.0 <= data$T3281200 & data$T3281200 <= 24.0] <- 20.0
data$T3281200[25.0 <= data$T3281200 & data$T3281200 <= 29.0] <- 25.0
data$T3281200[30.0 <= data$T3281200 & data$T3281200 <= 34.0] <- 30.0
data$T3281200[35.0 <= data$T3281200 & data$T3281200 <= 39.0] <- 35.0
data$T3281200[40.0 <= data$T3281200 & data$T3281200 <= 44.0] <- 40.0
data$T3281200[45.0 <= data$T3281200 & data$T3281200 <= 49.0] <- 45.0
data$T3281200[50.0 <= data$T3281200 & data$T3281200 <= 9.9999999E7] <- 50.0
data$T3281200 <- factor(data$T3281200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T3281300[1.0 <= data$T3281300 & data$T3281300 <= 4.0] <- 1.0
data$T3281300[5.0 <= data$T3281300 & data$T3281300 <= 9.0] <- 5.0
data$T3281300[10.0 <= data$T3281300 & data$T3281300 <= 14.0] <- 10.0
data$T3281300[15.0 <= data$T3281300 & data$T3281300 <= 19.0] <- 15.0
data$T3281300[20.0 <= data$T3281300 & data$T3281300 <= 24.0] <- 20.0
data$T3281300[25.0 <= data$T3281300 & data$T3281300 <= 29.0] <- 25.0
data$T3281300[30.0 <= data$T3281300 & data$T3281300 <= 34.0] <- 30.0
data$T3281300[35.0 <= data$T3281300 & data$T3281300 <= 39.0] <- 35.0
data$T3281300[40.0 <= data$T3281300 & data$T3281300 <= 44.0] <- 40.0
data$T3281300[45.0 <= data$T3281300 & data$T3281300 <= 49.0] <- 45.0
data$T3281300[50.0 <= data$T3281300 & data$T3281300 <= 9.9999999E7] <- 50.0
data$T3281300 <- factor(data$T3281300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T3281400[1.0 <= data$T3281400 & data$T3281400 <= 4.0] <- 1.0
data$T3281400[5.0 <= data$T3281400 & data$T3281400 <= 9.0] <- 5.0
data$T3281400[10.0 <= data$T3281400 & data$T3281400 <= 14.0] <- 10.0
data$T3281400[15.0 <= data$T3281400 & data$T3281400 <= 19.0] <- 15.0
data$T3281400[20.0 <= data$T3281400 & data$T3281400 <= 24.0] <- 20.0
data$T3281400[25.0 <= data$T3281400 & data$T3281400 <= 29.0] <- 25.0
data$T3281400[30.0 <= data$T3281400 & data$T3281400 <= 34.0] <- 30.0
data$T3281400[35.0 <= data$T3281400 & data$T3281400 <= 39.0] <- 35.0
data$T3281400[40.0 <= data$T3281400 & data$T3281400 <= 44.0] <- 40.0
data$T3281400[45.0 <= data$T3281400 & data$T3281400 <= 49.0] <- 45.0
data$T3281400[50.0 <= data$T3281400 & data$T3281400 <= 9.9999999E7] <- 50.0
data$T3281400 <- factor(data$T3281400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T3281500[1.0 <= data$T3281500 & data$T3281500 <= 4.0] <- 1.0
data$T3281500[5.0 <= data$T3281500 & data$T3281500 <= 9.0] <- 5.0
data$T3281500[10.0 <= data$T3281500 & data$T3281500 <= 14.0] <- 10.0
data$T3281500[15.0 <= data$T3281500 & data$T3281500 <= 19.0] <- 15.0
data$T3281500[20.0 <= data$T3281500 & data$T3281500 <= 24.0] <- 20.0
data$T3281500[25.0 <= data$T3281500 & data$T3281500 <= 29.0] <- 25.0
data$T3281500[30.0 <= data$T3281500 & data$T3281500 <= 34.0] <- 30.0
data$T3281500[35.0 <= data$T3281500 & data$T3281500 <= 39.0] <- 35.0
data$T3281500[40.0 <= data$T3281500 & data$T3281500 <= 44.0] <- 40.0
data$T3281500[45.0 <= data$T3281500 & data$T3281500 <= 49.0] <- 45.0
data$T3281500[50.0 <= data$T3281500 & data$T3281500 <= 9.9999999E7] <- 50.0
data$T3281500 <- factor(data$T3281500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T3281600[1.0 <= data$T3281600 & data$T3281600 <= 4.0] <- 1.0
data$T3281600[5.0 <= data$T3281600 & data$T3281600 <= 9.0] <- 5.0
data$T3281600[10.0 <= data$T3281600 & data$T3281600 <= 14.0] <- 10.0
data$T3281600[15.0 <= data$T3281600 & data$T3281600 <= 19.0] <- 15.0
data$T3281600[20.0 <= data$T3281600 & data$T3281600 <= 24.0] <- 20.0
data$T3281600[25.0 <= data$T3281600 & data$T3281600 <= 29.0] <- 25.0
data$T3281600[30.0 <= data$T3281600 & data$T3281600 <= 34.0] <- 30.0
data$T3281600[35.0 <= data$T3281600 & data$T3281600 <= 39.0] <- 35.0
data$T3281600[40.0 <= data$T3281600 & data$T3281600 <= 44.0] <- 40.0
data$T3281600[45.0 <= data$T3281600 & data$T3281600 <= 49.0] <- 45.0
data$T3281600[50.0 <= data$T3281600 & data$T3281600 <= 9.9999999E7] <- 50.0
data$T3281600 <- factor(data$T3281600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T3281700[1.0 <= data$T3281700 & data$T3281700 <= 4.0] <- 1.0
data$T3281700[5.0 <= data$T3281700 & data$T3281700 <= 9.0] <- 5.0
data$T3281700[10.0 <= data$T3281700 & data$T3281700 <= 14.0] <- 10.0
data$T3281700[15.0 <= data$T3281700 & data$T3281700 <= 19.0] <- 15.0
data$T3281700[20.0 <= data$T3281700 & data$T3281700 <= 24.0] <- 20.0
data$T3281700[25.0 <= data$T3281700 & data$T3281700 <= 29.0] <- 25.0
data$T3281700[30.0 <= data$T3281700 & data$T3281700 <= 34.0] <- 30.0
data$T3281700[35.0 <= data$T3281700 & data$T3281700 <= 39.0] <- 35.0
data$T3281700[40.0 <= data$T3281700 & data$T3281700 <= 44.0] <- 40.0
data$T3281700[45.0 <= data$T3281700 & data$T3281700 <= 49.0] <- 45.0
data$T3281700[50.0 <= data$T3281700 & data$T3281700 <= 9.9999999E7] <- 50.0
data$T3281700 <- factor(data$T3281700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T3281800 <- factor(data$T3281800,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$T3281900 <- factor(data$T3281900,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$T3282000 <- factor(data$T3282000,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$T3282100 <- factor(data$T3282100,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$T3282200 <- factor(data$T3282200,
levels=c(0.0,1.0),
labels=c("No",
"Yes"))
data$T3282300[1.0 <= data$T3282300 & data$T3282300 <= 4.0] <- 1.0
data$T3282300[5.0 <= data$T3282300 & data$T3282300 <= 9.0] <- 5.0
data$T3282300[10.0 <= data$T3282300 & data$T3282300 <= 14.0] <- 10.0
data$T3282300[15.0 <= data$T3282300 & data$T3282300 <= 19.0] <- 15.0
data$T3282300[20.0 <= data$T3282300 & data$T3282300 <= 24.0] <- 20.0
data$T3282300[25.0 <= data$T3282300 & data$T3282300 <= 29.0] <- 25.0
data$T3282300[30.0 <= data$T3282300 & data$T3282300 <= 34.0] <- 30.0
data$T3282300[35.0 <= data$T3282300 & data$T3282300 <= 39.0] <- 35.0
data$T3282300[40.0 <= data$T3282300 & data$T3282300 <= 44.0] <- 40.0
data$T3282300[45.0 <= data$T3282300 & data$T3282300 <= 49.0] <- 45.0
data$T3282300[50.0 <= data$T3282300 & data$T3282300 <= 9.9999999E7] <- 50.0
data$T3282300 <- factor(data$T3282300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T3282400[1.0 <= data$T3282400 & data$T3282400 <= 4.0] <- 1.0
data$T3282400[5.0 <= data$T3282400 & data$T3282400 <= 9.0] <- 5.0
data$T3282400[10.0 <= data$T3282400 & data$T3282400 <= 14.0] <- 10.0
data$T3282400[15.0 <= data$T3282400 & data$T3282400 <= 19.0] <- 15.0
data$T3282400[20.0 <= data$T3282400 & data$T3282400 <= 24.0] <- 20.0
data$T3282400[25.0 <= data$T3282400 & data$T3282400 <= 29.0] <- 25.0
data$T3282400[30.0 <= data$T3282400 & data$T3282400 <= 34.0] <- 30.0
data$T3282400[35.0 <= data$T3282400 & data$T3282400 <= 39.0] <- 35.0
data$T3282400[40.0 <= data$T3282400 & data$T3282400 <= 44.0] <- 40.0
data$T3282400[45.0 <= data$T3282400 & data$T3282400 <= 49.0] <- 45.0
data$T3282400[50.0 <= data$T3282400 & data$T3282400 <= 9.9999999E7] <- 50.0
data$T3282400 <- factor(data$T3282400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T3282500[1.0 <= data$T3282500 & data$T3282500 <= 4.0] <- 1.0
data$T3282500[5.0 <= data$T3282500 & data$T3282500 <= 9.0] <- 5.0
data$T3282500[10.0 <= data$T3282500 & data$T3282500 <= 14.0] <- 10.0
data$T3282500[15.0 <= data$T3282500 & data$T3282500 <= 19.0] <- 15.0
data$T3282500[20.0 <= data$T3282500 & data$T3282500 <= 24.0] <- 20.0
data$T3282500[25.0 <= data$T3282500 & data$T3282500 <= 29.0] <- 25.0
data$T3282500[30.0 <= data$T3282500 & data$T3282500 <= 34.0] <- 30.0
data$T3282500[35.0 <= data$T3282500 & data$T3282500 <= 39.0] <- 35.0
data$T3282500[40.0 <= data$T3282500 & data$T3282500 <= 44.0] <- 40.0
data$T3282500[45.0 <= data$T3282500 & data$T3282500 <= 49.0] <- 45.0
data$T3282500[50.0 <= data$T3282500 & data$T3282500 <= 9.9999999E7] <- 50.0
data$T3282500 <- factor(data$T3282500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T3282600[1.0 <= data$T3282600 & data$T3282600 <= 4.0] <- 1.0
data$T3282600[5.0 <= data$T3282600 & data$T3282600 <= 9.0] <- 5.0
data$T3282600[10.0 <= data$T3282600 & data$T3282600 <= 14.0] <- 10.0
data$T3282600[15.0 <= data$T3282600 & data$T3282600 <= 19.0] <- 15.0
data$T3282600[20.0 <= data$T3282600 & data$T3282600 <= 24.0] <- 20.0
data$T3282600[25.0 <= data$T3282600 & data$T3282600 <= 29.0] <- 25.0
data$T3282600[30.0 <= data$T3282600 & data$T3282600 <= 34.0] <- 30.0
data$T3282600[35.0 <= data$T3282600 & data$T3282600 <= 39.0] <- 35.0
data$T3282600[40.0 <= data$T3282600 & data$T3282600 <= 44.0] <- 40.0
data$T3282600[45.0 <= data$T3282600 & data$T3282600 <= 49.0] <- 45.0
data$T3282600[50.0 <= data$T3282600 & data$T3282600 <= 9.9999999E7] <- 50.0
data$T3282600 <- factor(data$T3282600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T3282700[1.0 <= data$T3282700 & data$T3282700 <= 4.0] <- 1.0
data$T3282700[5.0 <= data$T3282700 & data$T3282700 <= 9.0] <- 5.0
data$T3282700[10.0 <= data$T3282700 & data$T3282700 <= 14.0] <- 10.0
data$T3282700[15.0 <= data$T3282700 & data$T3282700 <= 19.0] <- 15.0
data$T3282700[20.0 <= data$T3282700 & data$T3282700 <= 24.0] <- 20.0
data$T3282700[25.0 <= data$T3282700 & data$T3282700 <= 29.0] <- 25.0
data$T3282700[30.0 <= data$T3282700 & data$T3282700 <= 34.0] <- 30.0
data$T3282700[35.0 <= data$T3282700 & data$T3282700 <= 39.0] <- 35.0
data$T3282700[40.0 <= data$T3282700 & data$T3282700 <= 44.0] <- 40.0
data$T3282700[45.0 <= data$T3282700 & data$T3282700 <= 49.0] <- 45.0
data$T3282700[50.0 <= data$T3282700 & data$T3282700 <= 9.9999999E7] <- 50.0
data$T3282700 <- factor(data$T3282700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T4110900[1.0 <= data$T4110900 & data$T4110900 <= 499.0] <- 1.0
data$T4110900[500.0 <= data$T4110900 & data$T4110900 <= 999.0] <- 500.0
data$T4110900[1000.0 <= data$T4110900 & data$T4110900 <= 1499.0] <- 1000.0
data$T4110900[1500.0 <= data$T4110900 & data$T4110900 <= 1999.0] <- 1500.0
data$T4110900[2000.0 <= data$T4110900 & data$T4110900 <= 2499.0] <- 2000.0
data$T4110900[2500.0 <= data$T4110900 & data$T4110900 <= 2999.0] <- 2500.0
data$T4110900[3000.0 <= data$T4110900 & data$T4110900 <= 3499.0] <- 3000.0
data$T4110900[3500.0 <= data$T4110900 & data$T4110900 <= 3999.0] <- 3500.0
data$T4110900[4000.0 <= data$T4110900 & data$T4110900 <= 4499.0] <- 4000.0
data$T4110900[4500.0 <= data$T4110900 & data$T4110900 <= 4999.0] <- 4500.0
data$T4110900[5000.0 <= data$T4110900 & data$T4110900 <= 9.9999999E7] <- 5000.0
data$T4110900 <- factor(data$T4110900,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$T4111100[1.0 <= data$T4111100 & data$T4111100 <= 499.0] <- 1.0
data$T4111100[500.0 <= data$T4111100 & data$T4111100 <= 999.0] <- 500.0
data$T4111100[1000.0 <= data$T4111100 & data$T4111100 <= 1499.0] <- 1000.0
data$T4111100[1500.0 <= data$T4111100 & data$T4111100 <= 1999.0] <- 1500.0
data$T4111100[2000.0 <= data$T4111100 & data$T4111100 <= 2499.0] <- 2000.0
data$T4111100[2500.0 <= data$T4111100 & data$T4111100 <= 2999.0] <- 2500.0
data$T4111100[3000.0 <= data$T4111100 & data$T4111100 <= 3499.0] <- 3000.0
data$T4111100[3500.0 <= data$T4111100 & data$T4111100 <= 3999.0] <- 3500.0
data$T4111100[4000.0 <= data$T4111100 & data$T4111100 <= 4499.0] <- 4000.0
data$T4111100[4500.0 <= data$T4111100 & data$T4111100 <= 4999.0] <- 4500.0
data$T4111100[5000.0 <= data$T4111100 & data$T4111100 <= 9.9999999E7] <- 5000.0
data$T4111100 <- factor(data$T4111100,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$T4111300[1.0 <= data$T4111300 & data$T4111300 <= 499.0] <- 1.0
data$T4111300[500.0 <= data$T4111300 & data$T4111300 <= 999.0] <- 500.0
data$T4111300[1000.0 <= data$T4111300 & data$T4111300 <= 1499.0] <- 1000.0
data$T4111300[1500.0 <= data$T4111300 & data$T4111300 <= 1999.0] <- 1500.0
data$T4111300[2000.0 <= data$T4111300 & data$T4111300 <= 2499.0] <- 2000.0
data$T4111300[2500.0 <= data$T4111300 & data$T4111300 <= 2999.0] <- 2500.0
data$T4111300[3000.0 <= data$T4111300 & data$T4111300 <= 3499.0] <- 3000.0
data$T4111300[3500.0 <= data$T4111300 & data$T4111300 <= 3999.0] <- 3500.0
data$T4111300[4000.0 <= data$T4111300 & data$T4111300 <= 4499.0] <- 4000.0
data$T4111300[4500.0 <= data$T4111300 & data$T4111300 <= 4999.0] <- 4500.0
data$T4111300[5000.0 <= data$T4111300 & data$T4111300 <= 9.9999999E7] <- 5000.0
data$T4111300 <- factor(data$T4111300,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$T4111500[1.0 <= data$T4111500 & data$T4111500 <= 499.0] <- 1.0
data$T4111500[500.0 <= data$T4111500 & data$T4111500 <= 999.0] <- 500.0
data$T4111500[1000.0 <= data$T4111500 & data$T4111500 <= 1499.0] <- 1000.0
data$T4111500[1500.0 <= data$T4111500 & data$T4111500 <= 1999.0] <- 1500.0
data$T4111500[2000.0 <= data$T4111500 & data$T4111500 <= 2499.0] <- 2000.0
data$T4111500[2500.0 <= data$T4111500 & data$T4111500 <= 2999.0] <- 2500.0
data$T4111500[3000.0 <= data$T4111500 & data$T4111500 <= 3499.0] <- 3000.0
data$T4111500[3500.0 <= data$T4111500 & data$T4111500 <= 3999.0] <- 3500.0
data$T4111500[4000.0 <= data$T4111500 & data$T4111500 <= 4499.0] <- 4000.0
data$T4111500[4500.0 <= data$T4111500 & data$T4111500 <= 4999.0] <- 4500.0
data$T4111500[5000.0 <= data$T4111500 & data$T4111500 <= 9.9999999E7] <- 5000.0
data$T4111500 <- factor(data$T4111500,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$T4111700[1.0 <= data$T4111700 & data$T4111700 <= 499.0] <- 1.0
data$T4111700[500.0 <= data$T4111700 & data$T4111700 <= 999.0] <- 500.0
data$T4111700[1000.0 <= data$T4111700 & data$T4111700 <= 1499.0] <- 1000.0
data$T4111700[1500.0 <= data$T4111700 & data$T4111700 <= 1999.0] <- 1500.0
data$T4111700[2000.0 <= data$T4111700 & data$T4111700 <= 2499.0] <- 2000.0
data$T4111700[2500.0 <= data$T4111700 & data$T4111700 <= 2999.0] <- 2500.0
data$T4111700[3000.0 <= data$T4111700 & data$T4111700 <= 3499.0] <- 3000.0
data$T4111700[3500.0 <= data$T4111700 & data$T4111700 <= 3999.0] <- 3500.0
data$T4111700[4000.0 <= data$T4111700 & data$T4111700 <= 4499.0] <- 4000.0
data$T4111700[4500.0 <= data$T4111700 & data$T4111700 <= 4999.0] <- 4500.0
data$T4111700[5000.0 <= data$T4111700 & data$T4111700 <= 9.9999999E7] <- 5000.0
data$T4111700 <- factor(data$T4111700,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499",
"500 TO 999",
"1000 TO 1499",
"1500 TO 1999",
"2000 TO 2499",
"2500 TO 2999",
"3000 TO 3499",
"3500 TO 3999",
"4000 TO 4499",
"4500 TO 4999",
"5000 TO 99999999: 5000+"))
data$T4113000 <- factor(data$T4113000,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$T4201100 <- factor(data$T4201100,
levels=c(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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"UNGRADED"))
data$T4253500[1.0 <= data$T4253500 & data$T4253500 <= 9.0] <- 1.0
data$T4253500[10.0 <= data$T4253500 & data$T4253500 <= 19.0] <- 10.0
data$T4253500[20.0 <= data$T4253500 & data$T4253500 <= 29.0] <- 20.0
data$T4253500[30.0 <= data$T4253500 & data$T4253500 <= 39.0] <- 30.0
data$T4253500[40.0 <= data$T4253500 & data$T4253500 <= 49.0] <- 40.0
data$T4253500[50.0 <= data$T4253500 & data$T4253500 <= 59.0] <- 50.0
data$T4253500[60.0 <= data$T4253500 & data$T4253500 <= 69.0] <- 60.0
data$T4253500[70.0 <= data$T4253500 & data$T4253500 <= 79.0] <- 70.0
data$T4253500[80.0 <= data$T4253500 & data$T4253500 <= 89.0] <- 80.0
data$T4253500[90.0 <= data$T4253500 & data$T4253500 <= 99.0] <- 90.0
data$T4253500[100.0 <= data$T4253500 & data$T4253500 <= 9.9999999E7] <- 100.0
data$T4253500 <- factor(data$T4253500,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T4253600[1.0 <= data$T4253600 & data$T4253600 <= 9.0] <- 1.0
data$T4253600[10.0 <= data$T4253600 & data$T4253600 <= 19.0] <- 10.0
data$T4253600[20.0 <= data$T4253600 & data$T4253600 <= 29.0] <- 20.0
data$T4253600[30.0 <= data$T4253600 & data$T4253600 <= 39.0] <- 30.0
data$T4253600[40.0 <= data$T4253600 & data$T4253600 <= 49.0] <- 40.0
data$T4253600[50.0 <= data$T4253600 & data$T4253600 <= 59.0] <- 50.0
data$T4253600[60.0 <= data$T4253600 & data$T4253600 <= 69.0] <- 60.0
data$T4253600[70.0 <= data$T4253600 & data$T4253600 <= 79.0] <- 70.0
data$T4253600[80.0 <= data$T4253600 & data$T4253600 <= 89.0] <- 80.0
data$T4253600[90.0 <= data$T4253600 & data$T4253600 <= 99.0] <- 90.0
data$T4253600[100.0 <= data$T4253600 & data$T4253600 <= 9.9999999E7] <- 100.0
data$T4253600 <- factor(data$T4253600,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T4253700[1.0 <= data$T4253700 & data$T4253700 <= 9.0] <- 1.0
data$T4253700[10.0 <= data$T4253700 & data$T4253700 <= 19.0] <- 10.0
data$T4253700[20.0 <= data$T4253700 & data$T4253700 <= 29.0] <- 20.0
data$T4253700[30.0 <= data$T4253700 & data$T4253700 <= 39.0] <- 30.0
data$T4253700[40.0 <= data$T4253700 & data$T4253700 <= 49.0] <- 40.0
data$T4253700[50.0 <= data$T4253700 & data$T4253700 <= 59.0] <- 50.0
data$T4253700[60.0 <= data$T4253700 & data$T4253700 <= 69.0] <- 60.0
data$T4253700[70.0 <= data$T4253700 & data$T4253700 <= 79.0] <- 70.0
data$T4253700[80.0 <= data$T4253700 & data$T4253700 <= 89.0] <- 80.0
data$T4253700[90.0 <= data$T4253700 & data$T4253700 <= 99.0] <- 90.0
data$T4253700[100.0 <= data$T4253700 & data$T4253700 <= 9.9999999E7] <- 100.0
data$T4253700 <- factor(data$T4253700,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T4253800[1.0 <= data$T4253800 & data$T4253800 <= 9.0] <- 1.0
data$T4253800[10.0 <= data$T4253800 & data$T4253800 <= 19.0] <- 10.0
data$T4253800[20.0 <= data$T4253800 & data$T4253800 <= 29.0] <- 20.0
data$T4253800[30.0 <= data$T4253800 & data$T4253800 <= 39.0] <- 30.0
data$T4253800[40.0 <= data$T4253800 & data$T4253800 <= 49.0] <- 40.0
data$T4253800[50.0 <= data$T4253800 & data$T4253800 <= 59.0] <- 50.0
data$T4253800[60.0 <= data$T4253800 & data$T4253800 <= 69.0] <- 60.0
data$T4253800[70.0 <= data$T4253800 & data$T4253800 <= 79.0] <- 70.0
data$T4253800[80.0 <= data$T4253800 & data$T4253800 <= 89.0] <- 80.0
data$T4253800[90.0 <= data$T4253800 & data$T4253800 <= 99.0] <- 90.0
data$T4253800[100.0 <= data$T4253800 & data$T4253800 <= 9.9999999E7] <- 100.0
data$T4253800 <- factor(data$T4253800,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T4253900[1.0 <= data$T4253900 & data$T4253900 <= 9.0] <- 1.0
data$T4253900[10.0 <= data$T4253900 & data$T4253900 <= 19.0] <- 10.0
data$T4253900[20.0 <= data$T4253900 & data$T4253900 <= 29.0] <- 20.0
data$T4253900[30.0 <= data$T4253900 & data$T4253900 <= 39.0] <- 30.0
data$T4253900[40.0 <= data$T4253900 & data$T4253900 <= 49.0] <- 40.0
data$T4253900[50.0 <= data$T4253900 & data$T4253900 <= 59.0] <- 50.0
data$T4253900[60.0 <= data$T4253900 & data$T4253900 <= 69.0] <- 60.0
data$T4253900[70.0 <= data$T4253900 & data$T4253900 <= 79.0] <- 70.0
data$T4253900[80.0 <= data$T4253900 & data$T4253900 <= 89.0] <- 80.0
data$T4253900[90.0 <= data$T4253900 & data$T4253900 <= 99.0] <- 90.0
data$T4253900[100.0 <= data$T4253900 & data$T4253900 <= 9.9999999E7] <- 100.0
data$T4253900 <- factor(data$T4253900,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T4254500[1.0 <= data$T4254500 & data$T4254500 <= 4.0] <- 1.0
data$T4254500[5.0 <= data$T4254500 & data$T4254500 <= 9.0] <- 5.0
data$T4254500[10.0 <= data$T4254500 & data$T4254500 <= 14.0] <- 10.0
data$T4254500[15.0 <= data$T4254500 & data$T4254500 <= 19.0] <- 15.0
data$T4254500[20.0 <= data$T4254500 & data$T4254500 <= 24.0] <- 20.0
data$T4254500[25.0 <= data$T4254500 & data$T4254500 <= 29.0] <- 25.0
data$T4254500[30.0 <= data$T4254500 & data$T4254500 <= 34.0] <- 30.0
data$T4254500[35.0 <= data$T4254500 & data$T4254500 <= 39.0] <- 35.0
data$T4254500[40.0 <= data$T4254500 & data$T4254500 <= 44.0] <- 40.0
data$T4254500[45.0 <= data$T4254500 & data$T4254500 <= 49.0] <- 45.0
data$T4254500[50.0 <= data$T4254500 & data$T4254500 <= 9.9999999E7] <- 50.0
data$T4254500 <- factor(data$T4254500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T4254600[1.0 <= data$T4254600 & data$T4254600 <= 4.0] <- 1.0
data$T4254600[5.0 <= data$T4254600 & data$T4254600 <= 9.0] <- 5.0
data$T4254600[10.0 <= data$T4254600 & data$T4254600 <= 14.0] <- 10.0
data$T4254600[15.0 <= data$T4254600 & data$T4254600 <= 19.0] <- 15.0
data$T4254600[20.0 <= data$T4254600 & data$T4254600 <= 24.0] <- 20.0
data$T4254600[25.0 <= data$T4254600 & data$T4254600 <= 29.0] <- 25.0
data$T4254600[30.0 <= data$T4254600 & data$T4254600 <= 34.0] <- 30.0
data$T4254600[35.0 <= data$T4254600 & data$T4254600 <= 39.0] <- 35.0
data$T4254600[40.0 <= data$T4254600 & data$T4254600 <= 44.0] <- 40.0
data$T4254600[45.0 <= data$T4254600 & data$T4254600 <= 49.0] <- 45.0
data$T4254600[50.0 <= data$T4254600 & data$T4254600 <= 9.9999999E7] <- 50.0
data$T4254600 <- factor(data$T4254600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T4254700[1.0 <= data$T4254700 & data$T4254700 <= 4.0] <- 1.0
data$T4254700[5.0 <= data$T4254700 & data$T4254700 <= 9.0] <- 5.0
data$T4254700[10.0 <= data$T4254700 & data$T4254700 <= 14.0] <- 10.0
data$T4254700[15.0 <= data$T4254700 & data$T4254700 <= 19.0] <- 15.0
data$T4254700[20.0 <= data$T4254700 & data$T4254700 <= 24.0] <- 20.0
data$T4254700[25.0 <= data$T4254700 & data$T4254700 <= 29.0] <- 25.0
data$T4254700[30.0 <= data$T4254700 & data$T4254700 <= 34.0] <- 30.0
data$T4254700[35.0 <= data$T4254700 & data$T4254700 <= 39.0] <- 35.0
data$T4254700[40.0 <= data$T4254700 & data$T4254700 <= 44.0] <- 40.0
data$T4254700[45.0 <= data$T4254700 & data$T4254700 <= 49.0] <- 45.0
data$T4254700[50.0 <= data$T4254700 & data$T4254700 <= 9.9999999E7] <- 50.0
data$T4254700 <- factor(data$T4254700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T4254800[1.0 <= data$T4254800 & data$T4254800 <= 4.0] <- 1.0
data$T4254800[5.0 <= data$T4254800 & data$T4254800 <= 9.0] <- 5.0
data$T4254800[10.0 <= data$T4254800 & data$T4254800 <= 14.0] <- 10.0
data$T4254800[15.0 <= data$T4254800 & data$T4254800 <= 19.0] <- 15.0
data$T4254800[20.0 <= data$T4254800 & data$T4254800 <= 24.0] <- 20.0
data$T4254800[25.0 <= data$T4254800 & data$T4254800 <= 29.0] <- 25.0
data$T4254800[30.0 <= data$T4254800 & data$T4254800 <= 34.0] <- 30.0
data$T4254800[35.0 <= data$T4254800 & data$T4254800 <= 39.0] <- 35.0
data$T4254800[40.0 <= data$T4254800 & data$T4254800 <= 44.0] <- 40.0
data$T4254800[45.0 <= data$T4254800 & data$T4254800 <= 49.0] <- 45.0
data$T4254800[50.0 <= data$T4254800 & data$T4254800 <= 9.9999999E7] <- 50.0
data$T4254800 <- factor(data$T4254800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T4254900[1.0 <= data$T4254900 & data$T4254900 <= 4.0] <- 1.0
data$T4254900[5.0 <= data$T4254900 & data$T4254900 <= 9.0] <- 5.0
data$T4254900[10.0 <= data$T4254900 & data$T4254900 <= 14.0] <- 10.0
data$T4254900[15.0 <= data$T4254900 & data$T4254900 <= 19.0] <- 15.0
data$T4254900[20.0 <= data$T4254900 & data$T4254900 <= 24.0] <- 20.0
data$T4254900[25.0 <= data$T4254900 & data$T4254900 <= 29.0] <- 25.0
data$T4254900[30.0 <= data$T4254900 & data$T4254900 <= 34.0] <- 30.0
data$T4254900[35.0 <= data$T4254900 & data$T4254900 <= 39.0] <- 35.0
data$T4254900[40.0 <= data$T4254900 & data$T4254900 <= 44.0] <- 40.0
data$T4254900[45.0 <= data$T4254900 & data$T4254900 <= 49.0] <- 45.0
data$T4254900[50.0 <= data$T4254900 & data$T4254900 <= 9.9999999E7] <- 50.0
data$T4254900 <- factor(data$T4254900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T4255000[1.0 <= data$T4255000 & data$T4255000 <= 4.0] <- 1.0
data$T4255000[5.0 <= data$T4255000 & data$T4255000 <= 9.0] <- 5.0
data$T4255000[10.0 <= data$T4255000 & data$T4255000 <= 14.0] <- 10.0
data$T4255000[15.0 <= data$T4255000 & data$T4255000 <= 19.0] <- 15.0
data$T4255000[20.0 <= data$T4255000 & data$T4255000 <= 24.0] <- 20.0
data$T4255000[25.0 <= data$T4255000 & data$T4255000 <= 29.0] <- 25.0
data$T4255000[30.0 <= data$T4255000 & data$T4255000 <= 34.0] <- 30.0
data$T4255000[35.0 <= data$T4255000 & data$T4255000 <= 39.0] <- 35.0
data$T4255000[40.0 <= data$T4255000 & data$T4255000 <= 44.0] <- 40.0
data$T4255000[45.0 <= data$T4255000 & data$T4255000 <= 49.0] <- 45.0
data$T4255000[50.0 <= data$T4255000 & data$T4255000 <= 9.9999999E7] <- 50.0
data$T4255000 <- factor(data$T4255000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T4255100[1.0 <= data$T4255100 & data$T4255100 <= 4.0] <- 1.0
data$T4255100[5.0 <= data$T4255100 & data$T4255100 <= 9.0] <- 5.0
data$T4255100[10.0 <= data$T4255100 & data$T4255100 <= 14.0] <- 10.0
data$T4255100[15.0 <= data$T4255100 & data$T4255100 <= 19.0] <- 15.0
data$T4255100[20.0 <= data$T4255100 & data$T4255100 <= 24.0] <- 20.0
data$T4255100[25.0 <= data$T4255100 & data$T4255100 <= 29.0] <- 25.0
data$T4255100[30.0 <= data$T4255100 & data$T4255100 <= 34.0] <- 30.0
data$T4255100[35.0 <= data$T4255100 & data$T4255100 <= 39.0] <- 35.0
data$T4255100[40.0 <= data$T4255100 & data$T4255100 <= 44.0] <- 40.0
data$T4255100[45.0 <= data$T4255100 & data$T4255100 <= 49.0] <- 45.0
data$T4255100[50.0 <= data$T4255100 & data$T4255100 <= 9.9999999E7] <- 50.0
data$T4255100 <- factor(data$T4255100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T4255200[1.0 <= data$T4255200 & data$T4255200 <= 4.0] <- 1.0
data$T4255200[5.0 <= data$T4255200 & data$T4255200 <= 9.0] <- 5.0
data$T4255200[10.0 <= data$T4255200 & data$T4255200 <= 14.0] <- 10.0
data$T4255200[15.0 <= data$T4255200 & data$T4255200 <= 19.0] <- 15.0
data$T4255200[20.0 <= data$T4255200 & data$T4255200 <= 24.0] <- 20.0
data$T4255200[25.0 <= data$T4255200 & data$T4255200 <= 29.0] <- 25.0
data$T4255200[30.0 <= data$T4255200 & data$T4255200 <= 34.0] <- 30.0
data$T4255200[35.0 <= data$T4255200 & data$T4255200 <= 39.0] <- 35.0
data$T4255200[40.0 <= data$T4255200 & data$T4255200 <= 44.0] <- 40.0
data$T4255200[45.0 <= data$T4255200 & data$T4255200 <= 49.0] <- 45.0
data$T4255200[50.0 <= data$T4255200 & data$T4255200 <= 9.9999999E7] <- 50.0
data$T4255200 <- factor(data$T4255200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T4255300[1.0 <= data$T4255300 & data$T4255300 <= 4.0] <- 1.0
data$T4255300[5.0 <= data$T4255300 & data$T4255300 <= 9.0] <- 5.0
data$T4255300[10.0 <= data$T4255300 & data$T4255300 <= 14.0] <- 10.0
data$T4255300[15.0 <= data$T4255300 & data$T4255300 <= 19.0] <- 15.0
data$T4255300[20.0 <= data$T4255300 & data$T4255300 <= 24.0] <- 20.0
data$T4255300[25.0 <= data$T4255300 & data$T4255300 <= 29.0] <- 25.0
data$T4255300[30.0 <= data$T4255300 & data$T4255300 <= 34.0] <- 30.0
data$T4255300[35.0 <= data$T4255300 & data$T4255300 <= 39.0] <- 35.0
data$T4255300[40.0 <= data$T4255300 & data$T4255300 <= 44.0] <- 40.0
data$T4255300[45.0 <= data$T4255300 & data$T4255300 <= 49.0] <- 45.0
data$T4255300[50.0 <= data$T4255300 & data$T4255300 <= 9.9999999E7] <- 50.0
data$T4255300 <- factor(data$T4255300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T4255400[1.0 <= data$T4255400 & data$T4255400 <= 4.0] <- 1.0
data$T4255400[5.0 <= data$T4255400 & data$T4255400 <= 9.0] <- 5.0
data$T4255400[10.0 <= data$T4255400 & data$T4255400 <= 14.0] <- 10.0
data$T4255400[15.0 <= data$T4255400 & data$T4255400 <= 19.0] <- 15.0
data$T4255400[20.0 <= data$T4255400 & data$T4255400 <= 24.0] <- 20.0
data$T4255400[25.0 <= data$T4255400 & data$T4255400 <= 29.0] <- 25.0
data$T4255400[30.0 <= data$T4255400 & data$T4255400 <= 34.0] <- 30.0
data$T4255400[35.0 <= data$T4255400 & data$T4255400 <= 39.0] <- 35.0
data$T4255400[40.0 <= data$T4255400 & data$T4255400 <= 44.0] <- 40.0
data$T4255400[45.0 <= data$T4255400 & data$T4255400 <= 49.0] <- 45.0
data$T4255400[50.0 <= data$T4255400 & data$T4255400 <= 9.9999999E7] <- 50.0
data$T4255400 <- factor(data$T4255400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T5019700[1.0 <= data$T5019700 & data$T5019700 <= 499.0] <- 1.0
data$T5019700[500.0 <= data$T5019700 & data$T5019700 <= 999.0] <- 500.0
data$T5019700[1000.0 <= data$T5019700 & data$T5019700 <= 1499.0] <- 1000.0
data$T5019700[1500.0 <= data$T5019700 & data$T5019700 <= 1999.0] <- 1500.0
data$T5019700[2000.0 <= data$T5019700 & data$T5019700 <= 2499.0] <- 2000.0
data$T5019700[2500.0 <= data$T5019700 & data$T5019700 <= 2999.0] <- 2500.0
data$T5019700[3000.0 <= data$T5019700 & data$T5019700 <= 3499.0] <- 3000.0
data$T5019700[3500.0 <= data$T5019700 & data$T5019700 <= 3999.0] <- 3500.0
data$T5019700[4000.0 <= data$T5019700 & data$T5019700 <= 4499.0] <- 4000.0
data$T5019700[4500.0 <= data$T5019700 & data$T5019700 <= 4999.0] <- 4500.0
data$T5019700[5000.0 <= data$T5019700 & data$T5019700 <= 9.9999999E7] <- 5000.0
data$T5019700 <- factor(data$T5019700,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499: .01-4.99",
"500 TO 999: 5.00-9.99",
"1000 TO 1499: 10.00-14.99",
"1500 TO 1999: 15.00-19.99",
"2000 TO 2499: 20.00-24.99",
"2500 TO 2999: 25.00-29.99",
"3000 TO 3499: 30.00-34.99",
"3500 TO 3999: 35.00-39.99",
"4000 TO 4499: 40.00-44.99",
"4500 TO 4999: 45.00-49.99",
"5000 TO 99999999: 50.00+"))
data$T5019900[1.0 <= data$T5019900 & data$T5019900 <= 499.0] <- 1.0
data$T5019900[500.0 <= data$T5019900 & data$T5019900 <= 999.0] <- 500.0
data$T5019900[1000.0 <= data$T5019900 & data$T5019900 <= 1499.0] <- 1000.0
data$T5019900[1500.0 <= data$T5019900 & data$T5019900 <= 1999.0] <- 1500.0
data$T5019900[2000.0 <= data$T5019900 & data$T5019900 <= 2499.0] <- 2000.0
data$T5019900[2500.0 <= data$T5019900 & data$T5019900 <= 2999.0] <- 2500.0
data$T5019900[3000.0 <= data$T5019900 & data$T5019900 <= 3499.0] <- 3000.0
data$T5019900[3500.0 <= data$T5019900 & data$T5019900 <= 3999.0] <- 3500.0
data$T5019900[4000.0 <= data$T5019900 & data$T5019900 <= 4499.0] <- 4000.0
data$T5019900[4500.0 <= data$T5019900 & data$T5019900 <= 4999.0] <- 4500.0
data$T5019900[5000.0 <= data$T5019900 & data$T5019900 <= 9.9999999E7] <- 5000.0
data$T5019900 <- factor(data$T5019900,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499: .01-4.99",
"500 TO 999: 5.00-9.99",
"1000 TO 1499: 10.00-14.99",
"1500 TO 1999: 15.00-19.99",
"2000 TO 2499: 20.00-24.99",
"2500 TO 2999: 25.00-29.99",
"3000 TO 3499: 30.00-34.99",
"3500 TO 3999: 35.00-39.99",
"4000 TO 4499: 40.00-44.99",
"4500 TO 4999: 45.00-49.99",
"5000 TO 99999999: 50.00+"))
data$T5020100[1.0 <= data$T5020100 & data$T5020100 <= 499.0] <- 1.0
data$T5020100[500.0 <= data$T5020100 & data$T5020100 <= 999.0] <- 500.0
data$T5020100[1000.0 <= data$T5020100 & data$T5020100 <= 1499.0] <- 1000.0
data$T5020100[1500.0 <= data$T5020100 & data$T5020100 <= 1999.0] <- 1500.0
data$T5020100[2000.0 <= data$T5020100 & data$T5020100 <= 2499.0] <- 2000.0
data$T5020100[2500.0 <= data$T5020100 & data$T5020100 <= 2999.0] <- 2500.0
data$T5020100[3000.0 <= data$T5020100 & data$T5020100 <= 3499.0] <- 3000.0
data$T5020100[3500.0 <= data$T5020100 & data$T5020100 <= 3999.0] <- 3500.0
data$T5020100[4000.0 <= data$T5020100 & data$T5020100 <= 4499.0] <- 4000.0
data$T5020100[4500.0 <= data$T5020100 & data$T5020100 <= 4999.0] <- 4500.0
data$T5020100[5000.0 <= data$T5020100 & data$T5020100 <= 9.9999999E7] <- 5000.0
data$T5020100 <- factor(data$T5020100,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499: .01-4.99",
"500 TO 999: 5.00-9.99",
"1000 TO 1499: 10.00-14.99",
"1500 TO 1999: 15.00-19.99",
"2000 TO 2499: 20.00-24.99",
"2500 TO 2999: 25.00-29.99",
"3000 TO 3499: 30.00-34.99",
"3500 TO 3999: 35.00-39.99",
"4000 TO 4499: 40.00-44.99",
"4500 TO 4999: 45.00-49.99",
"5000 TO 99999999: 50.00+"))
data$T5020300[1.0 <= data$T5020300 & data$T5020300 <= 499.0] <- 1.0
data$T5020300[500.0 <= data$T5020300 & data$T5020300 <= 999.0] <- 500.0
data$T5020300[1000.0 <= data$T5020300 & data$T5020300 <= 1499.0] <- 1000.0
data$T5020300[1500.0 <= data$T5020300 & data$T5020300 <= 1999.0] <- 1500.0
data$T5020300[2000.0 <= data$T5020300 & data$T5020300 <= 2499.0] <- 2000.0
data$T5020300[2500.0 <= data$T5020300 & data$T5020300 <= 2999.0] <- 2500.0
data$T5020300[3000.0 <= data$T5020300 & data$T5020300 <= 3499.0] <- 3000.0
data$T5020300[3500.0 <= data$T5020300 & data$T5020300 <= 3999.0] <- 3500.0
data$T5020300[4000.0 <= data$T5020300 & data$T5020300 <= 4499.0] <- 4000.0
data$T5020300[4500.0 <= data$T5020300 & data$T5020300 <= 4999.0] <- 4500.0
data$T5020300[5000.0 <= data$T5020300 & data$T5020300 <= 9.9999999E7] <- 5000.0
data$T5020300 <- factor(data$T5020300,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499: .01-4.99",
"500 TO 999: 5.00-9.99",
"1000 TO 1499: 10.00-14.99",
"1500 TO 1999: 15.00-19.99",
"2000 TO 2499: 20.00-24.99",
"2500 TO 2999: 25.00-29.99",
"3000 TO 3499: 30.00-34.99",
"3500 TO 3999: 35.00-39.99",
"4000 TO 4499: 40.00-44.99",
"4500 TO 4999: 45.00-49.99",
"5000 TO 99999999: 50.00+"))
data$T5020500[1.0 <= data$T5020500 & data$T5020500 <= 499.0] <- 1.0
data$T5020500[500.0 <= data$T5020500 & data$T5020500 <= 999.0] <- 500.0
data$T5020500[1000.0 <= data$T5020500 & data$T5020500 <= 1499.0] <- 1000.0
data$T5020500[1500.0 <= data$T5020500 & data$T5020500 <= 1999.0] <- 1500.0
data$T5020500[2000.0 <= data$T5020500 & data$T5020500 <= 2499.0] <- 2000.0
data$T5020500[2500.0 <= data$T5020500 & data$T5020500 <= 2999.0] <- 2500.0
data$T5020500[3000.0 <= data$T5020500 & data$T5020500 <= 3499.0] <- 3000.0
data$T5020500[3500.0 <= data$T5020500 & data$T5020500 <= 3999.0] <- 3500.0
data$T5020500[4000.0 <= data$T5020500 & data$T5020500 <= 4499.0] <- 4000.0
data$T5020500[4500.0 <= data$T5020500 & data$T5020500 <= 4999.0] <- 4500.0
data$T5020500[5000.0 <= data$T5020500 & data$T5020500 <= 9.9999999E7] <- 5000.0
data$T5020500 <- factor(data$T5020500,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499: .01-4.99",
"500 TO 999: 5.00-9.99",
"1000 TO 1499: 10.00-14.99",
"1500 TO 1999: 15.00-19.99",
"2000 TO 2499: 20.00-24.99",
"2500 TO 2999: 25.00-29.99",
"3000 TO 3499: 30.00-34.99",
"3500 TO 3999: 35.00-39.99",
"4000 TO 4499: 40.00-44.99",
"4500 TO 4999: 45.00-49.99",
"5000 TO 99999999: 50.00+"))
data$T5023400 <- factor(data$T5023400,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$T5176100 <- factor(data$T5176100,
levels=c(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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"UNGRADED"))
data$T5226800[1.0 <= data$T5226800 & data$T5226800 <= 9.0] <- 1.0
data$T5226800[10.0 <= data$T5226800 & data$T5226800 <= 19.0] <- 10.0
data$T5226800[20.0 <= data$T5226800 & data$T5226800 <= 29.0] <- 20.0
data$T5226800[30.0 <= data$T5226800 & data$T5226800 <= 39.0] <- 30.0
data$T5226800[40.0 <= data$T5226800 & data$T5226800 <= 49.0] <- 40.0
data$T5226800[50.0 <= data$T5226800 & data$T5226800 <= 59.0] <- 50.0
data$T5226800[60.0 <= data$T5226800 & data$T5226800 <= 69.0] <- 60.0
data$T5226800[70.0 <= data$T5226800 & data$T5226800 <= 79.0] <- 70.0
data$T5226800[80.0 <= data$T5226800 & data$T5226800 <= 89.0] <- 80.0
data$T5226800[90.0 <= data$T5226800 & data$T5226800 <= 99.0] <- 90.0
data$T5226800[100.0 <= data$T5226800 & data$T5226800 <= 9.9999999E7] <- 100.0
data$T5226800 <- factor(data$T5226800,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T5226900[1.0 <= data$T5226900 & data$T5226900 <= 9.0] <- 1.0
data$T5226900[10.0 <= data$T5226900 & data$T5226900 <= 19.0] <- 10.0
data$T5226900[20.0 <= data$T5226900 & data$T5226900 <= 29.0] <- 20.0
data$T5226900[30.0 <= data$T5226900 & data$T5226900 <= 39.0] <- 30.0
data$T5226900[40.0 <= data$T5226900 & data$T5226900 <= 49.0] <- 40.0
data$T5226900[50.0 <= data$T5226900 & data$T5226900 <= 59.0] <- 50.0
data$T5226900[60.0 <= data$T5226900 & data$T5226900 <= 69.0] <- 60.0
data$T5226900[70.0 <= data$T5226900 & data$T5226900 <= 79.0] <- 70.0
data$T5226900[80.0 <= data$T5226900 & data$T5226900 <= 89.0] <- 80.0
data$T5226900[90.0 <= data$T5226900 & data$T5226900 <= 99.0] <- 90.0
data$T5226900[100.0 <= data$T5226900 & data$T5226900 <= 9.9999999E7] <- 100.0
data$T5226900 <- factor(data$T5226900,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T5227000[1.0 <= data$T5227000 & data$T5227000 <= 9.0] <- 1.0
data$T5227000[10.0 <= data$T5227000 & data$T5227000 <= 19.0] <- 10.0
data$T5227000[20.0 <= data$T5227000 & data$T5227000 <= 29.0] <- 20.0
data$T5227000[30.0 <= data$T5227000 & data$T5227000 <= 39.0] <- 30.0
data$T5227000[40.0 <= data$T5227000 & data$T5227000 <= 49.0] <- 40.0
data$T5227000[50.0 <= data$T5227000 & data$T5227000 <= 59.0] <- 50.0
data$T5227000[60.0 <= data$T5227000 & data$T5227000 <= 69.0] <- 60.0
data$T5227000[70.0 <= data$T5227000 & data$T5227000 <= 79.0] <- 70.0
data$T5227000[80.0 <= data$T5227000 & data$T5227000 <= 89.0] <- 80.0
data$T5227000[90.0 <= data$T5227000 & data$T5227000 <= 99.0] <- 90.0
data$T5227000[100.0 <= data$T5227000 & data$T5227000 <= 9.9999999E7] <- 100.0
data$T5227000 <- factor(data$T5227000,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T5227100[1.0 <= data$T5227100 & data$T5227100 <= 9.0] <- 1.0
data$T5227100[10.0 <= data$T5227100 & data$T5227100 <= 19.0] <- 10.0
data$T5227100[20.0 <= data$T5227100 & data$T5227100 <= 29.0] <- 20.0
data$T5227100[30.0 <= data$T5227100 & data$T5227100 <= 39.0] <- 30.0
data$T5227100[40.0 <= data$T5227100 & data$T5227100 <= 49.0] <- 40.0
data$T5227100[50.0 <= data$T5227100 & data$T5227100 <= 59.0] <- 50.0
data$T5227100[60.0 <= data$T5227100 & data$T5227100 <= 69.0] <- 60.0
data$T5227100[70.0 <= data$T5227100 & data$T5227100 <= 79.0] <- 70.0
data$T5227100[80.0 <= data$T5227100 & data$T5227100 <= 89.0] <- 80.0
data$T5227100[90.0 <= data$T5227100 & data$T5227100 <= 99.0] <- 90.0
data$T5227100[100.0 <= data$T5227100 & data$T5227100 <= 9.9999999E7] <- 100.0
data$T5227100 <- factor(data$T5227100,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T5227200[1.0 <= data$T5227200 & data$T5227200 <= 9.0] <- 1.0
data$T5227200[10.0 <= data$T5227200 & data$T5227200 <= 19.0] <- 10.0
data$T5227200[20.0 <= data$T5227200 & data$T5227200 <= 29.0] <- 20.0
data$T5227200[30.0 <= data$T5227200 & data$T5227200 <= 39.0] <- 30.0
data$T5227200[40.0 <= data$T5227200 & data$T5227200 <= 49.0] <- 40.0
data$T5227200[50.0 <= data$T5227200 & data$T5227200 <= 59.0] <- 50.0
data$T5227200[60.0 <= data$T5227200 & data$T5227200 <= 69.0] <- 60.0
data$T5227200[70.0 <= data$T5227200 & data$T5227200 <= 79.0] <- 70.0
data$T5227200[80.0 <= data$T5227200 & data$T5227200 <= 89.0] <- 80.0
data$T5227200[90.0 <= data$T5227200 & data$T5227200 <= 99.0] <- 90.0
data$T5227200[100.0 <= data$T5227200 & data$T5227200 <= 9.9999999E7] <- 100.0
data$T5227200 <- factor(data$T5227200,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T5227800[1.0 <= data$T5227800 & data$T5227800 <= 4.0] <- 1.0
data$T5227800[5.0 <= data$T5227800 & data$T5227800 <= 9.0] <- 5.0
data$T5227800[10.0 <= data$T5227800 & data$T5227800 <= 14.0] <- 10.0
data$T5227800[15.0 <= data$T5227800 & data$T5227800 <= 19.0] <- 15.0
data$T5227800[20.0 <= data$T5227800 & data$T5227800 <= 24.0] <- 20.0
data$T5227800[25.0 <= data$T5227800 & data$T5227800 <= 29.0] <- 25.0
data$T5227800[30.0 <= data$T5227800 & data$T5227800 <= 34.0] <- 30.0
data$T5227800[35.0 <= data$T5227800 & data$T5227800 <= 39.0] <- 35.0
data$T5227800[40.0 <= data$T5227800 & data$T5227800 <= 44.0] <- 40.0
data$T5227800[45.0 <= data$T5227800 & data$T5227800 <= 49.0] <- 45.0
data$T5227800[50.0 <= data$T5227800 & data$T5227800 <= 9.9999999E7] <- 50.0
data$T5227800 <- factor(data$T5227800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T5227900[1.0 <= data$T5227900 & data$T5227900 <= 4.0] <- 1.0
data$T5227900[5.0 <= data$T5227900 & data$T5227900 <= 9.0] <- 5.0
data$T5227900[10.0 <= data$T5227900 & data$T5227900 <= 14.0] <- 10.0
data$T5227900[15.0 <= data$T5227900 & data$T5227900 <= 19.0] <- 15.0
data$T5227900[20.0 <= data$T5227900 & data$T5227900 <= 24.0] <- 20.0
data$T5227900[25.0 <= data$T5227900 & data$T5227900 <= 29.0] <- 25.0
data$T5227900[30.0 <= data$T5227900 & data$T5227900 <= 34.0] <- 30.0
data$T5227900[35.0 <= data$T5227900 & data$T5227900 <= 39.0] <- 35.0
data$T5227900[40.0 <= data$T5227900 & data$T5227900 <= 44.0] <- 40.0
data$T5227900[45.0 <= data$T5227900 & data$T5227900 <= 49.0] <- 45.0
data$T5227900[50.0 <= data$T5227900 & data$T5227900 <= 9.9999999E7] <- 50.0
data$T5227900 <- factor(data$T5227900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T5228000[1.0 <= data$T5228000 & data$T5228000 <= 4.0] <- 1.0
data$T5228000[5.0 <= data$T5228000 & data$T5228000 <= 9.0] <- 5.0
data$T5228000[10.0 <= data$T5228000 & data$T5228000 <= 14.0] <- 10.0
data$T5228000[15.0 <= data$T5228000 & data$T5228000 <= 19.0] <- 15.0
data$T5228000[20.0 <= data$T5228000 & data$T5228000 <= 24.0] <- 20.0
data$T5228000[25.0 <= data$T5228000 & data$T5228000 <= 29.0] <- 25.0
data$T5228000[30.0 <= data$T5228000 & data$T5228000 <= 34.0] <- 30.0
data$T5228000[35.0 <= data$T5228000 & data$T5228000 <= 39.0] <- 35.0
data$T5228000[40.0 <= data$T5228000 & data$T5228000 <= 44.0] <- 40.0
data$T5228000[45.0 <= data$T5228000 & data$T5228000 <= 49.0] <- 45.0
data$T5228000[50.0 <= data$T5228000 & data$T5228000 <= 9.9999999E7] <- 50.0
data$T5228000 <- factor(data$T5228000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T5228100[1.0 <= data$T5228100 & data$T5228100 <= 4.0] <- 1.0
data$T5228100[5.0 <= data$T5228100 & data$T5228100 <= 9.0] <- 5.0
data$T5228100[10.0 <= data$T5228100 & data$T5228100 <= 14.0] <- 10.0
data$T5228100[15.0 <= data$T5228100 & data$T5228100 <= 19.0] <- 15.0
data$T5228100[20.0 <= data$T5228100 & data$T5228100 <= 24.0] <- 20.0
data$T5228100[25.0 <= data$T5228100 & data$T5228100 <= 29.0] <- 25.0
data$T5228100[30.0 <= data$T5228100 & data$T5228100 <= 34.0] <- 30.0
data$T5228100[35.0 <= data$T5228100 & data$T5228100 <= 39.0] <- 35.0
data$T5228100[40.0 <= data$T5228100 & data$T5228100 <= 44.0] <- 40.0
data$T5228100[45.0 <= data$T5228100 & data$T5228100 <= 49.0] <- 45.0
data$T5228100[50.0 <= data$T5228100 & data$T5228100 <= 9.9999999E7] <- 50.0
data$T5228100 <- factor(data$T5228100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T5228200[1.0 <= data$T5228200 & data$T5228200 <= 4.0] <- 1.0
data$T5228200[5.0 <= data$T5228200 & data$T5228200 <= 9.0] <- 5.0
data$T5228200[10.0 <= data$T5228200 & data$T5228200 <= 14.0] <- 10.0
data$T5228200[15.0 <= data$T5228200 & data$T5228200 <= 19.0] <- 15.0
data$T5228200[20.0 <= data$T5228200 & data$T5228200 <= 24.0] <- 20.0
data$T5228200[25.0 <= data$T5228200 & data$T5228200 <= 29.0] <- 25.0
data$T5228200[30.0 <= data$T5228200 & data$T5228200 <= 34.0] <- 30.0
data$T5228200[35.0 <= data$T5228200 & data$T5228200 <= 39.0] <- 35.0
data$T5228200[40.0 <= data$T5228200 & data$T5228200 <= 44.0] <- 40.0
data$T5228200[45.0 <= data$T5228200 & data$T5228200 <= 49.0] <- 45.0
data$T5228200[50.0 <= data$T5228200 & data$T5228200 <= 9.9999999E7] <- 50.0
data$T5228200 <- factor(data$T5228200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T5228300[1.0 <= data$T5228300 & data$T5228300 <= 4.0] <- 1.0
data$T5228300[5.0 <= data$T5228300 & data$T5228300 <= 9.0] <- 5.0
data$T5228300[10.0 <= data$T5228300 & data$T5228300 <= 14.0] <- 10.0
data$T5228300[15.0 <= data$T5228300 & data$T5228300 <= 19.0] <- 15.0
data$T5228300[20.0 <= data$T5228300 & data$T5228300 <= 24.0] <- 20.0
data$T5228300[25.0 <= data$T5228300 & data$T5228300 <= 29.0] <- 25.0
data$T5228300[30.0 <= data$T5228300 & data$T5228300 <= 34.0] <- 30.0
data$T5228300[35.0 <= data$T5228300 & data$T5228300 <= 39.0] <- 35.0
data$T5228300[40.0 <= data$T5228300 & data$T5228300 <= 44.0] <- 40.0
data$T5228300[45.0 <= data$T5228300 & data$T5228300 <= 49.0] <- 45.0
data$T5228300[50.0 <= data$T5228300 & data$T5228300 <= 9.9999999E7] <- 50.0
data$T5228300 <- factor(data$T5228300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T5228400[1.0 <= data$T5228400 & data$T5228400 <= 4.0] <- 1.0
data$T5228400[5.0 <= data$T5228400 & data$T5228400 <= 9.0] <- 5.0
data$T5228400[10.0 <= data$T5228400 & data$T5228400 <= 14.0] <- 10.0
data$T5228400[15.0 <= data$T5228400 & data$T5228400 <= 19.0] <- 15.0
data$T5228400[20.0 <= data$T5228400 & data$T5228400 <= 24.0] <- 20.0
data$T5228400[25.0 <= data$T5228400 & data$T5228400 <= 29.0] <- 25.0
data$T5228400[30.0 <= data$T5228400 & data$T5228400 <= 34.0] <- 30.0
data$T5228400[35.0 <= data$T5228400 & data$T5228400 <= 39.0] <- 35.0
data$T5228400[40.0 <= data$T5228400 & data$T5228400 <= 44.0] <- 40.0
data$T5228400[45.0 <= data$T5228400 & data$T5228400 <= 49.0] <- 45.0
data$T5228400[50.0 <= data$T5228400 & data$T5228400 <= 9.9999999E7] <- 50.0
data$T5228400 <- factor(data$T5228400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T5228500[1.0 <= data$T5228500 & data$T5228500 <= 4.0] <- 1.0
data$T5228500[5.0 <= data$T5228500 & data$T5228500 <= 9.0] <- 5.0
data$T5228500[10.0 <= data$T5228500 & data$T5228500 <= 14.0] <- 10.0
data$T5228500[15.0 <= data$T5228500 & data$T5228500 <= 19.0] <- 15.0
data$T5228500[20.0 <= data$T5228500 & data$T5228500 <= 24.0] <- 20.0
data$T5228500[25.0 <= data$T5228500 & data$T5228500 <= 29.0] <- 25.0
data$T5228500[30.0 <= data$T5228500 & data$T5228500 <= 34.0] <- 30.0
data$T5228500[35.0 <= data$T5228500 & data$T5228500 <= 39.0] <- 35.0
data$T5228500[40.0 <= data$T5228500 & data$T5228500 <= 44.0] <- 40.0
data$T5228500[45.0 <= data$T5228500 & data$T5228500 <= 49.0] <- 45.0
data$T5228500[50.0 <= data$T5228500 & data$T5228500 <= 9.9999999E7] <- 50.0
data$T5228500 <- factor(data$T5228500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T5228600[1.0 <= data$T5228600 & data$T5228600 <= 4.0] <- 1.0
data$T5228600[5.0 <= data$T5228600 & data$T5228600 <= 9.0] <- 5.0
data$T5228600[10.0 <= data$T5228600 & data$T5228600 <= 14.0] <- 10.0
data$T5228600[15.0 <= data$T5228600 & data$T5228600 <= 19.0] <- 15.0
data$T5228600[20.0 <= data$T5228600 & data$T5228600 <= 24.0] <- 20.0
data$T5228600[25.0 <= data$T5228600 & data$T5228600 <= 29.0] <- 25.0
data$T5228600[30.0 <= data$T5228600 & data$T5228600 <= 34.0] <- 30.0
data$T5228600[35.0 <= data$T5228600 & data$T5228600 <= 39.0] <- 35.0
data$T5228600[40.0 <= data$T5228600 & data$T5228600 <= 44.0] <- 40.0
data$T5228600[45.0 <= data$T5228600 & data$T5228600 <= 49.0] <- 45.0
data$T5228600[50.0 <= data$T5228600 & data$T5228600 <= 9.9999999E7] <- 50.0
data$T5228600 <- factor(data$T5228600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T5228700[1.0 <= data$T5228700 & data$T5228700 <= 4.0] <- 1.0
data$T5228700[5.0 <= data$T5228700 & data$T5228700 <= 9.0] <- 5.0
data$T5228700[10.0 <= data$T5228700 & data$T5228700 <= 14.0] <- 10.0
data$T5228700[15.0 <= data$T5228700 & data$T5228700 <= 19.0] <- 15.0
data$T5228700[20.0 <= data$T5228700 & data$T5228700 <= 24.0] <- 20.0
data$T5228700[25.0 <= data$T5228700 & data$T5228700 <= 29.0] <- 25.0
data$T5228700[30.0 <= data$T5228700 & data$T5228700 <= 34.0] <- 30.0
data$T5228700[35.0 <= data$T5228700 & data$T5228700 <= 39.0] <- 35.0
data$T5228700[40.0 <= data$T5228700 & data$T5228700 <= 44.0] <- 40.0
data$T5228700[45.0 <= data$T5228700 & data$T5228700 <= 49.0] <- 45.0
data$T5228700[50.0 <= data$T5228700 & data$T5228700 <= 9.9999999E7] <- 50.0
data$T5228700 <- factor(data$T5228700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T5768600[1.0 <= data$T5768600 & data$T5768600 <= 499.0] <- 1.0
data$T5768600[500.0 <= data$T5768600 & data$T5768600 <= 999.0] <- 500.0
data$T5768600[1000.0 <= data$T5768600 & data$T5768600 <= 1499.0] <- 1000.0
data$T5768600[1500.0 <= data$T5768600 & data$T5768600 <= 1999.0] <- 1500.0
data$T5768600[2000.0 <= data$T5768600 & data$T5768600 <= 2499.0] <- 2000.0
data$T5768600[2500.0 <= data$T5768600 & data$T5768600 <= 2999.0] <- 2500.0
data$T5768600[3000.0 <= data$T5768600 & data$T5768600 <= 3499.0] <- 3000.0
data$T5768600[3500.0 <= data$T5768600 & data$T5768600 <= 3999.0] <- 3500.0
data$T5768600[4000.0 <= data$T5768600 & data$T5768600 <= 4499.0] <- 4000.0
data$T5768600[4500.0 <= data$T5768600 & data$T5768600 <= 4999.0] <- 4500.0
data$T5768600[5000.0 <= data$T5768600 & data$T5768600 <= 9.9999999E7] <- 5000.0
data$T5768600 <- factor(data$T5768600,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499: .01-4.99",
"500 TO 999: 5.00-9.99",
"1000 TO 1499: 10.00-14.99",
"1500 TO 1999: 15.00-19.99",
"2000 TO 2499: 20.00-24.99",
"2500 TO 2999: 25.00-29.99",
"3000 TO 3499: 30.00-34.99",
"3500 TO 3999: 35.00-39.99",
"4000 TO 4499: 40.00-44.99",
"4500 TO 4999: 45.00-49.99",
"5000 TO 99999999: 50.00+"))
data$T5768800[1.0 <= data$T5768800 & data$T5768800 <= 499.0] <- 1.0
data$T5768800[500.0 <= data$T5768800 & data$T5768800 <= 999.0] <- 500.0
data$T5768800[1000.0 <= data$T5768800 & data$T5768800 <= 1499.0] <- 1000.0
data$T5768800[1500.0 <= data$T5768800 & data$T5768800 <= 1999.0] <- 1500.0
data$T5768800[2000.0 <= data$T5768800 & data$T5768800 <= 2499.0] <- 2000.0
data$T5768800[2500.0 <= data$T5768800 & data$T5768800 <= 2999.0] <- 2500.0
data$T5768800[3000.0 <= data$T5768800 & data$T5768800 <= 3499.0] <- 3000.0
data$T5768800[3500.0 <= data$T5768800 & data$T5768800 <= 3999.0] <- 3500.0
data$T5768800[4000.0 <= data$T5768800 & data$T5768800 <= 4499.0] <- 4000.0
data$T5768800[4500.0 <= data$T5768800 & data$T5768800 <= 4999.0] <- 4500.0
data$T5768800[5000.0 <= data$T5768800 & data$T5768800 <= 9.9999999E7] <- 5000.0
data$T5768800 <- factor(data$T5768800,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499: .01-4.99",
"500 TO 999: 5.00-9.99",
"1000 TO 1499: 10.00-14.99",
"1500 TO 1999: 15.00-19.99",
"2000 TO 2499: 20.00-24.99",
"2500 TO 2999: 25.00-29.99",
"3000 TO 3499: 30.00-34.99",
"3500 TO 3999: 35.00-39.99",
"4000 TO 4499: 40.00-44.99",
"4500 TO 4999: 45.00-49.99",
"5000 TO 99999999: 50.00+"))
data$T5769000[1.0 <= data$T5769000 & data$T5769000 <= 499.0] <- 1.0
data$T5769000[500.0 <= data$T5769000 & data$T5769000 <= 999.0] <- 500.0
data$T5769000[1000.0 <= data$T5769000 & data$T5769000 <= 1499.0] <- 1000.0
data$T5769000[1500.0 <= data$T5769000 & data$T5769000 <= 1999.0] <- 1500.0
data$T5769000[2000.0 <= data$T5769000 & data$T5769000 <= 2499.0] <- 2000.0
data$T5769000[2500.0 <= data$T5769000 & data$T5769000 <= 2999.0] <- 2500.0
data$T5769000[3000.0 <= data$T5769000 & data$T5769000 <= 3499.0] <- 3000.0
data$T5769000[3500.0 <= data$T5769000 & data$T5769000 <= 3999.0] <- 3500.0
data$T5769000[4000.0 <= data$T5769000 & data$T5769000 <= 4499.0] <- 4000.0
data$T5769000[4500.0 <= data$T5769000 & data$T5769000 <= 4999.0] <- 4500.0
data$T5769000[5000.0 <= data$T5769000 & data$T5769000 <= 9.9999999E7] <- 5000.0
data$T5769000 <- factor(data$T5769000,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499: .01-4.99",
"500 TO 999: 5.00-9.99",
"1000 TO 1499: 10.00-14.99",
"1500 TO 1999: 15.00-19.99",
"2000 TO 2499: 20.00-24.99",
"2500 TO 2999: 25.00-29.99",
"3000 TO 3499: 30.00-34.99",
"3500 TO 3999: 35.00-39.99",
"4000 TO 4499: 40.00-44.99",
"4500 TO 4999: 45.00-49.99",
"5000 TO 99999999: 50.00+"))
data$T5769200[1.0 <= data$T5769200 & data$T5769200 <= 499.0] <- 1.0
data$T5769200[500.0 <= data$T5769200 & data$T5769200 <= 999.0] <- 500.0
data$T5769200[1000.0 <= data$T5769200 & data$T5769200 <= 1499.0] <- 1000.0
data$T5769200[1500.0 <= data$T5769200 & data$T5769200 <= 1999.0] <- 1500.0
data$T5769200[2000.0 <= data$T5769200 & data$T5769200 <= 2499.0] <- 2000.0
data$T5769200[2500.0 <= data$T5769200 & data$T5769200 <= 2999.0] <- 2500.0
data$T5769200[3000.0 <= data$T5769200 & data$T5769200 <= 3499.0] <- 3000.0
data$T5769200[3500.0 <= data$T5769200 & data$T5769200 <= 3999.0] <- 3500.0
data$T5769200[4000.0 <= data$T5769200 & data$T5769200 <= 4499.0] <- 4000.0
data$T5769200[4500.0 <= data$T5769200 & data$T5769200 <= 4999.0] <- 4500.0
data$T5769200[5000.0 <= data$T5769200 & data$T5769200 <= 9.9999999E7] <- 5000.0
data$T5769200 <- factor(data$T5769200,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499: .01-4.99",
"500 TO 999: 5.00-9.99",
"1000 TO 1499: 10.00-14.99",
"1500 TO 1999: 15.00-19.99",
"2000 TO 2499: 20.00-24.99",
"2500 TO 2999: 25.00-29.99",
"3000 TO 3499: 30.00-34.99",
"3500 TO 3999: 35.00-39.99",
"4000 TO 4499: 40.00-44.99",
"4500 TO 4999: 45.00-49.99",
"5000 TO 99999999: 50.00+"))
data$T5769400[1.0 <= data$T5769400 & data$T5769400 <= 499.0] <- 1.0
data$T5769400[500.0 <= data$T5769400 & data$T5769400 <= 999.0] <- 500.0
data$T5769400[1000.0 <= data$T5769400 & data$T5769400 <= 1499.0] <- 1000.0
data$T5769400[1500.0 <= data$T5769400 & data$T5769400 <= 1999.0] <- 1500.0
data$T5769400[2000.0 <= data$T5769400 & data$T5769400 <= 2499.0] <- 2000.0
data$T5769400[2500.0 <= data$T5769400 & data$T5769400 <= 2999.0] <- 2500.0
data$T5769400[3000.0 <= data$T5769400 & data$T5769400 <= 3499.0] <- 3000.0
data$T5769400[3500.0 <= data$T5769400 & data$T5769400 <= 3999.0] <- 3500.0
data$T5769400[4000.0 <= data$T5769400 & data$T5769400 <= 4499.0] <- 4000.0
data$T5769400[4500.0 <= data$T5769400 & data$T5769400 <= 4999.0] <- 4500.0
data$T5769400[5000.0 <= data$T5769400 & data$T5769400 <= 9.9999999E7] <- 5000.0
data$T5769400 <- factor(data$T5769400,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499: .01-4.99",
"500 TO 999: 5.00-9.99",
"1000 TO 1499: 10.00-14.99",
"1500 TO 1999: 15.00-19.99",
"2000 TO 2499: 20.00-24.99",
"2500 TO 2999: 25.00-29.99",
"3000 TO 3499: 30.00-34.99",
"3500 TO 3999: 35.00-39.99",
"4000 TO 4499: 40.00-44.99",
"4500 TO 4999: 45.00-49.99",
"5000 TO 99999999: 50.00+"))
data$T5771300 <- factor(data$T5771300,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
data$T7743900 <- factor(data$T7743900,
levels=c(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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,95.0),
labels=c("1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"UNGRADED"))
data$T7793000[1.0 <= data$T7793000 & data$T7793000 <= 4.0] <- 1.0
data$T7793000[5.0 <= data$T7793000 & data$T7793000 <= 9.0] <- 5.0
data$T7793000[10.0 <= data$T7793000 & data$T7793000 <= 14.0] <- 10.0
data$T7793000[15.0 <= data$T7793000 & data$T7793000 <= 19.0] <- 15.0
data$T7793000[20.0 <= data$T7793000 & data$T7793000 <= 24.0] <- 20.0
data$T7793000[25.0 <= data$T7793000 & data$T7793000 <= 29.0] <- 25.0
data$T7793000[30.0 <= data$T7793000 & data$T7793000 <= 34.0] <- 30.0
data$T7793000[35.0 <= data$T7793000 & data$T7793000 <= 39.0] <- 35.0
data$T7793000[40.0 <= data$T7793000 & data$T7793000 <= 44.0] <- 40.0
data$T7793000[45.0 <= data$T7793000 & data$T7793000 <= 49.0] <- 45.0
data$T7793000[50.0 <= data$T7793000 & data$T7793000 <= 9.9999999E7] <- 50.0
data$T7793000 <- factor(data$T7793000,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T7793100[1.0 <= data$T7793100 & data$T7793100 <= 4.0] <- 1.0
data$T7793100[5.0 <= data$T7793100 & data$T7793100 <= 9.0] <- 5.0
data$T7793100[10.0 <= data$T7793100 & data$T7793100 <= 14.0] <- 10.0
data$T7793100[15.0 <= data$T7793100 & data$T7793100 <= 19.0] <- 15.0
data$T7793100[20.0 <= data$T7793100 & data$T7793100 <= 24.0] <- 20.0
data$T7793100[25.0 <= data$T7793100 & data$T7793100 <= 29.0] <- 25.0
data$T7793100[30.0 <= data$T7793100 & data$T7793100 <= 34.0] <- 30.0
data$T7793100[35.0 <= data$T7793100 & data$T7793100 <= 39.0] <- 35.0
data$T7793100[40.0 <= data$T7793100 & data$T7793100 <= 44.0] <- 40.0
data$T7793100[45.0 <= data$T7793100 & data$T7793100 <= 49.0] <- 45.0
data$T7793100[50.0 <= data$T7793100 & data$T7793100 <= 9.9999999E7] <- 50.0
data$T7793100 <- factor(data$T7793100,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T7793200[1.0 <= data$T7793200 & data$T7793200 <= 4.0] <- 1.0
data$T7793200[5.0 <= data$T7793200 & data$T7793200 <= 9.0] <- 5.0
data$T7793200[10.0 <= data$T7793200 & data$T7793200 <= 14.0] <- 10.0
data$T7793200[15.0 <= data$T7793200 & data$T7793200 <= 19.0] <- 15.0
data$T7793200[20.0 <= data$T7793200 & data$T7793200 <= 24.0] <- 20.0
data$T7793200[25.0 <= data$T7793200 & data$T7793200 <= 29.0] <- 25.0
data$T7793200[30.0 <= data$T7793200 & data$T7793200 <= 34.0] <- 30.0
data$T7793200[35.0 <= data$T7793200 & data$T7793200 <= 39.0] <- 35.0
data$T7793200[40.0 <= data$T7793200 & data$T7793200 <= 44.0] <- 40.0
data$T7793200[45.0 <= data$T7793200 & data$T7793200 <= 49.0] <- 45.0
data$T7793200[50.0 <= data$T7793200 & data$T7793200 <= 9.9999999E7] <- 50.0
data$T7793200 <- factor(data$T7793200,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T7793300[1.0 <= data$T7793300 & data$T7793300 <= 4.0] <- 1.0
data$T7793300[5.0 <= data$T7793300 & data$T7793300 <= 9.0] <- 5.0
data$T7793300[10.0 <= data$T7793300 & data$T7793300 <= 14.0] <- 10.0
data$T7793300[15.0 <= data$T7793300 & data$T7793300 <= 19.0] <- 15.0
data$T7793300[20.0 <= data$T7793300 & data$T7793300 <= 24.0] <- 20.0
data$T7793300[25.0 <= data$T7793300 & data$T7793300 <= 29.0] <- 25.0
data$T7793300[30.0 <= data$T7793300 & data$T7793300 <= 34.0] <- 30.0
data$T7793300[35.0 <= data$T7793300 & data$T7793300 <= 39.0] <- 35.0
data$T7793300[40.0 <= data$T7793300 & data$T7793300 <= 44.0] <- 40.0
data$T7793300[45.0 <= data$T7793300 & data$T7793300 <= 49.0] <- 45.0
data$T7793300[50.0 <= data$T7793300 & data$T7793300 <= 9.9999999E7] <- 50.0
data$T7793300 <- factor(data$T7793300,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T7793400[1.0 <= data$T7793400 & data$T7793400 <= 4.0] <- 1.0
data$T7793400[5.0 <= data$T7793400 & data$T7793400 <= 9.0] <- 5.0
data$T7793400[10.0 <= data$T7793400 & data$T7793400 <= 14.0] <- 10.0
data$T7793400[15.0 <= data$T7793400 & data$T7793400 <= 19.0] <- 15.0
data$T7793400[20.0 <= data$T7793400 & data$T7793400 <= 24.0] <- 20.0
data$T7793400[25.0 <= data$T7793400 & data$T7793400 <= 29.0] <- 25.0
data$T7793400[30.0 <= data$T7793400 & data$T7793400 <= 34.0] <- 30.0
data$T7793400[35.0 <= data$T7793400 & data$T7793400 <= 39.0] <- 35.0
data$T7793400[40.0 <= data$T7793400 & data$T7793400 <= 44.0] <- 40.0
data$T7793400[45.0 <= data$T7793400 & data$T7793400 <= 49.0] <- 45.0
data$T7793400[50.0 <= data$T7793400 & data$T7793400 <= 9.9999999E7] <- 50.0
data$T7793400 <- factor(data$T7793400,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T7793500[1.0 <= data$T7793500 & data$T7793500 <= 4.0] <- 1.0
data$T7793500[5.0 <= data$T7793500 & data$T7793500 <= 9.0] <- 5.0
data$T7793500[10.0 <= data$T7793500 & data$T7793500 <= 14.0] <- 10.0
data$T7793500[15.0 <= data$T7793500 & data$T7793500 <= 19.0] <- 15.0
data$T7793500[20.0 <= data$T7793500 & data$T7793500 <= 24.0] <- 20.0
data$T7793500[25.0 <= data$T7793500 & data$T7793500 <= 29.0] <- 25.0
data$T7793500[30.0 <= data$T7793500 & data$T7793500 <= 34.0] <- 30.0
data$T7793500[35.0 <= data$T7793500 & data$T7793500 <= 39.0] <- 35.0
data$T7793500[40.0 <= data$T7793500 & data$T7793500 <= 44.0] <- 40.0
data$T7793500[45.0 <= data$T7793500 & data$T7793500 <= 49.0] <- 45.0
data$T7793500[50.0 <= data$T7793500 & data$T7793500 <= 9.9999999E7] <- 50.0
data$T7793500 <- factor(data$T7793500,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T7793600[1.0 <= data$T7793600 & data$T7793600 <= 4.0] <- 1.0
data$T7793600[5.0 <= data$T7793600 & data$T7793600 <= 9.0] <- 5.0
data$T7793600[10.0 <= data$T7793600 & data$T7793600 <= 14.0] <- 10.0
data$T7793600[15.0 <= data$T7793600 & data$T7793600 <= 19.0] <- 15.0
data$T7793600[20.0 <= data$T7793600 & data$T7793600 <= 24.0] <- 20.0
data$T7793600[25.0 <= data$T7793600 & data$T7793600 <= 29.0] <- 25.0
data$T7793600[30.0 <= data$T7793600 & data$T7793600 <= 34.0] <- 30.0
data$T7793600[35.0 <= data$T7793600 & data$T7793600 <= 39.0] <- 35.0
data$T7793600[40.0 <= data$T7793600 & data$T7793600 <= 44.0] <- 40.0
data$T7793600[45.0 <= data$T7793600 & data$T7793600 <= 49.0] <- 45.0
data$T7793600[50.0 <= data$T7793600 & data$T7793600 <= 9.9999999E7] <- 50.0
data$T7793600 <- factor(data$T7793600,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T7793700[1.0 <= data$T7793700 & data$T7793700 <= 4.0] <- 1.0
data$T7793700[5.0 <= data$T7793700 & data$T7793700 <= 9.0] <- 5.0
data$T7793700[10.0 <= data$T7793700 & data$T7793700 <= 14.0] <- 10.0
data$T7793700[15.0 <= data$T7793700 & data$T7793700 <= 19.0] <- 15.0
data$T7793700[20.0 <= data$T7793700 & data$T7793700 <= 24.0] <- 20.0
data$T7793700[25.0 <= data$T7793700 & data$T7793700 <= 29.0] <- 25.0
data$T7793700[30.0 <= data$T7793700 & data$T7793700 <= 34.0] <- 30.0
data$T7793700[35.0 <= data$T7793700 & data$T7793700 <= 39.0] <- 35.0
data$T7793700[40.0 <= data$T7793700 & data$T7793700 <= 44.0] <- 40.0
data$T7793700[45.0 <= data$T7793700 & data$T7793700 <= 49.0] <- 45.0
data$T7793700[50.0 <= data$T7793700 & data$T7793700 <= 9.9999999E7] <- 50.0
data$T7793700 <- factor(data$T7793700,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T7793800[1.0 <= data$T7793800 & data$T7793800 <= 4.0] <- 1.0
data$T7793800[5.0 <= data$T7793800 & data$T7793800 <= 9.0] <- 5.0
data$T7793800[10.0 <= data$T7793800 & data$T7793800 <= 14.0] <- 10.0
data$T7793800[15.0 <= data$T7793800 & data$T7793800 <= 19.0] <- 15.0
data$T7793800[20.0 <= data$T7793800 & data$T7793800 <= 24.0] <- 20.0
data$T7793800[25.0 <= data$T7793800 & data$T7793800 <= 29.0] <- 25.0
data$T7793800[30.0 <= data$T7793800 & data$T7793800 <= 34.0] <- 30.0
data$T7793800[35.0 <= data$T7793800 & data$T7793800 <= 39.0] <- 35.0
data$T7793800[40.0 <= data$T7793800 & data$T7793800 <= 44.0] <- 40.0
data$T7793800[45.0 <= data$T7793800 & data$T7793800 <= 49.0] <- 45.0
data$T7793800[50.0 <= data$T7793800 & data$T7793800 <= 9.9999999E7] <- 50.0
data$T7793800 <- factor(data$T7793800,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T7793900[1.0 <= data$T7793900 & data$T7793900 <= 4.0] <- 1.0
data$T7793900[5.0 <= data$T7793900 & data$T7793900 <= 9.0] <- 5.0
data$T7793900[10.0 <= data$T7793900 & data$T7793900 <= 14.0] <- 10.0
data$T7793900[15.0 <= data$T7793900 & data$T7793900 <= 19.0] <- 15.0
data$T7793900[20.0 <= data$T7793900 & data$T7793900 <= 24.0] <- 20.0
data$T7793900[25.0 <= data$T7793900 & data$T7793900 <= 29.0] <- 25.0
data$T7793900[30.0 <= data$T7793900 & data$T7793900 <= 34.0] <- 30.0
data$T7793900[35.0 <= data$T7793900 & data$T7793900 <= 39.0] <- 35.0
data$T7793900[40.0 <= data$T7793900 & data$T7793900 <= 44.0] <- 40.0
data$T7793900[45.0 <= data$T7793900 & data$T7793900 <= 49.0] <- 45.0
data$T7793900[50.0 <= data$T7793900 & data$T7793900 <= 9.9999999E7] <- 50.0
data$T7793900 <- factor(data$T7793900,
levels=c(0.0,1.0,5.0,10.0,15.0,20.0,25.0,30.0,35.0,40.0,45.0,50.0),
labels=c("0",
"1 TO 4",
"5 TO 9",
"10 TO 14",
"15 TO 19",
"20 TO 24",
"25 TO 29",
"30 TO 34",
"35 TO 39",
"40 TO 44",
"45 TO 49",
"50 TO 99999999: 50+"))
data$T7794000[1.0 <= data$T7794000 & data$T7794000 <= 9.0] <- 1.0
data$T7794000[10.0 <= data$T7794000 & data$T7794000 <= 19.0] <- 10.0
data$T7794000[20.0 <= data$T7794000 & data$T7794000 <= 29.0] <- 20.0
data$T7794000[30.0 <= data$T7794000 & data$T7794000 <= 39.0] <- 30.0
data$T7794000[40.0 <= data$T7794000 & data$T7794000 <= 49.0] <- 40.0
data$T7794000[50.0 <= data$T7794000 & data$T7794000 <= 59.0] <- 50.0
data$T7794000[60.0 <= data$T7794000 & data$T7794000 <= 69.0] <- 60.0
data$T7794000[70.0 <= data$T7794000 & data$T7794000 <= 79.0] <- 70.0
data$T7794000[80.0 <= data$T7794000 & data$T7794000 <= 89.0] <- 80.0
data$T7794000[90.0 <= data$T7794000 & data$T7794000 <= 99.0] <- 90.0
data$T7794000[100.0 <= data$T7794000 & data$T7794000 <= 9.9999999E7] <- 100.0
data$T7794000 <- factor(data$T7794000,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T7794100[1.0 <= data$T7794100 & data$T7794100 <= 9.0] <- 1.0
data$T7794100[10.0 <= data$T7794100 & data$T7794100 <= 19.0] <- 10.0
data$T7794100[20.0 <= data$T7794100 & data$T7794100 <= 29.0] <- 20.0
data$T7794100[30.0 <= data$T7794100 & data$T7794100 <= 39.0] <- 30.0
data$T7794100[40.0 <= data$T7794100 & data$T7794100 <= 49.0] <- 40.0
data$T7794100[50.0 <= data$T7794100 & data$T7794100 <= 59.0] <- 50.0
data$T7794100[60.0 <= data$T7794100 & data$T7794100 <= 69.0] <- 60.0
data$T7794100[70.0 <= data$T7794100 & data$T7794100 <= 79.0] <- 70.0
data$T7794100[80.0 <= data$T7794100 & data$T7794100 <= 89.0] <- 80.0
data$T7794100[90.0 <= data$T7794100 & data$T7794100 <= 99.0] <- 90.0
data$T7794100[100.0 <= data$T7794100 & data$T7794100 <= 9.9999999E7] <- 100.0
data$T7794100 <- factor(data$T7794100,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T7794200[1.0 <= data$T7794200 & data$T7794200 <= 9.0] <- 1.0
data$T7794200[10.0 <= data$T7794200 & data$T7794200 <= 19.0] <- 10.0
data$T7794200[20.0 <= data$T7794200 & data$T7794200 <= 29.0] <- 20.0
data$T7794200[30.0 <= data$T7794200 & data$T7794200 <= 39.0] <- 30.0
data$T7794200[40.0 <= data$T7794200 & data$T7794200 <= 49.0] <- 40.0
data$T7794200[50.0 <= data$T7794200 & data$T7794200 <= 59.0] <- 50.0
data$T7794200[60.0 <= data$T7794200 & data$T7794200 <= 69.0] <- 60.0
data$T7794200[70.0 <= data$T7794200 & data$T7794200 <= 79.0] <- 70.0
data$T7794200[80.0 <= data$T7794200 & data$T7794200 <= 89.0] <- 80.0
data$T7794200[90.0 <= data$T7794200 & data$T7794200 <= 99.0] <- 90.0
data$T7794200[100.0 <= data$T7794200 & data$T7794200 <= 9.9999999E7] <- 100.0
data$T7794200 <- factor(data$T7794200,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T7794300[1.0 <= data$T7794300 & data$T7794300 <= 9.0] <- 1.0
data$T7794300[10.0 <= data$T7794300 & data$T7794300 <= 19.0] <- 10.0
data$T7794300[20.0 <= data$T7794300 & data$T7794300 <= 29.0] <- 20.0
data$T7794300[30.0 <= data$T7794300 & data$T7794300 <= 39.0] <- 30.0
data$T7794300[40.0 <= data$T7794300 & data$T7794300 <= 49.0] <- 40.0
data$T7794300[50.0 <= data$T7794300 & data$T7794300 <= 59.0] <- 50.0
data$T7794300[60.0 <= data$T7794300 & data$T7794300 <= 69.0] <- 60.0
data$T7794300[70.0 <= data$T7794300 & data$T7794300 <= 79.0] <- 70.0
data$T7794300[80.0 <= data$T7794300 & data$T7794300 <= 89.0] <- 80.0
data$T7794300[90.0 <= data$T7794300 & data$T7794300 <= 99.0] <- 90.0
data$T7794300[100.0 <= data$T7794300 & data$T7794300 <= 9.9999999E7] <- 100.0
data$T7794300 <- factor(data$T7794300,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T7794400[1.0 <= data$T7794400 & data$T7794400 <= 9.0] <- 1.0
data$T7794400[10.0 <= data$T7794400 & data$T7794400 <= 19.0] <- 10.0
data$T7794400[20.0 <= data$T7794400 & data$T7794400 <= 29.0] <- 20.0
data$T7794400[30.0 <= data$T7794400 & data$T7794400 <= 39.0] <- 30.0
data$T7794400[40.0 <= data$T7794400 & data$T7794400 <= 49.0] <- 40.0
data$T7794400[50.0 <= data$T7794400 & data$T7794400 <= 59.0] <- 50.0
data$T7794400[60.0 <= data$T7794400 & data$T7794400 <= 69.0] <- 60.0
data$T7794400[70.0 <= data$T7794400 & data$T7794400 <= 79.0] <- 70.0
data$T7794400[80.0 <= data$T7794400 & data$T7794400 <= 89.0] <- 80.0
data$T7794400[90.0 <= data$T7794400 & data$T7794400 <= 99.0] <- 90.0
data$T7794400[100.0 <= data$T7794400 & data$T7794400 <= 9.9999999E7] <- 100.0
data$T7794400 <- factor(data$T7794400,
levels=c(0.0,1.0,10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0),
labels=c("0",
"1 TO 9",
"10 TO 19",
"20 TO 29",
"30 TO 39",
"40 TO 49",
"50 TO 59",
"60 TO 69",
"70 TO 79",
"80 TO 89",
"90 TO 99",
"100 TO 99999999: 100+"))
data$T8215400[1.0 <= data$T8215400 & data$T8215400 <= 499.0] <- 1.0
data$T8215400[500.0 <= data$T8215400 & data$T8215400 <= 999.0] <- 500.0
data$T8215400[1000.0 <= data$T8215400 & data$T8215400 <= 1499.0] <- 1000.0
data$T8215400[1500.0 <= data$T8215400 & data$T8215400 <= 1999.0] <- 1500.0
data$T8215400[2000.0 <= data$T8215400 & data$T8215400 <= 2499.0] <- 2000.0
data$T8215400[2500.0 <= data$T8215400 & data$T8215400 <= 2999.0] <- 2500.0
data$T8215400[3000.0 <= data$T8215400 & data$T8215400 <= 3499.0] <- 3000.0
data$T8215400[3500.0 <= data$T8215400 & data$T8215400 <= 3999.0] <- 3500.0
data$T8215400[4000.0 <= data$T8215400 & data$T8215400 <= 4499.0] <- 4000.0
data$T8215400[4500.0 <= data$T8215400 & data$T8215400 <= 4999.0] <- 4500.0
data$T8215400[5000.0 <= data$T8215400 & data$T8215400 <= 9.9999999E7] <- 5000.0
data$T8215400 <- factor(data$T8215400,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499: .01-4.99",
"500 TO 999: 5.00-9.99",
"1000 TO 1499: 10.00-14.99",
"1500 TO 1999: 15.00-19.99",
"2000 TO 2499: 20.00-24.99",
"2500 TO 2999: 25.00-29.99",
"3000 TO 3499: 30.00-34.99",
"3500 TO 3999: 35.00-39.99",
"4000 TO 4499: 40.00-44.99",
"4500 TO 4999: 45.00-49.99",
"5000 TO 99999999: 50.00+"))
data$T8215600[1.0 <= data$T8215600 & data$T8215600 <= 499.0] <- 1.0
data$T8215600[500.0 <= data$T8215600 & data$T8215600 <= 999.0] <- 500.0
data$T8215600[1000.0 <= data$T8215600 & data$T8215600 <= 1499.0] <- 1000.0
data$T8215600[1500.0 <= data$T8215600 & data$T8215600 <= 1999.0] <- 1500.0
data$T8215600[2000.0 <= data$T8215600 & data$T8215600 <= 2499.0] <- 2000.0
data$T8215600[2500.0 <= data$T8215600 & data$T8215600 <= 2999.0] <- 2500.0
data$T8215600[3000.0 <= data$T8215600 & data$T8215600 <= 3499.0] <- 3000.0
data$T8215600[3500.0 <= data$T8215600 & data$T8215600 <= 3999.0] <- 3500.0
data$T8215600[4000.0 <= data$T8215600 & data$T8215600 <= 4499.0] <- 4000.0
data$T8215600[4500.0 <= data$T8215600 & data$T8215600 <= 4999.0] <- 4500.0
data$T8215600[5000.0 <= data$T8215600 & data$T8215600 <= 9.9999999E7] <- 5000.0
data$T8215600 <- factor(data$T8215600,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499: .01-4.99",
"500 TO 999: 5.00-9.99",
"1000 TO 1499: 10.00-14.99",
"1500 TO 1999: 15.00-19.99",
"2000 TO 2499: 20.00-24.99",
"2500 TO 2999: 25.00-29.99",
"3000 TO 3499: 30.00-34.99",
"3500 TO 3999: 35.00-39.99",
"4000 TO 4499: 40.00-44.99",
"4500 TO 4999: 45.00-49.99",
"5000 TO 99999999: 50.00+"))
data$T8215800[1.0 <= data$T8215800 & data$T8215800 <= 499.0] <- 1.0
data$T8215800[500.0 <= data$T8215800 & data$T8215800 <= 999.0] <- 500.0
data$T8215800[1000.0 <= data$T8215800 & data$T8215800 <= 1499.0] <- 1000.0
data$T8215800[1500.0 <= data$T8215800 & data$T8215800 <= 1999.0] <- 1500.0
data$T8215800[2000.0 <= data$T8215800 & data$T8215800 <= 2499.0] <- 2000.0
data$T8215800[2500.0 <= data$T8215800 & data$T8215800 <= 2999.0] <- 2500.0
data$T8215800[3000.0 <= data$T8215800 & data$T8215800 <= 3499.0] <- 3000.0
data$T8215800[3500.0 <= data$T8215800 & data$T8215800 <= 3999.0] <- 3500.0
data$T8215800[4000.0 <= data$T8215800 & data$T8215800 <= 4499.0] <- 4000.0
data$T8215800[4500.0 <= data$T8215800 & data$T8215800 <= 4999.0] <- 4500.0
data$T8215800[5000.0 <= data$T8215800 & data$T8215800 <= 9.9999999E7] <- 5000.0
data$T8215800 <- factor(data$T8215800,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499: .01-4.99",
"500 TO 999: 5.00-9.99",
"1000 TO 1499: 10.00-14.99",
"1500 TO 1999: 15.00-19.99",
"2000 TO 2499: 20.00-24.99",
"2500 TO 2999: 25.00-29.99",
"3000 TO 3499: 30.00-34.99",
"3500 TO 3999: 35.00-39.99",
"4000 TO 4499: 40.00-44.99",
"4500 TO 4999: 45.00-49.99",
"5000 TO 99999999: 50.00+"))
data$T8216000[1.0 <= data$T8216000 & data$T8216000 <= 499.0] <- 1.0
data$T8216000[500.0 <= data$T8216000 & data$T8216000 <= 999.0] <- 500.0
data$T8216000[1000.0 <= data$T8216000 & data$T8216000 <= 1499.0] <- 1000.0
data$T8216000[1500.0 <= data$T8216000 & data$T8216000 <= 1999.0] <- 1500.0
data$T8216000[2000.0 <= data$T8216000 & data$T8216000 <= 2499.0] <- 2000.0
data$T8216000[2500.0 <= data$T8216000 & data$T8216000 <= 2999.0] <- 2500.0
data$T8216000[3000.0 <= data$T8216000 & data$T8216000 <= 3499.0] <- 3000.0
data$T8216000[3500.0 <= data$T8216000 & data$T8216000 <= 3999.0] <- 3500.0
data$T8216000[4000.0 <= data$T8216000 & data$T8216000 <= 4499.0] <- 4000.0
data$T8216000[4500.0 <= data$T8216000 & data$T8216000 <= 4999.0] <- 4500.0
data$T8216000[5000.0 <= data$T8216000 & data$T8216000 <= 9.9999999E7] <- 5000.0
data$T8216000 <- factor(data$T8216000,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499: .01-4.99",
"500 TO 999: 5.00-9.99",
"1000 TO 1499: 10.00-14.99",
"1500 TO 1999: 15.00-19.99",
"2000 TO 2499: 20.00-24.99",
"2500 TO 2999: 25.00-29.99",
"3000 TO 3499: 30.00-34.99",
"3500 TO 3999: 35.00-39.99",
"4000 TO 4499: 40.00-44.99",
"4500 TO 4999: 45.00-49.99",
"5000 TO 99999999: 50.00+"))
data$T8216200[1.0 <= data$T8216200 & data$T8216200 <= 499.0] <- 1.0
data$T8216200[500.0 <= data$T8216200 & data$T8216200 <= 999.0] <- 500.0
data$T8216200[1000.0 <= data$T8216200 & data$T8216200 <= 1499.0] <- 1000.0
data$T8216200[1500.0 <= data$T8216200 & data$T8216200 <= 1999.0] <- 1500.0
data$T8216200[2000.0 <= data$T8216200 & data$T8216200 <= 2499.0] <- 2000.0
data$T8216200[2500.0 <= data$T8216200 & data$T8216200 <= 2999.0] <- 2500.0
data$T8216200[3000.0 <= data$T8216200 & data$T8216200 <= 3499.0] <- 3000.0
data$T8216200[3500.0 <= data$T8216200 & data$T8216200 <= 3999.0] <- 3500.0
data$T8216200[4000.0 <= data$T8216200 & data$T8216200 <= 4499.0] <- 4000.0
data$T8216200[4500.0 <= data$T8216200 & data$T8216200 <= 4999.0] <- 4500.0
data$T8216200[5000.0 <= data$T8216200 & data$T8216200 <= 9.9999999E7] <- 5000.0
data$T8216200 <- factor(data$T8216200,
levels=c(0.0,1.0,500.0,1000.0,1500.0,2000.0,2500.0,3000.0,3500.0,4000.0,4500.0,5000.0),
labels=c("0",
"1 TO 499: .01-4.99",
"500 TO 999: 5.00-9.99",
"1000 TO 1499: 10.00-14.99",
"1500 TO 1999: 15.00-19.99",
"2000 TO 2499: 20.00-24.99",
"2500 TO 2999: 25.00-29.99",
"3000 TO 3499: 30.00-34.99",
"3500 TO 3999: 35.00-39.99",
"4000 TO 4499: 40.00-44.99",
"4500 TO 4999: 45.00-49.99",
"5000 TO 99999999: 50.00+"))
data$T9900000 <- factor(data$T9900000,
levels=c(0.0,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,14.0,15.0,16.0,17.0,18.0,19.0,20.0,93.0,94.0,95.0),
labels=c("NONE",
"1ST GRADE",
"2ND GRADE",
"3RD GRADE",
"4TH GRADE",
"5TH GRADE",
"6TH GRADE",
"7TH GRADE",
"8TH GRADE",
"9TH GRADE",
"10TH GRADE",
"11TH GRADE",
"12TH GRADE",
"1ST YEAR COLLEGE",
"2ND YEAR COLLEGE",
"3RD YEAR COLLEGE",
"4TH YEAR COLLEGE",
"5TH YEAR COLLEGE",
"6TH YEAR COLLEGE",
"7TH YEAR COLLEGE",
"8TH YEAR COLLEGE OR MORE",
"PRE-KINDERGARTEN",
"KINDERGARTEN",
"UNGRADED"))
return(data)
}
varlabels <- c("ID# (1-12686) 79",
"DATE OF BIRTH - MONTH 79",
"DATE OF BIRTH - YR 79",
"HGC 79",
"HRP CURRENT/M-RCNT JOB 79",
"HRS/WK WRKD #1 79",
"HRS/WK WRKD #2 79",
"HRS/WK WRKD #3 79",
"HRS/WK WRKD #4 79",
"HRS/WK WRKD #5 79",
"HRP JOB#1 79",
"HRP JOB#2 79",
"HRP JOB#3 79",
"HRP JOB#4 79",
"HRP JOB#5 79",
"SAMPLE ID 79 INT",
"RACL/ETHNIC COHORT /SCRNR 79",
"SEX OF R 79",
"HGC AS OF 05/01/79 SRVY YR",
"HIGHEST GRADE COMPLTD (REV) 79",
"HGC 80",
"HRP CURRENT/M-RCNT JOB 80",
"HRS/WK WRKD #1 80",
"HRP JOB#1 80",
"HRS/WK WRKD #2 80",
"HRP JOB#2 80",
"HRS/WK WRKD #3 80",
"HRP JOB#3 80",
"HRS/WK WRKD #4 80",
"HRP JOB#4 80",
"HRS/WK WRKD #5 80",
"HRP JOB#5 80",
"HGC AS OF 05/01/80 SRVY YR",
"HIGHEST GRADE COMPLTD (REV) 80",
"DATE OF BIRTH - MONTH 81",
"DATE OF BIRTH - YR 81",
"HGC 81",
"HRP CURRENT/M-RCNT JOB 81",
"HRS/WK WRKD #1 81",
"HRP JOB#1 81",
"HRS/WK WRKD #2 81",
"HRP JOB#2 81",
"HRS/WK WRKD #3 81",
"HRP JOB#3 81",
"HRS/WK WRKD #4 81",
"HRP JOB#4 81",
"HRS/WK WRKD #5 81",
"HRP JOB#5 81",
"HGC AS OF 05/01/81 SRVY YR",
"HIGHEST GRADE COMPLTD (REV) 81",
"HGC 82",
"HRP CURRENT/M-RCNT JOB 82",
"HRS/WK WRKD #1 82",
"HRP JOB#1 82",
"HRS/WK WRKD #2 82",
"HRP JOB#2 82",
"HRS/WK WRKD #3 82",
"HRP JOB#3 82",
"HRS/WK WRKD #4 82",
"HRP JOB#4 82",
"HRS/WK WRKD #5 82",
"HRP JOB#5 82",
"HGC AS OF 05/01/82 SRVY YR",
"HIGHEST GRADE COMPLTD (REV) 82",
"HGC 83",
"HRP CURRENT/M-RCNT JOB 83",
"HRS/WK WRKD #1 83",
"HRP JOB#1 83",
"HRS/WK WRKD #2 83",
"HRP JOB#2 83",
"HRS/WK WRKD #3 83",
"HRP JOB#3 83",
"HRS/WK WRKD #4 83",
"HRP JOB#4 83",
"HRS/WK WRKD #5 83",
"HRP JOB#5 83",
"HGC AS OF 05/01/83 SRVY YR",
"HIGHEST GRADE COMPLTD (REV) 83",
"HGC 84",
"HRP CURRENT/M-RCNT JOB 84",
"HRS/WK WRKD #1 84",
"HRP JOB#1 84",
"HRS/WK WRKD #2 84",
"HRP JOB#2 84",
"HRS/WK WRKD #3 84",
"HRP JOB#3 84",
"HRS/WK WRKD #4 84",
"HRP JOB#4 84",
"HRS/WK WRKD #5 84",
"HRP JOB#5 84",
"HGC AS OF 05/01/84 SRVY YR",
"HIGHEST GRADE COMPLTD (REV) 84",
"HGC 85",
"HRP CURRENT/M-RCNT JOB 85",
"HRS/WK WRKD #1 85",
"HRP JOB#1 85",
"HRS/WK WRKD #2 85",
"HRP JOB#2 85",
"HRS/WK WRKD #3 85",
"HRP JOB#3 85",
"HRS/WK WRKD #4 85",
"HRP JOB#4 85",
"HRS/WK WRKD #5 85",
"HRP JOB#5 85",
"HGC AS OF 05/01/85 SRVY YR",
"HIGHEST GRADE COMPLTD (REV) 85",
"HGC 86",
"HRP CURRENT/M-RCNT JOB 86",
"HRS/WK WRKD #1 86",
"HRP JOB#1 86",
"HRS/WK WRKD #2 86",
"HRP JOB#2 86",
"HRS/WK WRKD #3 86",
"HRP JOB#3 86",
"HRS/WK WRKD #4 86",
"HRP JOB#4 86",
"HRS/WK WRKD #5 86",
"HRP JOB#5 86",
"HGC AS OF 05/01/86 SRVY YR",
"HIGHEST GRADE COMPLTD (REV) 86",
"HGC 87",
"HRP CURRENT/M-RCNT JOB 87",
"HRS/WK WRKD #1 87",
"HRP JOB#1 87",
"HRS/WK WRKD #2 87",
"HRP JOB#2 87",
"HRS/WK WRKD #3 87",
"HRP JOB#3 87",
"HRS/WK WRKD #4 87",
"HRP JOB#4 87",
"HRS/WK WRKD #5 87",
"HRP JOB#5 87",
"HGC AS OF 05/01/87 SRVY YR",
"HIGHEST GRADE COMPLTD (REV) 87",
"HGC 88",
"HRP CURRENT/M-RCNT JOB 88",
"HRS/WK WRKD #1 88",
"HRS/WK WRKD @ HOME JOB #1 88",
"HRS/WK WRKD INCL HOME J#1 88",
"HRS/WK WRKD INCL HOME J#1 88",
"HRP JOB#1 88",
"HRS/WK WRKD #2 88",
"HRS/WK WRKD @ HOME JOB #2 88",
"HRS/WK WRKD INCL HOME J#2 88",
"HRS/WK WRKD INCL HOME J#2 88",
"HRP JOB#2 88",
"HRS/WK WRKD #3 88",
"HRS/WK WRKD @ HOME JOB #3 88",
"HRS/WK WRKD INCL HOME J#3 88",
"HRS/WK WRKD INCL HOME J#3 88",
"HRP JOB#3 88",
"HRS/WK WRKD #4 88",
"HRS/WK WRKD @ HOME JOB #4 88",
"HRS/WK WRKD INCL HOME J#4 88",
"HRS/WK WRKD INCL HOME J#4 88",
"HRP JOB#4 88",
"HRS/WK WRKD #5 88",
"HRS/WK WRKD @ HOME JOB #5 88",
"HRS/WK WRKD INCL HOME J#5 88",
"HRS/WK WRKD INCL HOME J#5 88",
"HRP JOB#5 88",
"HGC AS OF 05/01/88 SRVY YR",
"HIGHEST GRADE COMPLTD (REV) 88",
"HGC 89",
"HRP CURRENT/M-RCNT JOB 89",
"HRS/WK WRKD #1 89",
"HRS/WK WRKD @ HOME JOB #1 89",
"HRS/WK WRKD INCL HOME J#1 89",
"HRS/WK WRKD INCL HOME J#1 89",
"HRP JOB#1 89",
"HRS/WK WRKD #2 89",
"HRS/WK WRKD @ HOME JOB #2 89",
"HRS/WK WRKD INCL HOME J#2 89",
"HRS/WK WRKD INCL HOME J#2 89",
"HRP JOB#2 89",
"HRS/WK WRKD #3 89",
"HRS/WK WRKD @ HOME JOB #3 89",
"HRS/WK WRKD INCL HOME J#3 89",
"HRS/WK WRKD INCL HOME J#3 89",
"HRP JOB#3 89",
"HRS/WK WRKD #4 89",
"HRS/WK WRKD @ HOME JOB #4 89",
"HRS/WK WRKD INCL HOME J#4 89",
"HRS/WK WRKD INCL HOME J#4 89",
"HRP JOB#4 89",
"HRS/WK WRKD #5 89",
"HRS/WK WRKD @ HOME JOB #5 89",
"HRS/WK WRKD INCL HOME J#5 89",
"HRS/WK WRKD INCL HOME J#5 89",
"HRP JOB#5 89",
"HGC AS OF 05/01/89 SRVY YR",
"HIGHEST GRADE COMPLTD (REV) 89",
"HGC 90",
"HRP CURRENT/M-RCNT JOB 90",
"HRS/WK WRKD #1 90",
"HRS/WK WRKD @ HOME JOB #1 90",
"HRS/WK WRKD INCL HOME J#1 90",
"HRS/WK WRKD INCL HOME J#1 90",
"HRP JOB#1 90",
"HRS/WK WRKD #2 90",
"HRS/WK WRKD @ HOME JOB #2 90",
"HRS/WK WRKD INCL HOME J#2 90",
"HRS/WK WRKD INCL HOME J#2 90",
"HRP JOB#2 90",
"HRS/WK WRKD #3 90",
"HRS/WK WRKD @ HOME JOB #3 90",
"HRS/WK WRKD INCL HOME J#3 90",
"HRS/WK WRKD INCL HOME J#3 90",
"HRP JOB#3 90",
"HRS/WK WRKD #4 90",
"HRS/WK WRKD @ HOME JOB #4 90",
"HRS/WK WRKD INCL HOME J#4 90",
"HRS/WK WRKD INCL HOME J#4 90",
"HRP JOB#4 90",
"HRS/WK WRKD #5 90",
"HRS/WK WRKD @ HOME JOB #5 90",
"HRS/WK WRKD INCL HOME J#5 90",
"HRS/WK WRKD INCL HOME J#5 90",
"HRP JOB#5 90",
"HGC AS OF 05/01/90 SRVY YR",
"HIGHEST GRADE COMPLTD (REV) 90",
"HGC 91",
"HRP CURRENT/M-RCNT JOB 91",
"HRS/WK WRKD #1 91",
"HRS/WK WRKD @ HOME JOB #1 91",
"HRS/WK WRKD INCL HOME J#1 91",
"HRS/WK WRKD INCL HOME J#1 91",
"HRP JOB#1 91",
"HRS/WK WRKD #2 91",
"HRS/WK WRKD @ HOME JOB #2 91",
"HRS/WK WRKD INCL HOME J#2 91",
"HRS/WK WRKD INCL HOME J#2 91",
"HRP JOB#2 91",
"HRS/WK WRKD #3 91",
"HRS/WK WRKD @ HOME JOB #3 91",
"HRS/WK WRKD INCL HOME J#3 91",
"HRS/WK WRKD INCL HOME J#3 91",
"HRP JOB#3 91",
"HRS/WK WRKD #4 91",
"HRS/WK WRKD @ HOME JOB #4 91",
"HRS/WK WRKD INCL HOME J#4 91",
"HRS/WK WRKD INCL HOME J#4 91",
"HRP JOB#4 91",
"HRS/WK WRKD #5 91",
"HRS/WK WRKD @ HOME JOB #5 91",
"HRS/WK WRKD INCL HOME J#5 91",
"HRS/WK WRKD INCL HOME J#5 91",
"HRP JOB#5 91",
"HGC AS OF 05/01/91 SRVY YR",
"HIGHEST GRADE COMPLTD (REV) 91",
"HGC 92",
"HRP CURRENT/M-RCNT JOB 92",
"HRS/WK WRKD #1 92",
"HRS/WK WRKD @ HOME JOB #1 92",
"HRS/WK WRKD INCL HOME J#1 92",
"HRS/WK WRKD INCL HOME J#1 92",
"HRP JOB#1 92",
"HRS/WK WRKD #2 92",
"HRS/WK WRKD @ HOME JOB #2 92",
"HRS/WK WRKD INCL HOME J#2 92",
"HRS/WK WRKD INCL HOME J#2 92",
"HRP JOB#2 92",
"HRS/WK WRKD #3 92",
"HRS/WK WRKD @ HOME JOB #3 92",
"HRS/WK WRKD INCL HOME J#3 92",
"HRS/WK WRKD INCL HOME J#3 92",
"HRP JOB#3 92",
"HRS/WK WRKD #4 92",
"HRS/WK WRKD @ HOME JOB #4 92",
"HRS/WK WRKD INCL HOME J#4 92",
"HRS/WK WRKD INCL HOME J#4 92",
"HRP JOB#4 92",
"HRS/WK WRKD #5 92",
"HRS/WK WRKD @ HOME JOB #5 92",
"HRS/WK WRKD INCL HOME J#5 92",
"HRS/WK WRKD INCL HOME J#5 92",
"HRP JOB#5 92",
"HGC AS OF 05/01/92 SRVY YR",
"HIGHEST GRADE COMPLTD (REV) 92",
"HGHST GRADE/YR COMPLTD & GOT CREDIT 93",
"HOURS PER WEEK WORKED 93",
"HRS PER WEEK WORKED AT HOME 93",
"HRS PER WK ABV INCL HRS AT HOME? 93",
"HOURS PER WEEK WORKED 93",
"HRS PER WEEK WORKED AT HOME 93",
"HRS PER WK ABV INCL HRS AT HOME? 93",
"TTL HRS WRKD AT HOME OR BSNS 93",
"HOURS PER WEEK WORKED 93",
"HRS PER WEEK WORKED AT HOME 93",
"HRS PER WK ABV INCL HRS AT HOME? 93",
"TTL HRS WRKD AT HOME OR BSNS 93",
"HOURS PER WEEK WORKED 93",
"HRS PER WEEK WORKED AT HOME 93",
"HRS PER WK ABV INCL HRS AT HOME? 93",
"TTL HRS WRKD AT HOME OR BSNS 93",
"HOURS PER WEEK WORKED 93",
"HRS PER WEEK WORKED AT HOME 93",
"HRS PER WK ABV INCL HRS AT HOME? 93",
"HRLY RATE OF PAY CPS JOB 93",
"HRLY RATE OF PAY JOB#1 93",
"HRLY RATE OF PAY JOB#2 93",
"HRLY RATE OF PAY JOB#3 93",
"HRLY RATE OF PAY JOB#4 93",
"HRLY RATE OF PAY JOB#5 93",
"HIGHEST GRADE COMPLTD 93",
"HIGHEST GRADE COMPLTD (REV) 93",
"HGHST GRADE/YR COMPLTD & GOT CREDIT 94",
"HOURS PER WEEK WORKED 94",
"HRS PER WEEK WORKED AT HOME 94",
"HRS PER WK ABV INCL HRS AT HOME? 94",
"TTL HRS WRKD AT HOME OR BSNS 94",
"HOURS PER WEEK WORKED 94",
"HRS PER WEEK WORKED AT HOME 94",
"HRS PER WK ABV INCL HRS AT HOME? 94",
"TTL HRS WRKD AT HOME OR BSNS 94",
"HOURS PER WEEK WORKED 94",
"HRS PER WEEK WORKED AT HOME 94",
"HRS PER WK ABV INCL HRS AT HOME? 94",
"TTL HRS WRKD AT HOME OR BSNS 94",
"HOURS PER WEEK WORKED 94",
"HRS PER WEEK WORKED AT HOME 94",
"HRS PER WK ABV INCL HRS AT HOME? 94",
"TTL HRS WRKD AT HOME OR BSNS 94",
"HOURS PER WEEK WORKED 94",
"HRS PER WEEK WORKED AT HOME 94",
"HRS PER WK ABV INCL HRS AT HOME? 94",
"TTL HRS WRKD AT HOME OR BSNS 94",
"HRLY RATE OF PAY CPS JOB 94",
"HRLY RATE OF PAY JOB# 1 94",
"HRLY RATE OF PAY JOB #2 94",
"HRLY RATE OF PAY JOB #3 94",
"HRLY RATE OF PAY JOB #4 94",
"HRLY RATE OF PAY JOB #5 94",
"HIGHEST GRADE COMPLTD 94",
"HIGHEST GRADE COMPLTD (REV) 94",
"HRLY RATE OF PAY JOB #1 96",
"HRLY RATE OF PAY JOB #2 96",
"HRLY RATE OF PAY JOB #3 96",
"HRLY RATE OF PAY JOB #4 96",
"HRLY RATE OF PAY JOB #5 96",
"HIGHEST GRADE COMPLTD 96",
"HIGHEST GRADE COMPLTD (REV) 96",
"HGHST GRADE/YR COMPLTD & GOT CREDIT 96",
"HOURS PER WEEK WORKED JOB #1 96",
"HRS PER WEEK WORKED AT HOME JOB #1 96",
"HRS PER WK ABV INCL HRS AT HOME? JOB1 96",
"TTL HRS WRKD AT HOME OR BUS JOB #1 96",
"HOURS PER WEEK WORKED JOB #2 96",
"HRS PER WEEK WORKED AT HOME JOB #2 96",
"HRS PER WK ABV INCL HRS AT HOME? JOB2 96",
"TTL HRS WRKD AT HOME OR BUS JOB #2 96",
"HOURS PER WEEK WORKED JOB #3 96",
"HRS PER WEEK WORKED AT HOME JOB #3 96",
"HRS PER WK ABV INCL HRS AT HOME? JOB3 96",
"TTL HRS WRKD AT HOME OR BUS JOB #3 96",
"HOURS PER WEEK WORKED JOB #4 96",
"HRS PER WEEK WORKED AT HOME JOB #4 96",
"HRS PER WK ABV INCL HRS AT HOME? JOB4 96",
"TTL HRS WRKD AT HOME OR BUS JOB #4 96",
"HOURS PER WEEK WORKED JOB #5 96",
"HRS PER WEEK WORKED AT HOME JOB #5 96",
"HRS PER WK ABV INCL HRS AT HOME? JOB5 96",
"TTL HRS WRKD AT HOME OR BUS JOB #5 96",
"HGHST GRADE/YR COMPLTD & GOT CREDIT 1998",
"HOURS PER WEEK WORKED L1 1998",
"HOURS PER WEEK WORKED L2 1998",
"HOURS PER WEEK WORKED L3 1998",
"HOURS PER WEEK WORKED L4 1998",
"HOURS PER WEEK WORKED L5 1998",
"HRS PER WEEK WORKED AT HOME L1 1998",
"HRS PER WEEK WORKED AT HOME L2 1998",
"HRS PER WEEK WORKED AT HOME L3 1998",
"HRS PER WEEK WORKED AT HOME L4 1998",
"HRS PER WEEK WORKED AT HOME L5 1998",
"TTL HRS WRKD AT HOME OR BSNS L1 1998",
"TTL HRS WRKD AT HOME OR BSNS L2 1998",
"TTL HRS WRKD AT HOME OR BSNS L3 1998",
"TTL HRS WRKD AT HOME OR BSNS L4 1998",
"TTL HRS WRKD AT HOME OR BSNS L5 1998",
"HRLY RATE OF PAY JOB #01 1998",
"HRLY RATE OF PAY JOB #02 1998",
"HRLY RATE OF PAY JOB #03 1998",
"HRLY RATE OF PAY JOB #04 1998",
"HRLY RATE OF PAY JOB #05 1998",
"HIGHEST GRADE COMPLTD 1998",
"HIGHEST GRADE COMPLTD (REV) 1998",
"HRS WRKD WK - INCL HOME HRS L1 1998",
"HRS WRKD WK - INCL HOME HRS L2 1998",
"HRS WRKD WK - INCL HOME HRS L3 1998",
"HRS WRKD WK - INCL HOME HRS L4 1998",
"HRS WRKD WK - INCL HOME HRS L5 1998",
"HGHST GRADE/YR COMPLTD & GOT CREDIT 2000",
"HOURS PER WEEK WORKED L1 2000",
"HOURS PER WEEK WORKED L2 2000",
"HOURS PER WEEK WORKED L3 2000",
"HOURS PER WEEK WORKED L4 2000",
"HOURS PER WEEK WORKED L5 2000",
"HRS PER WEEK WORKED AT HOME L1 2000",
"HRS PER WEEK WORKED AT HOME L2 2000",
"HRS PER WEEK WORKED AT HOME L3 2000",
"HRS PER WEEK WORKED AT HOME L4 2000",
"HRS PER WEEK WORKED AT HOME L5 2000",
"HRS PER WK ABV INC HRS AT HOME? L1 2000",
"HRS PER WK ABV INC HRS AT HOME? L2 2000",
"HRS PER WK ABV INC HRS AT HOME? L3 2000",
"HRS PER WK ABV INC HRS AT HOME? L4 2000",
"HRS PER WK ABV INC HRS AT HOME? L5 2000",
"TTL HRS WRKD AT HOME OR BSNS L1 2000",
"TTL HRS WRKD AT HOME OR BSNS L2 2000",
"TTL HRS WRKD AT HOME OR BSNS L3 2000",
"TTL HRS WRKD AT HOME OR BSNS L4 2000",
"TTL HRS WRKD AT HOME OR BSNS L5 2000",
"HRLY RATE OF PAY JOB #01 2000",
"HRLY RATE OF PAY JOB #02 2000",
"HRLY RATE OF PAY JOB #03 2000",
"HRLY RATE OF PAY JOB #04 2000",
"HRLY RATE OF PAY JOB #05 2000",
"HIGHEST GRADE COMPLTD 2000",
"HIGHEST GRADE COMPLTD (REV) 2000",
"HRS WRKD WK - INCL HOME HRS L1 2000",
"HRS WRKD WK - INCL HOME HRS L2 2000",
"HRS WRKD WK - INCL HOME HRS L3 2000",
"HRS WRKD WK - INCL HOME HRS L4 2000",
"HRS WRKD WK - INCL HOME HRS L5 2000",
"HGHST GRADE/YR COMPLTD & GOT CREDIT 2002",
"HOURS PER WEEK WORKED L1 2002",
"HOURS PER WEEK WORKED L2 2002",
"HOURS PER WEEK WORKED L3 2002",
"HOURS PER WEEK WORKED L4 2002",
"HOURS PER WEEK WORKED L5 2002",
"HRS PER WEEK WORKED AT HOME L1 2002",
"HRS PER WEEK WORKED AT HOME L2 2002",
"HRS PER WEEK WORKED AT HOME L3 2002",
"HRS PER WEEK WORKED AT HOME L4 2002",
"HRS PER WEEK WORKED AT HOME L5 2002",
"HRS PER WK ABV INC HRS AT HOME? L1 2002",
"HRS PER WK ABV INC HRS AT HOME? L2 2002",
"HRS PER WK ABV INC HRS AT HOME? L3 2002",
"HRS PER WK ABV INC HRS AT HOME? L4 2002",
"HRS PER WK ABV INC HRS AT HOME? L5 2002",
"TTL HRS WRKD AT HOME OR BSNS L1 2002",
"TTL HRS WRKD AT HOME OR BSNS L2 2002",
"TTL HRS WRKD AT HOME OR BSNS L3 2002",
"TTL HRS WRKD AT HOME OR BSNS L4 2002",
"TTL HRS WRKD AT HOME OR BSNS L5 2002",
"HRLY RATE OF PAY JOB# 1 2002",
"HRLY RATE OF PAY JOB# 2 2002",
"HRLY RATE OF PAY JOB# 3 2002",
"HRLY RATE OF PAY JOB# 4 2002",
"HRLY RATE OF PAY JOB# 5 2002",
"HIGHEST GRADE COMPLTD 2002",
"HIGHEST GRADE COMPLTD (REV) 2002",
"HRS WRKD WK - INCL HOME HRS L1 2002",
"HRS WRKD WK - INCL HOME HRS L2 2002",
"HRS WRKD WK - INCL HOME HRS L3 2002",
"HRS WRKD WK - INCL HOME HRS L4 2002",
"HRS WRKD WK - INCL HOME HRS L5 2002",
"HGHST GRADE/YR COMPLTD & GOT CREDIT 2004",
"HRS WRKD WK - INCL HOME HRS L1 2004",
"HRS WRKD WK - INCL HOME HRS L2 2004",
"HRS WRKD WK - INCL HOME HRS L3 2004",
"HRS WRKD WK - INCL HOME HRS L4 2004",
"HRS WRKD WK - INCL HOME HRS L5 2004",
"HOURS PER WEEK WORKED L1 2004",
"HOURS PER WEEK WORKED L2 2004",
"HOURS PER WEEK WORKED L3 2004",
"HOURS PER WEEK WORKED L4 2004",
"HOURS PER WEEK WORKED L5 2004",
"HRS PER WEEK WORKED AT HOME L1 2004",
"HRS PER WEEK WORKED AT HOME L2 2004",
"HRS PER WEEK WORKED AT HOME L3 2004",
"HRS PER WEEK WORKED AT HOME L4 2004",
"HRS PER WEEK WORKED AT HOME L5 2004",
"HRS PER WK ABV INC HRS AT HOME? L1 2004",
"HRS PER WK ABV INC HRS AT HOME? L2 2004",
"HRS PER WK ABV INC HRS AT HOME? L3 2004",
"HRS PER WK ABV INC HRS AT HOME? L4 2004",
"HRS PER WK ABV INC HRS AT HOME? L5 2004",
"TTL HRS WRKD AT HOME OR BSNS L1 2004",
"TTL HRS WRKD AT HOME OR BSNS L2 2004",
"TTL HRS WRKD AT HOME OR BSNS L3 2004",
"TTL HRS WRKD AT HOME OR BSNS L4 2004",
"TTL HRS WRKD AT HOME OR BSNS L5 2004",
"HRLY RATE OF PAY JOB# 1 2004",
"HRLY RATE OF PAY JOB# 2 2004",
"HRLY RATE OF PAY JOB# 3 2004",
"HRLY RATE OF PAY JOB# 4 2004",
"HRLY RATE OF PAY JOB# 5 2004",
"HIGHEST GRADE COMPLTD 2004",
"HIGHEST GRADE COMPLTD (REV) 2004",
"HGHST GRADE/YR COMPLTD & GOT CREDIT 2006",
"HRS WRKD WK - INCL HOME HRS L1 2006",
"HRS WRKD WK - INCL HOME HRS L2 2006",
"HRS WRKD WK - INCL HOME HRS L3 2006",
"HRS WRKD WK - INCL HOME HRS L4 2006",
"HRS WRKD WK - INCL HOME HRS L5 2006",
"HOURS PER WEEK WORKED L1 2006",
"HOURS PER WEEK WORKED L2 2006",
"HOURS PER WEEK WORKED L3 2006",
"HOURS PER WEEK WORKED L4 2006",
"HOURS PER WEEK WORKED L5 2006",
"HRS PER WEEK WORKED AT HOME L1 2006",
"HRS PER WEEK WORKED AT HOME L2 2006",
"HRS PER WEEK WORKED AT HOME L3 2006",
"HRS PER WEEK WORKED AT HOME L4 2006",
"HRS PER WEEK WORKED AT HOME L5 2006",
"HRS PER WK ABV INC HRS AT HOME? L1 2006",
"HRS PER WK ABV INC HRS AT HOME? L2 2006",
"HRS PER WK ABV INC HRS AT HOME? L3 2006",
"HRS PER WK ABV INC HRS AT HOME? L4 2006",
"HRS PER WK ABV INC HRS AT HOME? L5 2006",
"TTL HRS WRKD AT HOME OR BSNS L1 2006",
"TTL HRS WRKD AT HOME OR BSNS L2 2006",
"TTL HRS WRKD AT HOME OR BSNS L3 2006",
"TTL HRS WRKD AT HOME OR BSNS L4 2006",
"TTL HRS WRKD AT HOME OR BSNS L5 2006",
"HRLY RATE OF PAY JOB #01 2006",
"HRLY RATE OF PAY JOB #02 2006",
"HRLY RATE OF PAY JOB #03 2006",
"HRLY RATE OF PAY JOB #04 2006",
"HRLY RATE OF PAY JOB #05 2006",
"HIGHEST GRADE COMPLTD 2006",
"HIGHEST GRADE COMPLTD (REV) 2006",
"HGHST GRADE/YR COMPLTD & GOT CREDIT 2008",
"HRS WRKD WK - INCL HOME HRS L1 2008",
"HRS WRKD WK - INCL HOME HRS L2 2008",
"HRS WRKD WK - INCL HOME HRS L3 2008",
"HRS WRKD WK - INCL HOME HRS L4 2008",
"HRS WRKD WK - INCL HOME HRS L5 2008",
"HOURS PER WEEK WORKED L1 2008",
"HOURS PER WEEK WORKED L2 2008",
"HOURS PER WEEK WORKED L3 2008",
"HOURS PER WEEK WORKED L4 2008",
"HOURS PER WEEK WORKED L5 2008",
"HRS PER WEEK WORKED AT HOME L1 2008",
"HRS PER WEEK WORKED AT HOME L2 2008",
"HRS PER WEEK WORKED AT HOME L3 2008",
"HRS PER WEEK WORKED AT HOME L4 2008",
"HRS PER WEEK WORKED AT HOME L5 2008",
"HRS PER WK ABV INC HRS AT HOME? L1 2008",
"HRS PER WK ABV INC HRS AT HOME? L2 2008",
"HRS PER WK ABV INC HRS AT HOME? L3 2008",
"HRS PER WK ABV INC HRS AT HOME? L4 2008",
"HRS PER WK ABV INC HRS AT HOME? L5 2008",
"TTL HRS WRKD AT HOME OR BSNS L1 2008",
"TTL HRS WRKD AT HOME OR BSNS L2 2008",
"TTL HRS WRKD AT HOME OR BSNS L3 2008",
"TTL HRS WRKD AT HOME OR BSNS L4 2008",
"HRLY RATE OF PAY JOB# 1 2008",
"HRLY RATE OF PAY JOB# 2 2008",
"HRLY RATE OF PAY JOB# 3 2008",
"HRLY RATE OF PAY JOB# 4 2008",
"HRLY RATE OF PAY JOB# 5 2008",
"HIGHEST GRADE COMPLTD 2008",
"HIGHEST GRADE COMPLTD (REV) 2008",
"HGHST GRADE/YR COMPLTD & GOT CREDIT 2010",
"HRS WRKD WK - INCL HOME HRS L1 2010",
"HRS WRKD WK - INCL HOME HRS L2 2010",
"HRS WRKD WK - INCL HOME HRS L3 2010",
"HRS WRKD WK - INCL HOME HRS L4 2010",
"HRS WRKD WK - INCL HOME HRS L5 2010",
"HOURS PER WEEK WORKED L1 2010",
"HOURS PER WEEK WORKED L2 2010",
"HOURS PER WEEK WORKED L3 2010",
"HOURS PER WEEK WORKED L4 2010",
"HOURS PER WEEK WORKED L5 2010",
"HRS PER WEEK WORKED AT HOME L1 2010",
"HRS PER WEEK WORKED AT HOME L2 2010",
"HRS PER WEEK WORKED AT HOME L3 2010",
"HRS PER WEEK WORKED AT HOME L4 2010",
"HRS PER WEEK WORKED AT HOME L5 2010",
"HRS PER WK ABV INC HRS AT HOME? L1 2010",
"HRS PER WK ABV INC HRS AT HOME? L2 2010",
"HRS PER WK ABV INC HRS AT HOME? L3 2010",
"HRS PER WK ABV INC HRS AT HOME? L4 2010",
"HRS PER WK ABV INC HRS AT HOME? L5 2010",
"TTL HRS WRKD AT HOME OR BSNS L1 2010",
"TTL HRS WRKD AT HOME OR BSNS L2 2010",
"TTL HRS WRKD AT HOME OR BSNS L3 2010",
"TTL HRS WRKD AT HOME OR BSNS L4 2010",
"TTL HRS WRKD AT HOME OR BSNS L5 2010",
"HRLY RATE OF PAY JOB# 1 2010",
"HRLY RATE OF PAY JOB# 2 2010",
"HRLY RATE OF PAY JOB# 3 2010",
"HRLY RATE OF PAY JOB# 4 2010",
"HRLY RATE OF PAY JOB# 5 2010",
"HIGHEST GRADE COMPLTD 2010",
"HIGHEST GRADE COMPLTD (REV) 2010",
"HGHST GRADE/YR COMPLTD & GOT CREDIT 2012",
"HRS WRKD WK - INCL HOME HRS L1 2012",
"HRS WRKD WK - INCL HOME HRS L2 2012",
"HRS WRKD WK - INCL HOME HRS L3 2012",
"HRS WRKD WK - INCL HOME HRS L4 2012",
"HRS WRKD WK - INCL HOME HRS L5 2012",
"HOURS PER WEEK WORKED L1 2012",
"HOURS PER WEEK WORKED L2 2012",
"HOURS PER WEEK WORKED L3 2012",
"HOURS PER WEEK WORKED L4 2012",
"HOURS PER WEEK WORKED L5 2012",
"HRS PER WEEK WORKED AT HOME L1 2012",
"HRS PER WEEK WORKED AT HOME L2 2012",
"HRS PER WEEK WORKED AT HOME L3 2012",
"HRS PER WEEK WORKED AT HOME L4 2012",
"HRS PER WEEK WORKED AT HOME L5 2012",
"HRS PER WK ABV INC HRS AT HOME? L1 2012",
"HRS PER WK ABV INC HRS AT HOME? L2 2012",
"HRS PER WK ABV INC HRS AT HOME? L3 2012",
"HRS PER WK ABV INC HRS AT HOME? L4 2012",
"HRS PER WK ABV INC HRS AT HOME? L5 2012",
"TTL HRS WRKD AT HOME OR BSNS L1 2012",
"TTL HRS WRKD AT HOME OR BSNS L2 2012",
"TTL HRS WRKD AT HOME OR BSNS L3 2012",
"TTL HRS WRKD AT HOME OR BSNS L4 2012",
"TTL HRS WRKD AT HOME OR BSNS L5 2012",
"HRLY RATE OF PAY JOB# 1 2012",
"HRLY RATE OF PAY JOB# 2 2012",
"HRLY RATE OF PAY JOB# 3 2012",
"HRLY RATE OF PAY JOB# 4 2012",
"HRLY RATE OF PAY JOB# 5 2012",
"HIGHEST GRADE COMPLTD 2012",
"HGHST GRADE/YR COMPLTD & GOT CREDIT 2014",
"HRS WRKD WK - INCL HOME HRS L1 2014",
"HRS WRKD WK - INCL HOME HRS L2 2014",
"HRS WRKD WK - INCL HOME HRS L3 2014",
"HRS WRKD WK - INCL HOME HRS L4 2014",
"HRS WRKD WK - INCL HOME HRS L5 2014",
"TTL HRS WRKD AT HOME OR BSNS L1 2014",
"TTL HRS WRKD AT HOME OR BSNS L2 2014",
"TTL HRS WRKD AT HOME OR BSNS L3 2014",
"TTL HRS WRKD AT HOME OR BSNS L4 2014",
"TTL HRS WRKD AT HOME OR BSNS L5 2014",
"HRS PER WEEK WORKED AT HOME L1 2014",
"HRS PER WEEK WORKED AT HOME L2 2014",
"HRS PER WEEK WORKED AT HOME L3 2014",
"HRS PER WEEK WORKED AT HOME L4 2014",
"HRS PER WEEK WORKED AT HOME L5 2014",
"HRLY RATE OF PAY JOB# 1 2014",
"HRLY RATE OF PAY JOB# 2 2014",
"HRLY RATE OF PAY JOB# 3 2014",
"HRLY RATE OF PAY JOB# 4 2014",
"HRLY RATE OF PAY JOB# 5 2014",
"HIGHEST GRADE COMPLTD 2014",
"HGHST GRADE/YR COMPLTD & GOT CREDIT 2016",
"HRS WRKD WK - INCL HOME HRS L1 2016",
"HRS WRKD WK - INCL HOME HRS L2 2016",
"HRS WRKD WK - INCL HOME HRS L3 2016",
"HRS WRKD WK - INCL HOME HRS L4 2016",
"HRS WRKD WK - INCL HOME HRS L5 2016",
"TTL HRS WRKD AT HOME OR BSNS L1 2016",
"TTL HRS WRKD AT HOME OR BSNS L2 2016",
"TTL HRS WRKD AT HOME OR BSNS L3 2016",
"TTL HRS WRKD AT HOME OR BSNS L4 2016",
"TTL HRS WRKD AT HOME OR BSNS L5 2016",
"HRS PER WEEK WORKED AT HOME L1 2016",
"HRS PER WEEK WORKED AT HOME L2 2016",
"HRS PER WEEK WORKED AT HOME L3 2016",
"HRS PER WEEK WORKED AT HOME L4 2016",
"HRS PER WEEK WORKED AT HOME L5 2016",
"HRLY RATE OF PAY JOB# 1 2016",
"HRLY RATE OF PAY JOB# 2 2016",
"HRLY RATE OF PAY JOB# 3 2016",
"HRLY RATE OF PAY JOB# 4 2016",
"HRLY RATE OF PAY JOB# 5 2016",
"HIGHEST GRADE COMPLTD 2016",
"HGHST GRADE/YR COMPLTD & GOT CREDIT 2018",
"TTL HRS WRKD AT HOME OR BSNS L1 2018",
"TTL HRS WRKD AT HOME OR BSNS L2 2018",
"TTL HRS WRKD AT HOME OR BSNS L3 2018",
"TTL HRS WRKD AT HOME OR BSNS L4 2018",
"TTL HRS WRKD AT HOME OR BSNS L5 2018",
"HRS PER WEEK WORKED AT HOME L1 2018",
"HRS PER WEEK WORKED AT HOME L2 2018",
"HRS PER WEEK WORKED AT HOME L3 2018",
"HRS PER WEEK WORKED AT HOME L4 2018",
"HRS PER WEEK WORKED AT HOME L5 2018",
"HRS WRKD WK - INCL HOME HRS L1 2018",
"HRS WRKD WK - INCL HOME HRS L2 2018",
"HRS WRKD WK - INCL HOME HRS L3 2018",
"HRS WRKD WK - INCL HOME HRS L4 2018",
"HRS WRKD WK - INCL HOME HRS L5 2018",
"HRLY RATE OF PAY JOB# 1 2018",
"HRLY RATE OF PAY JOB# 2 2018",
"HRLY RATE OF PAY JOB# 3 2018",
"HRLY RATE OF PAY JOB# 4 2018",
"HRLY RATE OF PAY JOB# 5 2018",
"HIGHEST GRADE EVER COMPLETED XRND"
)
# Use qnames rather than rnums
qnames = function(data) {
names(data) <- c("CASEID_1979",
"Q1-3_A~M_1979",
"Q1-3_A~Y_1979",
"Q3-4_1979",
"CPSHRP_1979",
"QES-52A.01_1979",
"QES-52A.02_1979",
"QES-52A.03_1979",
"QES-52A.04_1979",
"QES-52A.05_1979",
"HRP1_1979",
"HRP2_1979",
"HRP3_1979",
"HRP4_1979",
"HRP5_1979",
"SAMPLE_ID_1979",
"SAMPLE_RACE_78SCRN",
"SAMPLE_SEX_1979",
"HGC_1979",
"HGCREV79_1979",
"Q3-4_1980",
"CPSHRP_1980",
"QES-52A.01_1980",
"HRP1_1980",
"QES-52A.02_1980",
"HRP2_1980",
"QES-52A.03_1980",
"HRP3_1980",
"QES-52A.04_1980",
"HRP4_1980",
"QES-52A.05_1980",
"HRP5_1980",
"HGC_1980",
"HGCREV80_1980",
"Q1-3_A~M_1981",
"Q1-3_A~Y_1981",
"Q3-4_1981",
"CPSHRP_1981",
"QES-52A.01_1981",
"HRP1_1981",
"QES-52A.02_1981",
"HRP2_1981",
"QES-52A.03_1981",
"HRP3_1981",
"QES-52A.04_1981",
"HRP4_1981",
"QES-52A.05_1981",
"HRP5_1981",
"HGC_1981",
"HGCREV81_1981",
"Q3-4_1982",
"CPSHRP_1982",
"QES-52A.01_1982",
"HRP1_1982",
"QES-52A.02_1982",
"HRP2_1982",
"QES-52A.03_1982",
"HRP3_1982",
"QES-52A.04_1982",
"HRP4_1982",
"QES-52A.05_1982",
"HRP5_1982",
"HGC_1982",
"HGCREV82_1982",
"Q3-4_1983",
"CPSHRP_1983",
"QES-52A.01_1983",
"HRP1_1983",
"QES-52A.02_1983",
"HRP2_1983",
"QES-52A.03_1983",
"HRP3_1983",
"QES-52A.04_1983",
"HRP4_1983",
"QES-52A.05_1983",
"HRP5_1983",
"HGC_1983",
"HGCREV83_1983",
"Q3-4_1984",
"CPSHRP_1984",
"QES-52A.01_1984",
"HRP1_1984",
"QES-52A.02_1984",
"HRP2_1984",
"QES-52A.03_1984",
"HRP3_1984",
"QES-52A.04_1984",
"HRP4_1984",
"QES-52A.05_1984",
"HRP5_1984",
"HGC_1984",
"HGCREV84_1984",
"Q3-4_1985",
"CPSHRP_1985",
"QES-52A.01_1985",
"HRP1_1985",
"QES-52A.02_1985",
"HRP2_1985",
"QES-52A.03_1985",
"HRP3_1985",
"QES-52A.04_1985",
"HRP4_1985",
"QES-52A.05_1985",
"HRP5_1985",
"HGC_1985",
"HGCREV85_1985",
"Q3-4_1986",
"CPSHRP_1986",
"QES-52A.01_1986",
"HRP1_1986",
"QES-52A.02_1986",
"HRP2_1986",
"QES-52A.03_1986",
"HRP3_1986",
"QES-52A.04_1986",
"HRP4_1986",
"QES-52A.05_1986",
"HRP5_1986",
"HGC_1986",
"HGCREV86_1986",
"Q3-4_1987",
"CPSHRP_1987",
"QES-52A.01_1987",
"HRP1_1987",
"QES-52A.02_1987",
"HRP2_1987",
"QES-52A.03_1987",
"HRP3_1987",
"QES-52A.04_1987",
"HRP4_1987",
"QES-52A.05_1987",
"HRP5_1987",
"HGC_1987",
"HGCREV87_1987",
"Q3-4_1988",
"CPSHRP_1988",
"QES-52A.01_1988",
"QES-52B.01_1988",
"QES-52C.01_1988",
"QES-52D.01_1988",
"HRP1_1988",
"QES-52A.02_1988",
"QES-52B.02_1988",
"QES-52C.02_1988",
"QES-52D.02_1988",
"HRP2_1988",
"QES-52A.03_1988",
"QES-52B.03_1988",
"QES-52C.03_1988",
"QES-52D.03_1988",
"HRP3_1988",
"QES-52A.04_1988",
"QES-52B.04_1988",
"QES-52C.04_1988",
"QES-52D.04_1988",
"HRP4_1988",
"QES-52A.05_1988",
"QES-52B.05_1988",
"QES-52C.05_1988",
"QES-52D.05_1988",
"HRP5_1988",
"HGC_1988",
"HGCREV88_1988",
"Q3-4_1989",
"CPSHRP_1989",
"QES-52A.01_1989",
"QES-52B.01_1989",
"QES-52C.01_1989",
"QES-52D.01_1989",
"HRP1_1989",
"QES-52A.02_1989",
"QES-52B.02_1989",
"QES-52C.02_1989",
"QES-52D.02_1989",
"HRP2_1989",
"QES-52A.03_1989",
"QES-52B.03_1989",
"QES-52C.03_1989",
"QES-52D.03_1989",
"HRP3_1989",
"QES-52A.04_1989",
"QES-52B.04_1989",
"QES-52C.04_1989",
"QES-52D.04_1989",
"HRP4_1989",
"QES-52A.05_1989",
"QES-52B.05_1989",
"QES-52C.05_1989",
"QES-52D.05_1989",
"HRP5_1989",
"HGC_1989",
"HGCREV89_1989",
"Q3-4_1990",
"CPSHRP_1990",
"QES-52A.01_1990",
"QES-52B.01_1990",
"QES-52C.01_1990",
"QES-52D.01_1990",
"HRP1_1990",
"QES-52A.02_1990",
"QES-52B.02_1990",
"QES-52C.02_1990",
"QES-52D.02_1990",
"HRP2_1990",
"QES-52A.03_1990",
"QES-52B.03_1990",
"QES-52C.03_1990",
"QES-52D.03_1990",
"HRP3_1990",
"QES-52A.04_1990",
"QES-52B.04_1990",
"QES-52C.04_1990",
"QES-52D.04_1990",
"HRP4_1990",
"QES-52A.05_1990",
"QES-52B.05_1990",
"QES-52C.05_1990",
"QES-52D.05_1990",
"HRP5_1990",
"HGC_1990",
"HGCREV90_1990",
"Q3-4_1991",
"CPSHRP_1991",
"QES-52A.01_1991",
"QES-52B.01_1991",
"QES-52C.01_1991",
"QES-52D.01_1991",
"HRP1_1991",
"QES-52A.02_1991",
"QES-52B.02_1991",
"QES-52C.02_1991",
"QES-52D.02_1991",
"HRP2_1991",
"QES-52A.03_1991",
"QES-52B.03_1991",
"QES-52C.03_1991",
"QES-52D.03_1991",
"HRP3_1991",
"QES-52A.04_1991",
"QES-52B.04_1991",
"QES-52C.04_1991",
"QES-52D.04_1991",
"HRP4_1991",
"QES-52A.05_1991",
"QES-52B.05_1991",
"QES-52C.05_1991",
"QES-52D.05_1991",
"HRP5_1991",
"HGC_1991",
"HGCREV91_1991",
"Q3-4_1992",
"CPSHRP_1992",
"QES-52A.01_1992",
"QES-52B.01_1992",
"QES-52C.01_1992",
"QES-52D.01_1992",
"HRP1_1992",
"QES-52A.02_1992",
"QES-52B.02_1992",
"QES-52C.02_1992",
"QES-52D.02_1992",
"HRP2_1992",
"QES-52A.03_1992",
"QES-52B.03_1992",
"QES-52C.03_1992",
"QES-52D.03_1992",
"HRP3_1992",
"QES-52A.04_1992",
"QES-52B.04_1992",
"QES-52C.04_1992",
"QES-52D.04_1992",
"HRP4_1992",
"QES-52A.05_1992",
"QES-52B.05_1992",
"QES-52C.05_1992",
"QES-52D.05_1992",
"HRP5_1992",
"HGC_1992",
"HGCREV92_1992",
"Q3-4_1993",
"QES-52A.01_1993",
"QES-52B.01_1993",
"QES-52C.01_1993",
"QES-52A.02_1993",
"QES-52B.02_1993",
"QES-52C.02_1993",
"QES-52D.02_1993",
"QES-52A.03_1993",
"QES-52B.03_1993",
"QES-52C.03_1993",
"QES-52D.03_1993",
"QES-52A.04_1993",
"QES-52B.04_1993",
"QES-52C.04_1993",
"QES-52D.04_1993",
"QES-52A.05_1993",
"QES-52B.05_1993",
"QES-52C.05_1993",
"CPSHRP_1993",
"HRP1_1993",
"HRP2_1993",
"HRP3_1993",
"HRP4_1993",
"HRP5_1993",
"HGC_1993",
"HGCREV93_1993",
"Q3-4_1994",
"QES-52A.01_1994",
"QES-52B.01_1994",
"QES-52C.01_1994",
"QES-52D.01_1994",
"QES-52A.02_1994",
"QES-52B.02_1994",
"QES-52C.02_1994",
"QES-52D.02_1994",
"QES-52A.03_1994",
"QES-52B.03_1994",
"QES-52C.03_1994",
"QES-52D.03_1994",
"QES-52A.04_1994",
"QES-52B.04_1994",
"QES-52C.04_1994",
"QES-52D.04_1994",
"QES-52A.05_1994",
"QES-52B.05_1994",
"QES-52C.05_1994",
"QES-52D.05_1994",
"CPSHRP_1994",
"HRP1_1994",
"HRP2_1994",
"HRP3_1994",
"HRP4_1994",
"HRP5_1994",
"HGC_1994",
"HGCREV94_1994",
"HRP1_1996",
"HRP2_1996",
"HRP3_1996",
"HRP4_1996",
"HRP5_1996",
"HGC_1996",
"HGCREV96_1996",
"Q3-4_1996",
"QES-52A.01_1996",
"QES-52B.01_1996",
"QES-52C.01_1996",
"QES-52D.01_1996",
"QES-52A.02_1996",
"QES-52B.02_1996",
"QES-52C.02_1996",
"QES-52D.02_1996",
"QES-52A.03_1996",
"QES-52B.03_1996",
"QES-52C.03_1996",
"QES-52D.03_1996",
"QES-52A.04_1996",
"QES-52B.04_1996",
"QES-52C.04_1996",
"QES-52D.04_1996",
"QES-52A.05_1996",
"QES-52B.05_1996",
"QES-52C.05_1996",
"QES-52D.05_1996",
"Q3-4_1998",
"QES-52A.01_1998",
"QES-52A.02_1998",
"QES-52A.03_1998",
"QES-52A.04_1998",
"QES-52A.05_1998",
"QES-52B.01_1998",
"QES-52B.02_1998",
"QES-52B.03_1998",
"QES-52B.04_1998",
"QES-52B.05_1998",
"QES-52D.01_1998",
"QES-52D.02_1998",
"QES-52D.03_1998",
"QES-52D.04_1998",
"QES-52D.05_1998",
"HRP1_1998",
"HRP2_1998",
"HRP3_1998",
"HRP4_1998",
"HRP5_1998",
"HGC_1998",
"HGCREV98_1998",
"HOURS_WORKED_WEEK_ALL.01_1998",
"HOURS_WORKED_WEEK_ALL.02_1998",
"HOURS_WORKED_WEEK_ALL.03_1998",
"HOURS_WORKED_WEEK_ALL.04_1998",
"HOURS_WORKED_WEEK_ALL.05_1998",
"Q3-4_2000",
"QES-52A.01_2000",
"QES-52A.02_2000",
"QES-52A.03_2000",
"QES-52A.04_2000",
"QES-52A.05_2000",
"QES-52B.01_2000",
"QES-52B.02_2000",
"QES-52B.03_2000",
"QES-52B.04_2000",
"QES-52B.05_2000",
"QES-52C.01_2000",
"QES-52C.02_2000",
"QES-52C.03_2000",
"QES-52C.04_2000",
"QES-52C.05_2000",
"QES-52D.01_2000",
"QES-52D.02_2000",
"QES-52D.03_2000",
"QES-52D.04_2000",
"QES-52D.05_2000",
"HRP1_2000",
"HRP2_2000",
"HRP3_2000",
"HRP4_2000",
"HRP5_2000",
"HGC_2000",
"HGCREV00_2000",
"HOURS_WORKED_WEEK_ALL.01_2000",
"HOURS_WORKED_WEEK_ALL.02_2000",
"HOURS_WORKED_WEEK_ALL.03_2000",
"HOURS_WORKED_WEEK_ALL.04_2000",
"HOURS_WORKED_WEEK_ALL.05_2000",
"Q3-4_2002",
"QES-52A.01_2002",
"QES-52A.02_2002",
"QES-52A.03_2002",
"QES-52A.04_2002",
"QES-52A.05_2002",
"QES-52B.01_2002",
"QES-52B.02_2002",
"QES-52B.03_2002",
"QES-52B.04_2002",
"QES-52B.05_2002",
"QES-52C.01_2002",
"QES-52C.02_2002",
"QES-52C.03_2002",
"QES-52C.04_2002",
"QES-52C.05_2002",
"QES-52D.01_2002",
"QES-52D.02_2002",
"QES-52D.03_2002",
"QES-52D.04_2002",
"QES-52D.05_2002",
"HRP1_2002",
"HRP2_2002",
"HRP3_2002",
"HRP4_2002",
"HRP5_2002",
"HGC_2002",
"HGCREV02_2002",
"HOURS_WORKED_WEEK_ALL.01_2002",
"HOURS_WORKED_WEEK_ALL.02_2002",
"HOURS_WORKED_WEEK_ALL.03_2002",
"HOURS_WORKED_WEEK_ALL.04_2002",
"HOURS_WORKED_WEEK_ALL.05_2002",
"Q3-4_2004",
"HOURS_WORKED_WEEK_ALL.01_2004",
"HOURS_WORKED_WEEK_ALL.02_2004",
"HOURS_WORKED_WEEK_ALL.03_2004",
"HOURS_WORKED_WEEK_ALL.04_2004",
"HOURS_WORKED_WEEK_ALL.05_2004",
"QES-52A.01_2004",
"QES-52A.02_2004",
"QES-52A.03_2004",
"QES-52A.04_2004",
"QES-52A.05_2004",
"QES-52B.01_2004",
"QES-52B.02_2004",
"QES-52B.03_2004",
"QES-52B.04_2004",
"QES-52B.05_2004",
"QES-52C.01_2004",
"QES-52C.02_2004",
"QES-52C.03_2004",
"QES-52C.04_2004",
"QES-52C.05_2004",
"QES-52D.01_2004",
"QES-52D.02_2004",
"QES-52D.03_2004",
"QES-52D.04_2004",
"QES-52D.05_2004",
"HRP1_2004",
"HRP2_2004",
"HRP3_2004",
"HRP4_2004",
"HRP5_2004",
"HGC_2004",
"HGCREV04_2004",
"Q3-4_2006",
"HOURS_WORKED_WEEK_ALL.01_2006",
"HOURS_WORKED_WEEK_ALL.02_2006",
"HOURS_WORKED_WEEK_ALL.03_2006",
"HOURS_WORKED_WEEK_ALL.04_2006",
"HOURS_WORKED_WEEK_ALL.05_2006",
"QES-52A.01_2006",
"QES-52A.02_2006",
"QES-52A.03_2006",
"QES-52A.04_2006",
"QES-52A.05_2006",
"QES-52B.01_2006",
"QES-52B.02_2006",
"QES-52B.03_2006",
"QES-52B.04_2006",
"QES-52B.05_2006",
"QES-52C.01_2006",
"QES-52C.02_2006",
"QES-52C.03_2006",
"QES-52C.04_2006",
"QES-52C.05_2006",
"QES-52D.01_2006",
"QES-52D.02_2006",
"QES-52D.03_2006",
"QES-52D.04_2006",
"QES-52D.05_2006",
"HRP1_2006",
"HRP2_2006",
"HRP3_2006",
"HRP4_2006",
"HRP5_2006",
"HGC_2006",
"HGCREV06_2006",
"Q3-4_2008",
"HOURS_WORKED_WEEK_ALL.01_2008",
"HOURS_WORKED_WEEK_ALL.02_2008",
"HOURS_WORKED_WEEK_ALL.03_2008",
"HOURS_WORKED_WEEK_ALL.04_2008",
"HOURS_WORKED_WEEK_ALL.05_2008",
"QES-52A.01_2008",
"QES-52A.02_2008",
"QES-52A.03_2008",
"QES-52A.04_2008",
"QES-52A.05_2008",
"QES-52B.01_2008",
"QES-52B.02_2008",
"QES-52B.03_2008",
"QES-52B.04_2008",
"QES-52B.05_2008",
"QES-52C.01_2008",
"QES-52C.02_2008",
"QES-52C.03_2008",
"QES-52C.04_2008",
"QES-52C.05_2008",
"QES-52D.01_2008",
"QES-52D.02_2008",
"QES-52D.03_2008",
"QES-52D.04_2008",
"HRP1_2008",
"HRP2_2008",
"HRP3_2008",
"HRP4_2008",
"HRP5_2008",
"HGC_2008",
"HGCREV08_2008",
"Q3-4_2010",
"HOURS_WORKED_WEEK_ALL.01_2010",
"HOURS_WORKED_WEEK_ALL.02_2010",
"HOURS_WORKED_WEEK_ALL.03_2010",
"HOURS_WORKED_WEEK_ALL.04_2010",
"HOURS_WORKED_WEEK_ALL.05_2010",
"QES-52A.01_2010",
"QES-52A.02_2010",
"QES-52A.03_2010",
"QES-52A.04_2010",
"QES-52A.05_2010",
"QES-52B.01_2010",
"QES-52B.02_2010",
"QES-52B.03_2010",
"QES-52B.04_2010",
"QES-52B.05_2010",
"QES-52C.01_2010",
"QES-52C.02_2010",
"QES-52C.03_2010",
"QES-52C.04_2010",
"QES-52C.05_2010",
"QES-52D.01_2010",
"QES-52D.02_2010",
"QES-52D.03_2010",
"QES-52D.04_2010",
"QES-52D.05_2010",
"HRP1_2010",
"HRP2_2010",
"HRP3_2010",
"HRP4_2010",
"HRP5_2010",
"HGC_2010",
"HGCREV10_2010",
"Q3-4_2012",
"HOURS_WORKED_WEEK_ALL.01_2012",
"HOURS_WORKED_WEEK_ALL.02_2012",
"HOURS_WORKED_WEEK_ALL.03_2012",
"HOURS_WORKED_WEEK_ALL.04_2012",
"HOURS_WORKED_WEEK_ALL.05_2012",
"QES-52A.01_2012",
"QES-52A.02_2012",
"QES-52A.03_2012",
"QES-52A.04_2012",
"QES-52A.05_2012",
"QES-52B.01_2012",
"QES-52B.02_2012",
"QES-52B.03_2012",
"QES-52B.04_2012",
"QES-52B.05_2012",
"QES-52C.01_2012",
"QES-52C.02_2012",
"QES-52C.03_2012",
"QES-52C.04_2012",
"QES-52C.05_2012",
"QES-52D.01_2012",
"QES-52D.02_2012",
"QES-52D.03_2012",
"QES-52D.04_2012",
"QES-52D.05_2012",
"HRP1_2012",
"HRP2_2012",
"HRP3_2012",
"HRP4_2012",
"HRP5_2012",
"HGC_2012",
"Q3-4_2014",
"HOURS_WORKED_WEEK_ALL.01_2014",
"HOURS_WORKED_WEEK_ALL.02_2014",
"HOURS_WORKED_WEEK_ALL.03_2014",
"HOURS_WORKED_WEEK_ALL.04_2014",
"HOURS_WORKED_WEEK_ALL.05_2014",
"QES-52D.01_2014",
"QES-52D.02_2014",
"QES-52D.03_2014",
"QES-52D.04_2014",
"QES-52D.05_2014",
"QES-52B.01_2014",
"QES-52B.02_2014",
"QES-52B.03_2014",
"QES-52B.04_2014",
"QES-52B.05_2014",
"HRP1_2014",
"HRP2_2014",
"HRP3_2014",
"HRP4_2014",
"HRP5_2014",
"HGC_2014",
"Q3-4_2016",
"HOURS_WORKED_WEEK_ALL.01_2016",
"HOURS_WORKED_WEEK_ALL.02_2016",
"HOURS_WORKED_WEEK_ALL.03_2016",
"HOURS_WORKED_WEEK_ALL.04_2016",
"HOURS_WORKED_WEEK_ALL.05_2016",
"QES-52D.01_2016",
"QES-52D.02_2016",
"QES-52D.03_2016",
"QES-52D.04_2016",
"QES-52D.05_2016",
"QES-52B.01_2016",
"QES-52B.02_2016",
"QES-52B.03_2016",
"QES-52B.04_2016",
"QES-52B.05_2016",
"HRP1_2016",
"HRP2_2016",
"HRP3_2016",
"HRP4_2016",
"HRP5_2016",
"HGC_2016",
"Q3-4_2018",
"QES-52D.01_2018",
"QES-52D.02_2018",
"QES-52D.03_2018",
"QES-52D.04_2018",
"QES-52D.05_2018",
"QES-52B.01_2018",
"QES-52B.02_2018",
"QES-52B.03_2018",
"QES-52B.04_2018",
"QES-52B.05_2018",
"HOURS_WORKED_WEEK_ALL.01_2018",
"HOURS_WORKED_WEEK_ALL.02_2018",
"HOURS_WORKED_WEEK_ALL.03_2018",
"HOURS_WORKED_WEEK_ALL.04_2018",
"HOURS_WORKED_WEEK_ALL.05_2018",
"HRP1_2018",
"HRP2_2018",
"HRP3_2018",
"HRP4_2018",
"HRP5_2018",
"HGC_EVER_XRND")
return(data)
}
#********************************************************************************************************
# Remove the '#' before the following line to create a data file called "categories" with value labels.
categories <- vallabels(new_data)
# Remove the '#' before the following lines to rename variables using Qnames instead of Reference Numbers
new_data_qnames <- qnames(new_data)
categories_qnames <- qnames(categories)
# Produce summaries for the raw (uncategorized) data file
#summary(new_data)
# Remove the '#' before the following lines to produce summaries for the "categories" data file.
#categories <- vallabels(new_data)
#summary(categories)
#************************************************************************************************************The above source code creates a data set new_data_qnames and categories_qnames. As shown below, the column names contain information on the job number (HRP1 = job 1, HRP2 = job 2, …, HRP5 = job 5) and the year information.
new_data_qnames %>%
select(CASEID_1979,
starts_with("HRP") &
ends_with(c("1979", "1980")),
everything()) %>%
str(list.len = 10)
#> 'data.frame': 12686 obs. of 686 variables:
#> $ CASEID_1979 : int 1 2 3 4 5 6 7 8 9 10 ...
#> $ HRP1_1979 : int 328 385 365 NA 310 NA NA NA 214 NA ...
#> $ HRP2_1979 : int NA NA NA NA 375 NA NA NA NA NA ...
#> $ HRP3_1979 : int NA NA 275 NA NA NA NA NA NA NA ...
#> $ HRP4_1979 : int NA NA NA NA NA 250 NA NA NA NA ...
#> $ HRP5_1979 : int NA NA NA NA NA NA NA NA NA NA ...
#> $ HRP1_1980 : int NA 457 397 NA 333 275 300 394 200 318 ...
#> $ HRP2_1980 : int NA NA 367 NA NA NA NA NA NA NA ...
#> $ HRP3_1980 : int NA NA 380 NA NA NA 290 NA NA NA ...
#> $ HRP4_1980 : int NA NA NA NA NA NA NA NA NA NA ...
#> [list output truncated]
str(categories_qnames, list.len = 20)
#> 'data.frame': 12686 obs. of 686 variables:
#> $ CASEID_1979 : int 1 2 3 4 5 6 7 8 9 10 ...
#> $ Q1-3_A~M_1979 : Factor w/ 18 levels "0: < 1","1","2",..: 10 2 9 9 8 11 7 8 8 11 ...
#> $ Q1-3_A~Y_1979 : Factor w/ 18 levels "0 TO 56: < 57",..: 3 4 6 7 4 5 9 3 8 5 ...
#> $ Q3-4_1979 : Factor w/ 22 levels "NONE","1ST GRADE",..: 13 10 11 10 14 13 9 13 10 10 ...
#> $ CPSHRP_1979 : Factor w/ 12 levels "0","1 TO 99",..: 5 5 5 NA 5 NA NA NA 4 NA ...
#> $ QES-52A.01_1979 : Factor w/ 12 levels "0","1 TO 9","10 TO 19",..: 5 5 5 NA 3 NA NA 4 2 NA ...
#> $ QES-52A.02_1979 : Factor w/ 12 levels "0","1 TO 9","10 TO 19",..: 3 NA NA NA 6 6 NA NA NA NA ...
#> $ QES-52A.03_1979 : Factor w/ 12 levels "0","1 TO 9","10 TO 19",..: NA NA 6 NA NA 2 NA NA NA NA ...
#> $ QES-52A.04_1979 : Factor w/ 12 levels "0","1 TO 9","10 TO 19",..: NA NA NA NA NA 6 NA NA NA NA ...
#> $ QES-52A.05_1979 : Factor w/ 12 levels "0","1 TO 9","10 TO 19",..: NA NA NA NA NA NA NA NA NA NA ...
#> $ HRP1_1979 : Factor w/ 12 levels "0","1 TO 99",..: 5 5 5 NA 5 NA NA NA 4 NA ...
#> $ HRP2_1979 : Factor w/ 12 levels "0","1 TO 99",..: NA NA NA NA 5 NA NA NA NA NA ...
#> $ HRP3_1979 : Factor w/ 12 levels "0","1 TO 99",..: NA NA 4 NA NA NA NA NA NA NA ...
#> $ HRP4_1979 : Factor w/ 12 levels "0","1 TO 99",..: NA NA NA NA NA 4 NA NA NA NA ...
#> $ HRP5_1979 : Factor w/ 12 levels "0","1 TO 99",..: NA NA NA NA NA NA NA NA NA NA ...
#> $ SAMPLE_ID_1979 : Factor w/ 20 levels "CROSS MALE WHITE",..: 5 5 5 5 1 1 1 6 1 6 ...
#> $ SAMPLE_RACE_78SCRN : Factor w/ 3 levels "HISPANIC","BLACK",..: 3 3 3 3 3 3 3 3 3 3 ...
#> $ SAMPLE_SEX_1979 : Factor w/ 2 levels "MALE","FEMALE": 2 2 2 2 1 1 1 2 1 2 ...
#> $ HGC_1979 : Factor w/ 22 levels "NONE","1ST GRADE",..: 13 10 11 10 14 13 9 13 10 10 ...
#> $ HGCREV79_1979 : Factor w/ 22 levels "NONE","1ST GRADE",..: 13 10 11 10 14 13 9 13 10 10 ...
#> [list output truncated]The month and year of birth is recorded in 1979 and 1981 for each individual. The records in 1981 are missing for some individuals so we take the month and year of birth from 1979 records.
Where the record is present for both 1979 and 1981, we check that the record matches.
dob_tidy <- new_data_qnames %>%
select(id = CASEID_1979,
year_1979 = `Q1-3_A~Y_1979`,
year_1981 = `Q1-3_A~Y_1981`,
month_1979 = `Q1-3_A~M_1979`,
month_1981 = `Q1-3_A~M_1981`) %>%
mutate(dob_year = case_when(
# if the years recorded in both sets match, take 79 data
year_1979 == year_1981 ~ year_1979,
# if the year in the 81 set is missing, take the 79 data
is.na(year_1981) ~ year_1979,
# if the sets don't match for dob year, take the 79 data
year_1979 != year_1981 ~ year_1979),
dob_month = case_when(
# if months recorded in both sets match, take 79 data
month_1979 == month_1981 ~ month_1979,
# if month in 81 set is missing, take the 79 data
is.na(month_1981) ~ month_1979,
# if sets don't match for dob month, take the 79 data
month_1979 != month_1981 ~ month_1979),
# flag if there is a conflict between dob recorded in 79 and 81
dob_conflict = case_when(
!is.na(month_1981) && (month_1979 != month_1981) ~ TRUE,
!is.na(year_1981) && (year_1979 != year_1981) ~ TRUE,
(year_1979 == year_1981) & (month_1979 == month_1981) ~ FALSE,
is.na(month_1981) | is.na(year_1981) ~ FALSE)) %>%
select(id,
dob_month,
dob_year,
dob_conflict)
has_dob_conflict <- any(dob_tidy$dob_conflict, na.rm = TRUE)All birth month and year recorded in 1979 and 1981 match.
as_tibble(dob_tidy)
#> # A tibble: 12,686 × 4
#> id dob_month dob_year dob_conflict
#> <int> <int> <int> <lgl>
#> 1 1 9 58 FALSE
#> 2 2 1 59 FALSE
#> 3 3 8 61 FALSE
#> 4 4 8 62 FALSE
#> 5 5 7 59 FALSE
#> 6 6 10 60 FALSE
#> 7 7 6 64 FALSE
#> 8 8 7 58 FALSE
#> 9 9 7 63 FALSE
#> 10 10 10 60 FALSE
#> # … with 12,676 more rows
demog_tidy <- categories_qnames %>%
select(id = CASEID_1979,
race = SAMPLE_RACE_78SCRN,
gender = SAMPLE_SEX_1979)
as_tibble(demog_tidy)
#> # A tibble: 12,686 × 3
#> id race gender
#> <int> <fct> <fct>
#> 1 1 NON-BLACK, NON-HISPANIC FEMALE
#> 2 2 NON-BLACK, NON-HISPANIC FEMALE
#> 3 3 NON-BLACK, NON-HISPANIC FEMALE
#> 4 4 NON-BLACK, NON-HISPANIC FEMALE
#> 5 5 NON-BLACK, NON-HISPANIC MALE
#> 6 6 NON-BLACK, NON-HISPANIC MALE
#> 7 7 NON-BLACK, NON-HISPANIC MALE
#> 8 8 NON-BLACK, NON-HISPANIC FEMALE
#> 9 9 NON-BLACK, NON-HISPANIC MALE
#> 10 10 NON-BLACK, NON-HISPANIC FEMALE
#> # … with 12,676 more rows
demog_education <- new_data_qnames %>%
# in 2018, the variable's name is Q3-4_2018, instead of HGC_2018
rename(HGC_2018 = `Q3-4_2018`) %>%
select(id = CASEID_1979,
starts_with("HGCREV"),
"HGC_2012",
"HGC_2014",
"HGC_2016",
"HGC_2018") %>%
pivot_longer(!id,
names_to = "var",
values_to = "grade") %>%
separate("var", c("var", "year"), sep = "_") %>%
filter(!is.na(grade)) %>%
select(-var)
as_tibble(demog_education)
#> # A tibble: 257,375 × 3
#> id year grade
#> <int> <chr> <int>
#> 1 1 1979 12
#> 2 1 1981 12
#> 3 2 1979 9
#> 4 2 1980 9
#> 5 2 1981 9
#> 6 2 1982 9
#> 7 2 1983 9
#> 8 2 1984 9
#> 9 2 1985 12
#> 10 2 1986 12
#> # … with 257,365 more rows
# Get the highest year completed
highest_year <- demog_education %>%
group_by(id) %>%
filter(grade == max(grade),
year == min(year)) %>%
rename(yr_hgc = year,
hgc_i = grade) %>%
select(id, yr_hgc, hgc_i) %>%
ungroup() %>%
mutate(hgc = case_when(hgc_i == 0 ~ "NONE",
hgc_i == 1 ~ "1ST GRADE",
hgc_i == 2 ~ "2ND GRADE",
hgc_i == 3 ~ "3RD GRADE",
hgc_i >= 4 & hgc_i <= 12 ~ paste0(hgc_i, "TH GRADE"),
hgc_i == 13 ~ "1ST YEAR COL",
hgc_i == 14 ~ "2ND YEAR COL",
hgc_i == 15 ~ "3RD YEAR COL",
hgc_i == 95 ~ "UNGRADED",
TRUE ~ paste0((hgc_i - 12), "TH YEAR COL")))
as_tibble(highest_year)
#> # A tibble: 3,607 × 4
#> id yr_hgc hgc_i hgc
#> <int> <chr> <int> <chr>
#> 1 1 1979 12 12TH GRADE
#> 2 10 1979 9 9TH GRADE
#> 3 17 1979 13 1ST YEAR COL
#> 4 19 1979 12 12TH GRADE
#> 5 29 1979 12 12TH GRADE
#> 6 30 1979 12 12TH GRADE
#> 7 34 1979 13 1ST YEAR COL
#> 8 37 1979 12 12TH GRADE
#> 9 39 1979 12 12TH GRADE
#> 10 45 1979 12 12TH GRADE
#> # … with 3,597 more rowsdemog_nlsy79
full_demographics <- full_join(dob_tidy, demog_tidy, by = "id") %>%
full_join(highest_year, by = "id") %>%
mutate(age_1979 = 1979 - (dob_year + 1900))
demog_nlsy79 <- full_demographics %>%
mutate(age_1979 = 1979 - (dob_year + 1900)) %>%
dplyr::select(id,
age_1979,
gender,
race,
hgc,
hgc_i,
yr_hgc) %>%
mutate(id = as.factor(id),
age_1979 = as.integer(age_1979),
hgc = as.factor(hgc),
yr_hgc = as.integer(yr_hgc))
as_tibble(demog_nlsy79)
#> # A tibble: 12,686 × 7
#> id age_1979 gender race hgc hgc_i yr_hgc
#> <fct> <int> <fct> <fct> <fct> <int> <int>
#> 1 1 21 FEMALE NON-BLACK, NON-HISPANIC 12TH GRADE 12 1979
#> 2 2 20 FEMALE NON-BLACK, NON-HISPANIC <NA> NA NA
#> 3 3 18 FEMALE NON-BLACK, NON-HISPANIC <NA> NA NA
#> 4 4 17 FEMALE NON-BLACK, NON-HISPANIC <NA> NA NA
#> 5 5 20 MALE NON-BLACK, NON-HISPANIC <NA> NA NA
#> 6 6 19 MALE NON-BLACK, NON-HISPANIC <NA> NA NA
#> 7 7 15 MALE NON-BLACK, NON-HISPANIC <NA> NA NA
#> 8 8 21 FEMALE NON-BLACK, NON-HISPANIC <NA> NA NA
#> 9 9 16 MALE NON-BLACK, NON-HISPANIC <NA> NA NA
#> 10 10 19 FEMALE NON-BLACK, NON-HISPANIC 9TH GRADE 9 1979
#> # … with 12,676 more rows
# make a list for years where we used the "QES-52A"
year_A <- c(1979:1987, 1993)
# function to get the hour of work
get_hour <- function(year) {
if(year %in% year_A){
temp <- new_data_qnames %>%
select(CASEID_1979,
starts_with("QES-52A") &
ends_with(as.character(year)))}
else{
temp <- new_data_qnames %>%
select(CASEID_1979,
starts_with("QES-52D") &
ends_with(as.character(year)))}
temp %>%
pivot_longer(!CASEID_1979,
names_to = "job",
values_to = "hours_work") %>%
separate("job", c("job", "year"), sep = -4) %>%
mutate(job = paste0("job_", substr(job, 9, 10))) %>%
rename(id = CASEID_1979)
}
# getting the hours of work of all observations
years <- c(1979:1994, seq(1996, 2018, by = 2))
hours_all <- map_dfr(years, get_hour)
as_tibble(hours_all)
#> # A tibble: 1,763,354 × 4
#> id job year hours_work
#> <int> <chr> <chr> <int>
#> 1 1 job_01 1979 38
#> 2 1 job_02 1979 15
#> 3 1 job_03 1979 NA
#> 4 1 job_04 1979 NA
#> 5 1 job_05 1979 NA
#> 6 2 job_01 1979 35
#> 7 2 job_02 1979 NA
#> 8 2 job_03 1979 NA
#> 9 2 job_04 1979 NA
#> 10 2 job_05 1979 NA
#> # … with 1,763,344 more rows
get_rate <- function(year) {
new_data_qnames %>%
select(CASEID_1979,
starts_with("HRP") &
ends_with(as.character(year))) %>%
pivot_longer(!CASEID_1979, names_to = "job", values_to = "rate_per_hour") %>%
separate("job", c("job", "year"), sep = -4) %>%
mutate(job = paste0("job_0", substr(job, 4, 4))) %>%
rename(id = CASEID_1979)
}
rates_all <- map_dfr(years, get_rate)
as_tibble(rates_all)
#> # A tibble: 1,776,040 × 4
#> id job year rate_per_hour
#> <int> <chr> <chr> <int>
#> 1 1 job_01 1979 328
#> 2 1 job_02 1979 NA
#> 3 1 job_03 1979 NA
#> 4 1 job_04 1979 NA
#> 5 1 job_05 1979 NA
#> 6 2 job_01 1979 385
#> 7 2 job_02 1979 NA
#> 8 2 job_03 1979 NA
#> 9 2 job_04 1979 NA
#> 10 2 job_05 1979 NA
#> # … with 1,776,030 more rows
# join hours and rates variable
hours_wages <- left_join(rates_all,
hours_all,
by = c("id", "year", "job")) %>%
# set the 0 value in rate_per_hour as NA
mutate(rate_per_hour = ifelse(rate_per_hour == 0, NA, rate_per_hour),
hours_work = ifelse(hours_work == 0 | hours_work > 84, NA, hours_work))
as_tibble(hours_wages)
#> # A tibble: 1,776,040 × 5
#> id job year rate_per_hour hours_work
#> <int> <chr> <chr> <int> <int>
#> 1 1 job_01 1979 328 38
#> 2 1 job_02 1979 NA 15
#> 3 1 job_03 1979 NA NA
#> 4 1 job_04 1979 NA NA
#> 5 1 job_05 1979 NA NA
#> 6 2 job_01 1979 385 35
#> 7 2 job_02 1979 NA NA
#> 8 2 job_03 1979 NA NA
#> 9 2 job_04 1979 NA NA
#> 10 2 job_05 1979 NA NA
#> # … with 1,776,030 more rows
# calculate number of jobs that a person has in one year
no_job <- hours_wages %>%
filter(!is.na(rate_per_hour)) %>%
group_by(id, year) %>%
summarise(no_jobs = length(rate_per_hour))
# filter the observations with available rate per hour
eligible_wages <- hours_wages %>%
filter(!is.na(rate_per_hour)) %>%
left_join(no_job, by = c("id", "year"))
# calculate the mean_hourly_wage
# flag1 = code 1 for weighted mean
# code 0 for arithmetic mean
mean_hourly_wage <- eligible_wages %>%
group_by(id, year) %>%
#calculate the weighted mean if the number of jobs > 1
mutate(wages = ifelse(no_jobs == 1, rate_per_hour/100,
weighted.mean(rate_per_hour, hours_work, na.rm = TRUE)/100)) %>%
#give the flag if it the weighted mean
mutate(flag1 = ifelse(!is.na(wages) & no_jobs != 1, 1,
0)) %>%
#calculate the arithmetic mean for the na
mutate(wages = ifelse(is.na(wages), mean(rate_per_hour)/100,
wages)) %>%
group_by(id, year) %>%
summarise(wages = mean(wages),
total_hours = sum(hours_work),
number_of_jobs = mean(no_jobs),
flag1 = mean(flag1)) %>%
mutate(year = as.numeric(year)) %>%
ungroup() %>%
rename(mean_hourly_wage = wages) %>%
mutate(is_wm = flag1 == 1) %>%
select(-flag1)
head(mean_hourly_wage, n = 10)
#> # A tibble: 10 × 6
#> id year mean_hourly_wage total_hours number_of_jobs is_wm
#> <int> <dbl> <dbl> <int> <dbl> <lgl>
#> 1 1 1979 3.28 38 1 FALSE
#> 2 1 1981 3.61 NA 1 FALSE
#> 3 2 1979 3.85 35 1 FALSE
#> 4 2 1980 4.57 NA 1 FALSE
#> 5 2 1981 5.14 NA 1 FALSE
#> 6 2 1982 5.71 35 1 FALSE
#> 7 2 1983 5.71 NA 1 FALSE
#> 8 2 1984 5.14 NA 1 FALSE
#> 9 2 1985 7.71 NA 1 FALSE
#> 10 2 1986 7.69 NA 1 FALSE
# join the wages information and the demographic information by case id.
wages_demog <- left_join(mean_hourly_wage, full_demographics, by="id")
# calculate the years in work force and the age of the subjects in 1979
wages_demog <- wages_demog %>%
mutate(yr_hgc = as.numeric(yr_hgc)) %>%
mutate(years_in_workforce = year - yr_hgc) %>%
mutate(age_1979 = 1979 - (dob_year + 1900))
# filter only the id with high school education
wages_before <- wages_demog %>% filter(grepl("GRADE", hgc))
# calculate the number of observation
keep_me <- wages_before %>%
count(id) %>%
filter(n > 4)
wages_before <- wages_before %>%
filter(id %in% keep_me$id)
as_tibble(wages_demog)
#> # A tibble: 207,704 × 16
#> id year mean_hourly_wage total_hours number_of_jobs is_wm dob_month
#> <int> <dbl> <dbl> <int> <dbl> <lgl> <int>
#> 1 1 1979 3.28 38 1 FALSE 9
#> 2 1 1981 3.61 NA 1 FALSE 9
#> 3 2 1979 3.85 35 1 FALSE 1
#> 4 2 1980 4.57 NA 1 FALSE 1
#> 5 2 1981 5.14 NA 1 FALSE 1
#> 6 2 1982 5.71 35 1 FALSE 1
#> 7 2 1983 5.71 NA 1 FALSE 1
#> 8 2 1984 5.14 NA 1 FALSE 1
#> 9 2 1985 7.71 NA 1 FALSE 1
#> 10 2 1986 7.69 NA 1 FALSE 1
#> # … with 207,694 more rows, and 9 more variables: dob_year <int>,
#> # dob_conflict <lgl>, race <fct>, gender <fct>, yr_hgc <dbl>, hgc_i <int>,
#> # hgc <chr>, age_1979 <dbl>, years_in_workforce <dbl>
as_tibble(wages_before)
#> # A tibble: 39,922 × 16
#> id year mean_hourly_wage total_hours number_of_jobs is_wm dob_month
#> <int> <dbl> <dbl> <int> <dbl> <lgl> <int>
#> 1 10 1980 3.18 NA 1 FALSE 10
#> 2 10 1981 3.95 NA 2 FALSE 10
#> 3 10 1982 4.4 40 1 FALSE 10
#> 4 10 1983 4.63 40 1 FALSE 10
#> 5 10 1984 6.15 NA 1 FALSE 10
#> 6 10 1985 4.56 NA 2 FALSE 10
#> 7 10 1988 6.25 NA 1 FALSE 10
#> 8 10 1990 5.5 NA 1 FALSE 10
#> 9 10 1991 6.42 NA 2 FALSE 10
#> 10 10 1992 7 NA 1 FALSE 10
#> # … with 39,912 more rows, and 9 more variables: dob_year <int>,
#> # dob_conflict <lgl>, race <fct>, gender <fct>, yr_hgc <dbl>, hgc_i <int>,
#> # hgc <chr>, age_1979 <dbl>, years_in_workforce <dbl>