#' Moyenne mobile d'ordre N
#'
#' @param var Nom du vecteur sur lequel calculé la moyenne mobile
#' @param n Ordre de la moyenne mobile
#'
#' @return Permet de lisser une série de données par la méthode des moyennes mobiles
#' @export
#'
moy_mob <- function(var, n = 5){
stats::filter(x = var, filter = rep(1/n,n))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.