From 642d093be380a0a0322678dcd00bb34f4e24eb71 Mon Sep 17 00:00:00 2001
From: OTT Oceane <o22025448@V-PP-47-L-084.salsa.univ-amu.fr>
Date: Wed, 23 Oct 2024 14:19:21 +0200
Subject: [PATCH] script

---
 src/tp2.R | 20 ++++++++++++++++++++
 src/tp3.R | 25 +++++++++++++++++++++++++
 src/tp4.R | 20 ++++++++++++++++++++
 3 files changed, 65 insertions(+)
 create mode 100644 src/tp2.R
 create mode 100644 src/tp3.R
 create mode 100644 src/tp4.R

diff --git a/src/tp2.R b/src/tp2.R
new file mode 100644
index 0000000..1ab01b5
--- /dev/null
+++ b/src/tp2.R
@@ -0,0 +1,20 @@
+#load data
+load("results/tp1/TP1_asbvg.RData")
+
+#fichier de sortie
+output_dir = "results/tp2"
+dir.create(output_dir, showWarnings = F, recursive = T)
+
+#on installe et ouvre les packages/librairies nécessaires
+
+if (!require("BiocManager", quietly=TRUE))
+  install.packages("BiocManager")
+
+if (!require("SNPRelate", quietly=TRUE))
+  BiocManager::install("SNPRelate")
+
+#on enregistre le fichier de sortie 
+
+rdata_path = file.path(output_dir, "TP2_asbvg.RData")
+save.image(rdata_path)
+
diff --git a/src/tp3.R b/src/tp3.R
new file mode 100644
index 0000000..d7c176f
--- /dev/null
+++ b/src/tp3.R
@@ -0,0 +1,25 @@
+#load data
+load("results/tp2/TP2_asbvg.RData")
+
+#fichier de sortie
+output_dir = "results/tp3"
+dir.create(output_dir, showWarnings = F, recursive = T)
+
+#library
+if (!require("BiocManager", quietly = TRUE))
+  install.packages("BiocManager")
+
+if (!require("snpStats", quietly = TRUE))
+  BiocManager::install("snpStats")
+
+if (!require("doParallel", quietly = TRUE))
+  BiocManager::install("doParallel")
+
+library(snpStats)
+library(plyr)
+library(GenABEL)
+library(doParallel)
+
+rdata_path = file.path(output_dir,"TP3_asbvg.RData")
+save.image(rdata_path)
+
diff --git a/src/tp4.R b/src/tp4.R
new file mode 100644
index 0000000..8934080
--- /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)
+
-- 
GitLab