R/is.decreasing.R

In FuzzyNumbers.Ext.2: Apply Two Fuzzy Numbers on a Monotone Function

Defines functions is.decreasing

Documented in is.decreasing

is.decreasing <-
function(fun, x.bound=c(-1,1), step=.01){
  x = seq(x.bound[1], x.bound[2], by=step)
  i = 1
  while(fun(x[i]) >= fun(x[i+1])){
    if (i < length(x)-1) {i <- i+1} else( return(TRUE) )
    }
  return(FALSE)
}

Try the FuzzyNumbers.Ext.2 package in your browser