From a14dc59ae1e67ff47d16e49647f0248a52a87d71 Mon Sep 17 00:00:00 2001
From: Lukas Mueller <lam87@cornell.edu>
Date: Thu, 13 Oct 2022 15:04:19 -0400
Subject: [PATCH] transpose the dosage matrix; remove label column.

---
 R/GCPC.R | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/R/GCPC.R b/R/GCPC.R
index b83934f7d..06d25ad79 100644
--- a/R/GCPC.R
+++ b/R/GCPC.R
@@ -194,7 +194,11 @@ if (file_ext(genotypeFile) == 'vcf') {
 } else {
    write(paste("READING DOSAGE FILE ", genotypeFile), stderr())
      GF <- read.delim(genotypeFile)
-     G <- as.matrix(GF)
+     GT <- as.matrix(GF)
+     G <- G[-1,]	
+     G <- t(G)
+
+     
 }
 
 write("G Matrix start --------", stderr())
-- 
2.11.4.GIT