Skip to content
Snippets Groups Projects
Commit 642d093b authored by OTT Oceane's avatar OTT Oceane
Browse files

script

parent 8546f672
Branches
Tags
No related merge requests found
#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)
#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)
#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)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment