ramnathv · July 2, 2019 19:17
diff --git a/group_mean.R b/group_mean.R
 #' Group Mean
 #' 
 #' @examples 
 #' iris %>% 
 #'   group_mean(Species, Petal.Length)
 group_mean <- function(tbl, group_var, summary_var){
  tbl %>% 
    group_by({{ group_var }}) %>% 
    summarize(
      {{ summary_var }} := mean({{ summary_var }})
    )
 }
	#' Group Mean
	#'
	#' @examples
	#' iris %>%
	#' group_mean(Species, Petal.Length)
	group_mean <- function(tbl, group_var, summary_var){
	tbl %>%
	group_by({{ group_var }}) %>%
	summarize(
	{{ summary_var }} := mean({{ summary_var }})
	)
	}