R/sumstats.R

In mathesong/granviller: Does the Things That Granville Does

#'Test Retest Summary Statistics
#'
#'This function calculates several common summary statistic parameters useful for test-retest studies.
#'
#'@param values Vector of values
#'
#'@examples
#'sumstats( runif(20) )
#'
#'@export

sumstats <- function(values) {
  
  meanval = mean(values)
  sdval = sd(values)
  seval = sdval / (length(values))^0.5
  covval = sdval / meanval
  
  skewval=psych::skew(values)
  kurtosisval=psych::kurtosi(values)
  
  out = data.frame(mean = meanval, sd = sdval, se = seval, cov = covval, skew=skewval, kurtosis=kurtosisval)
  return(out)
  
}