Breaks_Fn: divides a vector into break points
In James-Thorson/movement_tools: Tools for movement operators in GMRF models

1	Breaks_Fn(Obj, breaks = c(-Inf, 10^(-3:0)))

`Obj`
`breaks`

##---- 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 (Obj, breaks = c(-Inf, 10^(-3:0))) 
{
    Cut <- cut(Obj, breaks)
    if (is.array(Obj)) 
        Return <- array(as.numeric(Cut), dim = dim(Obj))
    if (is.vector(Obj)) 
        Return <- as.numeric(Cut)
    return(Return)
  }