Mercurial > repos > cropgeeks > ukseed

changeset 28:27777dd17bfe draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author cropgeeks
date Sun, 22 Apr 2018 15:23:50 -0400
parents 558a46a635a9
children
files dartseq_seeduk_2b.R
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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