Add r script