Create DataPreparation.R