R/describe_normality_function.R

In npm27/domo:

#' Quick descriptive statistics
#' 
#' This function provides basic summary statistics
#' @keywords descriptives
#' @param data a dataframe object
#' @param ... dataframe columns
#' @import moments
#' @export
#' @examples 
#' describe()

describe.normality = function(data, ...){
  
  {
    argList = match.call(expand.dots = FALSE)$...
    
    cat(paste("_________________________________________", "\n"))
    
    library(moments)
    
    for(i in 1:length(argList)){
      colName = argList[[i]]
      series_colName = eval(substitute(colName), envir = data, enclos = parent.frame())
      cat(colName,":", "\n", "\n")
      
      ##calculate skew and kurtosis values
      s = skewness(series_colName, na.rm = T)
      k = kurtosis(series_colName, na.rm = T)
      
      ##make histograms
      h = hist(series_colName)
      
      ##print output
      cat("Skew     :", s, "\n")
      cat("Kurtosis :", k, "\n")
      cat(paste("_________________________________________", "\n"))
          
      h
      
    }
  }
  
}

#document()