troutbum/RprogrammingWeek2 — pull request #2 by troutbum (2014-04-19 01:17:11+00:00)
Title: working version of question1

Generates the example:

source("pollutantmean.R")
pollutantmean("specdata", "sulfate", 1:10)
## [1] 4.064
pollutantmean("specdata", "nitrate", 70:72)
## [1] 1.706
pollutantmean("specdata", "nitrate", 23)
## [1] 1.281