# Example usage and demonstration
set.seed(123)
directions <- runif(20, 0, 360)
# Test with different numbers of bins
cat("Original directions:\n")
print(round(directions, 1))
cat("\n8 bins (default):\n")
bins_8 <- cut_directions(directions, n_bins = 8)
print(bins_8)
cat("\n4 bins:\n")
bins_4 <- cut_directions(directions, n_bins = 4)
print(bins_4)
Run the code above in your browser using DataLab