R scrip