# HG changeset patch
# User cropgeeks
# Date 1524425030 14400
# Node ID 27777dd17bfeba3257f647785768355879e8d6db
# Parent  558a46a635a95da38a025e49352df17c63c65953
Uploaded

diff -r 558a46a635a9 -r 27777dd17bfe dartseq_seeduk_2b.R
--- a/dartseq_seeduk_2b.R	Sun Apr 22 04:44:44 2018 -0400
+++ b/dartseq_seeduk_2b.R	Sun Apr 22 15:23:50 2018 -0400
@@ -4,6 +4,7 @@
 library("labdsv")
 
 data <- read.table("plink.raw",header=T)
+rownames(data) <- data[,2]
 distances <- Dist(data[,7:dim(data)[2]], method = "euclidean", nbproc = as.integer(args[2]))
 pco_results <- pco(distances,k=10)
 #Variance explained by first three PCOs