diff --git a/Header_TT.R b/Header_TT.R index 379a250..de1403b 100755 --- a/Header_TT.R +++ b/Header_TT.R @@ -1,3 +1,4 @@ +#!/usr/bin/Rscript #if (!require(tidyverse)){ #install.packages("tidyverse") #} @@ -84,6 +85,9 @@ library(qwraps2) #library(ComplexHeatmap) +######################################################################## +# My functions +######################################################################## my_kurtosis <- function(x) { m4 <- mean((x - mean(x))^4) diff --git a/read_data.R b/read_data.R old mode 100644 new mode 100755 diff --git a/stats_paired.R b/stats_paired.R old mode 100644 new mode 100755 diff --git a/stats_unpaired.R b/stats_unpaired.R old mode 100644 new mode 100755 diff --git a/summary_stats_by_time_outcome.R b/summary_stats_time_outcome.R old mode 100644 new mode 100755 similarity index 100% rename from summary_stats_by_time_outcome.R rename to summary_stats_time_outcome.R