Alison Presmanes Hill apreshill

## h2olead.csv

          
            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.R
# 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)
}
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)
	}