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