Nothing
#' @rdname impute-noncommutative
#' @export
na.cummax <- function( .x, ... )
na.replace(.x, .na=function(x, ...) cummax(x, ... ) )
#' @rdname impute-noncommutative
#' @export
na.cummin <- function( .x, ... )
na.replace(.x, .na=function(x, ...) cummin(x, ... ) )
# #' @rdname impute-noncommutative
# #' @export
#
# na.cummean <- function( .x, ... )
# na.replace(.x, .na=function(x, ...) cummean(x, ... ) )
#' @rdname impute-noncommutative
#' @export
na.cumsum <- function( .x, ... )
na.replace(.x, .na=function(x, ...) cumsum(x, ... ) )
#' @rdname impute-noncommutative
#' @export
na.cumprod <- function( .x, ... )
na.replace(.x, .na=function(x, ...) cumprod(x, ... ) )
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.