From 3fdb0aeebb4bef1837ad8b213ab469caf9fadccf Mon Sep 17 00:00:00 2001
From: TRON Kelly <t19016063@V-PJ-47-066.salsa.univ-amu.fr>
Date: Wed, 23 Oct 2024 16:21:41 +0200
Subject: [PATCH] tp1

---
 src/tp1.R | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/src/tp1.R b/src/tp1.R
index 2c57e92..904a363 100644
--- a/src/tp1.R
+++ b/src/tp1.R
@@ -2,7 +2,7 @@ output_dir = "results/tp1"
 dir.create(output_dir, showWarnings = F, recursive = T)
 
 #if (!require("BiocManager", quietly = TRUE))
-  install.packages("BiocManager")
+ # install.packages("BiocManager")
 
 #if (!require("snpStats", quietly = TRUE))
  # BiocManager::install("snpStats")
@@ -28,17 +28,16 @@ write.plink(plink_base, snps=geno$genotypes, pedigree=geno$fam[,1], id=geno$fam[
 
 genoBim<-geno$map
 colnames(genoBim)<-c("chr", "SNP", "gen.dist", "position", "A1", "A2")
-head(genoBim)
+#head(genoBim)
 
 genotype<-geno$genotype
-print(genotype)
+#print(genotype)
 
 genoFam<-geno$fam
-head(genoFam)
+#head(genoFam)
 
 # On commence par libérer de l'espace
 rm(geno)
 
-
 rdata_path = file.path(output_dir, "TP1_asbvg.RData")
 save.image(rdata_path)
-- 
GitLab