Add R script for cleaning data