Create dataPreparation.R