reversals: Calculate reversals of adaptive track.
In haberdashPI/wright.lab.util: A set of utilitiy functions used in our lab.

View source: R/find.threshold.R View source: R/reversals.R

TODO

1	reversals(deltas)

deltas

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (deltas) 
{
    n = length(deltas)
    delta.changes = deltas[2:n] - deltas[1:(n - 1)]
    non.zero.indices = which(abs(delta.changes) > 0)
    non.zero.changes = delta.changes[non.zero.indices]
    m = length(non.zero.changes)
    reversals = which((non.zero.changes[2:m] * non.zero.changes[1:(m - 
        1)]) < 0)
    deltas[non.zero.indices[reversals + 1] + 1]
  }