R/zrange.R

In OutSeekR: Statistical Approach to Outlier Detection in RNA-Seq and Related Data

#' Range of z-scores
#'
#' Compute the range of a vector of z-scores.
#'
#' @param x A numeric vector
#' @return A number.
#' @export
#' @examples
#' set.seed(1234);
#' x <- rnorm(
#'     n = 10
#'     );
#' zrange(
#'     x = x
#'     );
zrange <- function(x) {
    if (all(is.na(x))) {
        return(NA);
        }
    zrange <- max(x, na.rm = TRUE) - min(x, na.rm = TRUE);
    zrange;
    }