added the dataset and first r script