R/summarise_distribution.R

In kristian-bak/betting: An Amazing Shiny App

Defines functions summarise_distribution

Documented in summarise_distribution

#' Summarise distribution
#' @param x vector of any class
#' 
summarise_distribution <- function(x) {
  
  if (is.numeric(x)) {
    return(summary(x))
  } else {
    return()
  }
  
}