#' Test whether one or more values fall within a specified range.
#'
#'
#' @param x Value or vector of values to test.
#' @param range A vector of length at least 2, from which the range will be computed.
#' @param inclusive Logical value, whether to include the bound of the range.
#' @keywords range within numeric integer
#' @export
#' @return A logical value or vector showing whether each value is within the range.
#'
withinRange <- function( x, range, inclusive = TRUE ) {
# run a few preprocessing checks
stopifnot(
!is.na( as.numeric( x ) ),
length( range ) >= 2L,
is.logical( inclusive )
)
# decide whether to include the bounding values as part of the range
if( inclusive ) {
# then evaluate the range
output <- min( range, na.rm = TRUE ) <= x &
max( range, na.rm = TRUE ) >= x
} else {
output <- min( range, na.rm = TRUE ) < x &
max( range, na.rm = TRUE ) > x
}
# return the output to the user
return( output )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.