/working/auteur/R/withinrange.R

 1#determines if a value falls within a range [min,max]
 2#author: JM Eastman 2010
 3
 4withinrange <-
 5function(x, min, max) {			 
 6	a=sign(x-min)
 7	b=sign(x-max)
 8	if(abs(a+b)==2) return(FALSE) else return(TRUE)
 9}
10