Added r script with comments