An R script for getting and cleaning data for Courese Project.