R/utils.R

In dshemetov/modeltools-mirror: Tools for Building COVID Forecasters and Related Models

Defines functions quiet End Start Median Mean Sum Max Min

Documented in Max Mean Median Min Sum

#' Wrappers to functions that remove `NA` values by default
#' @export
Min = function(x) min(x, na.rm = TRUE)

#' @rdname Min
#' @export
Max = function(x) max(x, na.rm = TRUE)

#' @rdname Min
#' @export
Sum = function(x) sum(x, na.rm = TRUE)

#' @rdname Min
#' @export
Mean = function(x) mean(x, na.rm = TRUE)

#' @rdname Min
#' @export
Median = function(x) median(x, na.rm = TRUE)

##########

#' @export
#' @noRd
Start = function(x) head(x, 1)

#' @export
#' @noRd
End = function(x) tail(x, 1)

#' @export
#' @noRd
quiet = function(x) { 
  sink(tempfile()) 
  on.exit(sink()) 
  invisible(force(x)) 
}

##########