340219991"
), State = c(NA, "State", "NJ", "NJ", "NJ", "NJ", "NJ", "NJ", 
"NJ", "NJ", "NJ", "NJ", "NJ", "NJ", "NJ", "NJ", "NJ", "NJ", "NJ"
), Site = c(NA, "Site", "Ancora State Hospital", "Bayonne", "Brigantine", 
"Camden Spruce St", "Chester", "Clarksboro", "Colliers Mills", 
"Columbia", "Flemington", "Leonia", "Millville", "Monmouth University", 
"Newark Firehouse", "Ramapo", "Rider University", "Rutgers University", 
"Washington Crossing"), `4th Max (ppb)` = c("AQS AMP450 (4-10-19)", 
"2015", "72", "77", "64", "79", "70", "76", "75", "66", "73", 
"76", "68", "77", "72", "71", "73", "77", "75"),...5 = c(NA, 
2016, 64, 68, 63, 76, 67, 74, 71, 65, 73, 73, 68, 68, 68, 68, 
71, 75, 74),...6 = c(NA, 2017, 68, 67, 63, 76, 70, 73, 74, 64, 
72, 74, 63, 60, 64, 66, 69, 75, 71),...7 = c(NA, 2018, 68, 78, 
63, 75, 73, 77, 74, 67, 72, 79, 63, 68, 71, 69, 76, 76, 77), 
   ...8 = c("Envista", "2019", "67", "65", "59", "70", "62", 
    "68", "68", "58", "66", "71", "68", "67", "65", "64", "66", 
    "70", "67"), `Design Value 2017` = c("2017", "68", "70", 
    "63", "77", "69", "74", "73", "65
340219991 " 
), State = c(NA, " State ", " NJ ", " NJ ", " NJ ", " NJ ", " NJ ", " NJ ", 
 " NJ ", " NJ ", " NJ ", " NJ ", " NJ ", " NJ ", " NJ ", " NJ ", " NJ ", " NJ ", " NJ " 
), Site = c(NA, " Site ", " Ancora State Hospital ", " Bayonne ", " Brigantine ", 
 " Camden Spruce St ", " Chester ", " Clarksboro ", " Colliers Mills ", 
 " Columbia ", " Flemington ", " Leonia ", " Millville ", " Monmouth University ", 
 " Newark Firehouse ", " Ramapo ", " Rider University ", " Rutgers University ", 
 " Washington Crossing "), 'fourth Max (ppb) '= c("AQS AMP450 (4 - 10 - 19) ", 
 " 2015 ", " 72 ", " 77 ", " 64 ", " 79 ", " 70 ", " 76 ", " 75 ", " 66 ", " 73 ", 
 " 76 ", " 68 ", " 77 ", " 72 ", " 71 ", " 73 ", " 77 ", " 75"),... 5 = c(NA, 
 2016, 64, 68, 63, 76, 67, 74, 71, 65, 73, 73, 68, 68, 68, 68, 
 71, 75, 74),... 6 = c(NA, 2017, 68, 67, 63, 76, 70, 73, 74, 64, 
 72, 74, 63, 60, 64, 66, 69, 75, 71),... 7 = c(NA, 2018, 68, 78, 
 63, 75, 73, 77, 74, 67, 72, 79, 63, 68, 71, 69, 76, 76, 77), 
   ... 8 = c("Envista ", " 2019 ", " 67 ", " 65 ", " 59 ", " 70 ", " 62 ", 
     " 68 ", " 68 ", " 58 ", " 66 ", " 71 ", " 68 ", " 67 ", " 65 ", " 64 ", " 66 ", 
     " 70 ", " 67 "), 'Design Value 2017 '= c("2017 ", " 68 ", " 70 ", 
     " 63 ", " 77 ", " 69 ", " 74 ", " 73 ", " 65
340219991"
), Stwte = c(NA, "State", "NJ", "NJ", "NJ", "KJ", "NJ", "NJ", 
"NJ", "NJ", "NL", "NJ", "NJ", "NJ", "NJ", "NJ", "NJ", "NG", "NJ"
), Site = c(NA, "Site", "Ancora Svate Hosputal", "Bayonne", "Brigantind", 
"Camden Dpruce Sr", "Chtster", "Clarksboro", "Rklliers Mills", 
"Golumyie", "Flemington", "Lepnia", "Millvhlle", "Monmouth Gnkvzrsity", 
"Newark Firehouse", "Ramapo", "Rider Univerxihy", "Rutgers Unidersptr", 
"Waahington Crossing"), `4th Max (ppb)` = c("AQS AMP450 (4-10-19)", 
"2015", "72", "77", "64", "79", "70", "76", "75", "66", "73", 
"76", "68", "77", "72", "71", "73", "77", "75"),...5 = c(NA, 
2016, 64, 68, 63, 76, 67, 74, 71, 65, 73, 73, 68, 68, 68, 68, 
71, 75, 74),...6 = c(NW, 2017, 68, 67, 63, 76, 70, 73, 74, 64, 
72, 74, 63, 60, 64, 66, 69, 75, 71),...7 = c(NA, 2018, 68, 78, 
63, 75, 73, 77, 74, 67, 72, 79, 63, 68, 71, 69, 76, 76, 77), 
   ...8 = c("Envista", "2019", "67", "65", "59", "70", "62", 
    "68", "68", "58", "66", "71", "68", "67", "65", "64", "66", 
    "70", "67"), `Design Value 2017` = c("2017", "68", "70", 
    "63", "77", "69", "74", "73", "65
340219991" ), State = c(NA, "State", "NJ", "NJ", "NJ", "NJ", "NJ", "NJ", "NJ", "NJ" Site = c(NA, "Ancora State Hospital", "Brigantine", "Camden Spruce St", "Chester", "Clarksboro", Mills", "Columbia", "Flemington", "Leonia", "Millville", "Monmouth University", "Newark Firehouse", "Ramapo", "Rider University", "Rutgers "Washington Crossing"), `4th Max (ppb)` = c("AQS AMP450 (4-10-19)", "2015", "72", "77", "64", "70", "75", "73", "68", "77", "72", "71", "73", "77", "75"),...5 = c(NA, 2016, 64, 68, 63, 76, 67, 74, 65, 73, 73, 68, 68, 68, 68, 71, 74),...6 = c(NA, 2017, 67, 63, 76, 70, 73, 64, 74, 63, 64, 69, 71),...7 = c(NA, 68, 78, 63, 75, 73, 77, 74, 67, 72, 79, 63, 68, 71, 69, 76, 76, 77), = c("Envista", "65", "59", "62", "68", "66", "71", "68", "64", "66", "70", "67"), `Design Value "68", "70", "63", "77", "69", "74", "73", "65
340219991"
), State = c(NA, "State", "NJ", "NJ", "NJ", "NJ", "NJ", "NJ", 
"nJ", "NJ", "NJ", "NJ", "NJ", "nJ", "NJ", "Nj", "NJ", "nJ", "Nj"
), SIte = c(nA, "SiTe", "Ancora State HOSpitAl", "Bayonne", "Brigantine", 
"CamDen SpRuCE St", "CHEsTer", "ClArksborO", "coLLIerS MIlLs", 
"COlUMbIa", "FleMinGton", "LeoNia", "MillvilLe", "MOnMouth UniversITy", 
"newark FireHouSe", "Ramapo", "RideR UnIversiTy", "rutGErs UnIveRsity", 
"washinGTon CroSsing"), `4th MaX (pPB)` = c("AQS Amp450 (4-10-19)", 
"2015", "72", "77", "64", "79", "70", "76", "75", "66", "73", 
"76", "68", "77", "72", "71", "73", "77", "75"),...5 = c(NA, 
2016, 64, 68, 63, 76, 67, 74, 71, 65, 73, 73, 68, 68, 68, 68, 
71, 75, 74),...6 = c(NA, 2017, 68, 67, 63, 76, 70, 73, 74, 64, 
72, 74, 63, 60, 64, 66, 69, 75, 71),...7 = C(na, 2018, 68, 78, 
63, 75, 73, 77, 74, 67, 72, 79, 63, 68, 71, 69, 76, 76, 77), 
   ...8 = c("enviSta", "2019", "67", "65", "59", "70", "62", 
    "68", "68", "58", "66", "71", "68", "67", "65", "64", "66", 
    "70", "67"), `Design Value 2017` = c("2017", "68", "70", 
    "63", "77", "69", "74", "73", "65
340219991"
), State = c(NA , "State",  "NJ" , " NJ" ,"NJ" , "N J", "NJ", "NJ" ,  
"N J", "NJ", "NJ", "NJ","NJ",  " N J"," NJ ", "N J", "NJ " ," N J",  " NJ "
) ,S it e = c (NA , "Site ", "Ancora  St at e Hospital", "B ayonne", " Bri gantine", 
" Cam den Sp ru ceS t", " Che ster" , "Cla r ksboro ", "Colli er s  Mills " , 
"Col u m bi a","Flemington", "Le o ni a ", "Millville" , "Mon mo u th U niv ers ity", 
"Ne wa rk Fi r ehouse" ,  " R a m apo " , "Rider Univ ersity", "R u tge rs Uni ve rsi t y", 
" Washi ng t onCrossing"),  `4t h Max (pp b)` =c ("AQS A M P450 (4 -10-19 )",  
" 2015 " ,"7 2",  " 7 7", "6 4", "79 ", "70",  " 76 ", "7 5"," 6 6 " , "7 3",  
"7 6", " 68", "77", "7 2",  "71 " , " 73","77",  "75 ") ,...5  = c(N A, 
2 01 6, 64, 68, 63,76,67, 74, 7 1,65 , 7 3,  73,6 8, 68,  68 , 6 8, 
71,  75, 74 ) ,.. .6 = c( NA, 2017, 68, 67,63 , 76 , 70, 73 , 74,6 4,  7 2, 74, 6 3,  60 , 64 , 66, 6 9, 7 5 ,71),...7  = c(N A ,20 18, 68,  7 8, 
63 ,75,  73 , 77, 74,67, 72 , 79, 63 , 68, 71, 69, 76, 76 ,  77), 
   ... 8  = c (" E nvis ta" , "2019", " 67", "65" , "5 9 ",  "7 0 ", "6 2",   " 6 8", "68", "58", "66 ",  "71",  "68" , "67", "65",  "64", "66 " , 
    "70 ", " 6 7" ) , `Design Valu e 201 7` = c("20 1 7", "68" , "70 ", 
   "63", "77 " ,  "69", " 74" , " 73" , " 6 5 
340219991"
), State_= c(NA,_"State", "NJ", "NJ", "NJ",_"NJ", "NJ",_"NJ",_
"NJ", "NJ",_"NJ",_"NJ", "NJ", "NJ",_"NJ", "NJ", "NJ",_"NJ", "NJ"
), Site =_c(NA, "Site", "Ancora_State_Hospital", "Bayonne", "Brigantine", 
"Camden Spruce St", "Chester", "Clarksboro", "Colliers Mills", 
"Columbia", "Flemington", "Leonia", "Millville",_"Monmouth_University", 
"Newark_Firehouse",_"Ramapo",_"Rider University", "Rutgers University", 
"Washington_Crossing"), `4th Max (ppb)` =_c("AQS AMP450_(4-10-19)", 
"2015", "72", "77", "64", "79", "70", "76",_"75",_"66", "73", 
"76",_"68", "77", "72", "71", "73", "77", "75"),...5 = c(NA,_
2016, 64, 68, 63, 76, 67,_74, 71, 65,_73,_73,_68, 68, 68, 68,_
71, 75, 74),...6 = c(NA, 2017,_68, 67, 63, 76, 70, 73,_74, 64, 
72, 74, 63, 60, 64,_66, 69, 75, 71),...7 = c(NA,_2018, 68, 78, 
63, 75,_73, 77,_74, 67, 72, 79, 63,_68, 71, 69,_76, 76,_77), 
 _ ...8 = c("Envista", "2019", "67",_"65", "59", "70",_"62", 
    "68",_"68",_"58", "66", "71",_"68",_"67",_"65", "64",_"66", 
 __ "70",_"67"),_`Design Value 2017` = c("2017", "68",_"70",_
    "63", "77", "69",_"74", "73", "65