Create Air Pollution Case Study.R