Dodany skrypt w R