R/find2.R

In ChrisKust/rexpar: Simplicial Depth for Explosive Autoregressive Processes

Defines functions find2

Documented in find2

find2 <- function(x, pars)
{
  Ret <- ((x - pars[1]) > - 0.5) * ((x - pars[1]) < 0.5) * ((x - pars[2]) > -0.5) * ((x - pars[2]) < 0.5)
  return(Ret)
}