Added r script