Create datapreparation.R