Create pollutant.R