diff --git a/src/tp4.R b/src/tp4.R
new file mode 100644
index 0000000000000000000000000000000000000000..89340804dbc635b96a5136de52dd128ca6f36946
--- /dev/null
+++ b/src/tp4.R
@@ -0,0 +1,20 @@
+#load data
+load("results/tp3/TP3_asbvg.RData")
+
+#fichier de sortie
+output_dir = "results/tp4"
+dir.create(output_dir, showWarnings = F, recursive = T)
+
+#Library
+if(!require("dplyr",quietly = T))
+  install.packages("dplyr")
+
+if(!require("plyr",quietly = T))
+  install.packages("plyr")
+
+if(!require("GenABEL",quietly = T))
+  install.packages("GenABEL")
+
+rdata_path = file.path(output_dir,"TP4_asbvg.RData")
+save.image(rdata_path)
+