R script for getdata project

R script for getdata project