Alison Presmanes Hill apreshill

county	sample	state	name	exceedances
Mobile	20	al	Dauphin Island Water & Sewer	1
Monroe	23	al	Excel Water System	1
Washington	95	al	Tate & Lyle Sucralose, Inc. Water System	1
Coosa	18.3	al	Lake Mitchell Water, Incorporated	1
Juneau City and Borough	15.5	ak	Thunder Mountain Mobile Park	1
Juneau City and Borough	31	ak	Hecla Greens Creek Hawk Inlet	1
Ketchikan Gateway Borough	27.7	ak	Boyer Towing	1
Ketchikan Gateway Borough	32.9	ak	Thorne Bay, City Of	1
Ketchikan Gateway Borough	16.2	ak	Clover Pass Christian School	2

	# ipak function: install and load multiple R packages.
	# check to see if packages are installed. Install them if they are not, then load them into the R session.

	ipak <- function(pkg){
	new.pkg <- pkg[!(pkg %in% installed.packages()[, "Package"])]
	if (length(new.pkg))
	install.packages(new.pkg, dependencies = TRUE)
	sapply(pkg, require, character.only = TRUE)
	}