R scripts and data added