An R script that cleans a dataset into an easily understandable format