Create Air-pollutant.R