Create functions.R

čia rašom visas funkcijas, kad jos nesimaišytų