https://r4stats.com/2014/09/03/adding-the-spss-mean-n-function-to-r/