R/thru.R

thru<- function(x,inicial,final){
  (inicial<=x & x<=final) & !is.na(x)
}
`%thru%`<- function(x,y) {
  thru(x,y[1],y[2])
}
Aulide81/Descriptives documentation built on May 8, 2019, 6:43 p.m.