From dbb88497846253a23e028fb627f27cec82047be3 Mon Sep 17 00:00:00 2001
From: Alexander Kabui
Date: Wed, 13 Oct 2021 13:14:41 +0300
Subject: fetch genotypes and phenotype files

---
 scripts/ctl_analysis.R | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'scripts')

diff --git a/scripts/ctl_analysis.R b/scripts/ctl_analysis.R
index e69de29..bfb6da4 100644
--- a/scripts/ctl_analysis.R
+++ b/scripts/ctl_analysis.R
@@ -0,0 +1,6 @@
+library(ctl)
+
+# The genotypes.csv file containing the genotype matrix is stored individuals (rows) x genetic marker (columns):
+genotypes <- read.csv("genotypes.csv",row.names=1, header=FALSE, sep="\t")
+# The phenotypes.csv file containing individuals (rows) x traits (columns) measurements:
+traits <- read.csv("phenotypes.csv",row.names=1, header=FALSE, sep="\t")
-- 
cgit v1.2.3