Funkcje, skrypty w R stworzone na potrzeby SUEKa