R/dimchecker.r

Defines functions `dimchecker`

`dimchecker` <-
function(x,box){

  box.init <- apply(x, 2, range)

  lows <- box[1,]  > box.init[1,]
  
  highs <- box[2,] < box.init[2,]

  rdims <- (lows | highs)

  return(list(either=rdims,lower=lows,upper=highs))

}

Try the sdtoolkit package in your browser

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

sdtoolkit documentation built on May 2, 2019, 6:04 a.m.