Update DataPreparation.R