added dataset and R scripts