Added r script comments