powered by

i

xs

x=xs[i]

xs[i] or xs[i]>x>xs[i+1].

xs[i]>x>xs[i+1]

findintervals(x, xs)

1..length(xs)

integer(0)

findInterval

findintervals

xs <- zapsmall(sin(seq(0, 10*pi, len=100))) findintervals(0, xs) # 1 10 20 30 40 50 60 70 80 90 100

Run the code above in your browser using DataLab