R/which.min.left.R

Defines functions which.min.left

which.min.left <- function(x, tol = 1e-16){
  index <- which.min(x)
  if(index == 1) return(1)
  if((x[index - 1] - x[index]) < tol) return(index - 1)
  return(index)
}

Try the DiscreteQvalue package in your browser

Any scripts or data that you put into this service are public.

DiscreteQvalue documentation built on April 2, 2020, 1:06 a.m.