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