script

src/tp2.R

+#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)
+

src/tp3.R

+#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)
+

src/tp4.R

+#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)
+