t_sec <- c(1:10, 40:60, 100:150) # Discontinuous timer values.
pwr <- runif(length(t_sec), 0, 400) # Some power values.
x <- data.frame(t_sec, pwr)
# Generate section levels.
x$section <- diff_section(x$t_sec)
print(x)Run the code above in your browser using DataLab