data2<-read.table("RunFinal_Ozone_County_2007_70-9ppb_InverseDist_MSAmerge.txt", header=TRUE)

sapply(data2[,-1:-6], sum)

summortnonito<-with(data2, tapply(MORTNONITO,MSA,sum))
summortnonsch <- with(data2, tapply(MORTNONSCH, MSA, sum))
summortnonbel <- with(data2, tapply(MORTNONBEL, MSA, sum))
summortallev <- with(data2, tapply(MORTALLLEV, MSA, sum))
summortallbel <- with(data2, tapply(MORTALLBEL, MSA, sum))
summortcardio <- with(data2, tapply(MORTCARDIO, MSA, sum))
sumervisits <- with(data2, tapply(ERVISITS, MSA, sum))
sumharesp <- with(data2, tapply(HARESP, MSA, sum))
sumschoolloss <- with(data2, tapply(SCHOOLLOSS, MSA, sum))
sumacutresp <- with(data2, tapply(ACUTRESP, MSA, sum))

results2<- cbind(summortnonito, summortnonsch, summortnonbel, summortallev, summortallbel,
summortcardio)
results2