cumulative mean

[spsanderson]

Function:

#' Cumulative Mean
#' 
#' @family Vector Function
#' 
#' @author Steven P. Sanderson II, MPH
#' 
#' @details
#' A function to return the cumulative mean of a vector. It uses [dplyr::cummean()]
#' as the basis of the function.
#' 
#' @description 
#' A function to return the cumulative mean of a vector.
#' 
#' @parm .x A numeric vector
#' 
#' @examples 
#' x <- mtcars$mpg
#' 
#' cmean(x)
#' 
#' @return 
#' A numeric vector
#' 
#' @export
#' 

cmean <- function(.x){
  dplyr::cummean(.x)
}

Example:

x <- mtcars$mpg
> cmean(x)
 [1] 21.00000 21.00000 21.60000 21.55000 20.98000 20.50000 19.61429 20.21250
 [9] 20.50000 20.37000 20.13636 19.82500 19.63077 19.31429 18.72000 18.20000
[17] 17.99412 18.79444 19.40526 20.13000 20.19524 19.98182 19.77391 19.50417
[25] 19.49200 19.79231 20.02222 20.39286 20.23448 20.21667 20.04839 20.09062