range1 <- range(0.001-0.002)
0.0015 %in% range1

range1 <- c(0.001,0.002)
findInterval(0.0015,range1)==1
[1] TRUE

range1 <- seq(from=0.001,to=0.002,by=0.0001)
0.0015 %in% range1

'%bw%'<-function(x,rng){
  (x >= rng[1]) & (x <= rng[2])
}

rng<-range(c(2,5))

3 %bw% rng

TRUE