new awesome r script