dodany skrypt w R