Correction data-preparation.R script