diff --git a/processing/.Rhistory b/processing/.Rhistory
deleted file mode 100644
index 1269488f7fb1f4b56a8c0e5eb48cecbfadfa9219..0000000000000000000000000000000000000000
--- a/processing/.Rhistory
+++ /dev/null
@@ -1 +0,0 @@
-data
diff --git a/processing/.here b/processing/.here
deleted file mode 100644
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..0000000000000000000000000000000000000000
diff --git a/script.R b/script.R
new file mode 100644
index 0000000000000000000000000000000000000000..f45b8da05e93c1b3355f46ed3dffe97f6c5dc7a6
--- /dev/null
+++ b/script.R
@@ -0,0 +1,41 @@
+
+### A MODIFIER ###
+
+# Path to the data
+computer_data_path = "/home/louis/Documents/bouleau/INRAE/CDD_stationnarite/data"
+
+# Work path
+computer_work_path = "/home/louis/Documents/bouleau/INRAE/CDD_stationnarite/ASH"
+
+filedir = ""
+
+filename = "H5920011_HYDRO_QJM.txt"
+
+##################
+
+
+# Set working directory
+setwd(computer_work_path)
+
+# Sourcing R file
+source('processing/extract.R')
+source('plotting/panel.R')
+
+# Usefull library
+
+
+# Result directory
+resdir = file.path(computer_work_path, 'results')
+print(paste('resdir :', resdir))
+
+# Figure directory
+figdir = file.path(computer_work_path, 'figures')
+print(paste('figdir :', figdir))
+
+
+df_info = extract_info(computer_data_path, filedir, filename)
+df_data = extract_data(computer_data_path, filedir, filename)
+
+panel(df_data, df_info, figdir, filedir)
+
+