added summary stats and read data file scripts

Header_TT.R

@@ -0,0 +1,99 @@
+#if (!require(tidyverse)){
+#install.packages("tidyverse")
+#}
+
+#install.packages("tidyverse")
+library(tidyverse)
+
+#install.packages("plyr")
+library(plyr)
+
+#install.packages("psych")
+library(psych)
+
+#install.packages("Hmisc")
+library(Hmisc)
+
+#install.packages("rstatix")
+library(rstatix)
+
+#install.packages("GGally")
+library(GGally)
+
+#install.packages("ggpubr")
+library(ggpubr)
+
+#install.packages("standardize")
+library(standardize)
+
+#install.packages("quantable")
+library(quantable)
+
+#install.packages("DescTools")
+library(DescTools)
+
+#install.packages("scales")
+library(scales)
+
+#install.packages("arsenal")
+library(arsenal)
+
+#install.packages("ggcorrplot")
+library(ggcorrplot)
+
+library("RColorBrewer")
+library(gplots)
+#install.packages("png")
+library(png)
+
+library(corrplot)
+
+library(corrgram)
+
+library(ggrepel)
+#install.packages("ggbeeswarm")
+library(ggbeeswarm)
+
+#install.packages("ggridges")
+library(ggridges)
+
+#install.packages("summarytools")
+#library(summarytools)
+
+#install.packages("groupedstats")
+library(groupedstats)
+
+#install.packages("moments")
+library(moments)
+
+#install.packages("prob")
+library(prob) # python type isin function
+
+#install.packages("cobalt")
+#library(cobalt) # var.names
+
+library(magrittr)
+
+library(qwraps2)
+#options(qwraps2_markup = "markdown")
+
+
+#if (!requireNamespace("BiocManager", quietly = TRUE))
+#  install.packages("BiocManager")
+#BiocManager::install("ComplexHeatmap")
+
+#library(ComplexHeatmap)
+
+
+my_kurtosis <- function(x) {  
+  m4 <- mean((x - mean(x))^4) 
+  kurtosis <- m4/(sd(x)^4) - 3  
+  kurtosis
+}
+
+my_skewness <-  function(x) {
+  m3 <- mean((x - mean(x))^3)
+  skewness <- m3/(sd(x)^3)
+  skewness
+}
+