R/find1.R

In ChrisKust/rexpar: Simplicial Depth for Explosive Autoregressive Processes

Defines functions find1

Documented in find1

find1 <- function(x, pars)
{
  Ret <- ((x - pars) > -0.5) * ((x - pars) < 0.5)
  return(Ret)
}