Update dataPreparation.R