# NOT RUN {
for (i in 1:100) {
vals <- 1:i
for (start in 1:i)
for (target in seq(start, i+0.5, by=0.5))
if (find_max_ind(vals, target, start) != floor(target))
stop()
}
# }
Run the code above in your browser using DataLab