added main r script and data