histogram <- histogram(data, nint = 5, type = "percent") # Tworzy histogram print(histogram) # Wyświetla histogram