# Create a vector of data with a logarithmically increasing distribution
log_data <- round(exp(seq(log(1), log(100), length.out = 100)))
# Define intervals to cover the range 1-100
intervals <- seq(1, 100, by = 20)
# Create a corresponding time vector
time_in <- seq(1, 100, length.out = 100)
# Find maximum value within intervals
n_between_intervals(log_data, intervals, time_in)
Run the code above in your browser using DataLab