Create getandclean.R