The data cleaning step is conducted using the suite of packages in tidyverse.

library(tidyverse)
select <- dplyr::select

Reading the data

Click here for the source file to read data (note this is quite long)

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]

Demographic variables

Tidying the date of birth data

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

Getting the race and sex data

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

Tidying the education data

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

Getting the highest year completed

# 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 rows

demog_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

Tidying the employment information

# 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

Subsetting to the high school population

# 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>