# HG changeset patch
# User cropgeeks
# Date 1524249865 14400
# Node ID d1d232d4cb2f4357ac6a623b5bcf173a1eacbd7b
# Parent  ae6b94d10bffade9b75455d396235df065706092
Uploaded

diff -r ae6b94d10bff -r d1d232d4cb2f dartseq_seeduk_2b.R
--- a/dartseq_seeduk_2b.R	Fri Apr 20 12:42:06 2018 -0400
+++ b/dartseq_seeduk_2b.R	Fri Apr 20 14:44:25 2018 -0400
@@ -4,7 +4,7 @@
 library("labdsv")
 
 data <- read.table("plink.raw",header=T)
-distances <- Dist(data[,7:dim(data)[2]], method = "euclidean", nbproc = 144)
+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
 pco_results$eig[1]/sum(pco_results$eig[pco_results$eig>0])
diff -r ae6b94d10bff -r d1d232d4cb2f ukseed_stage2.xml
--- a/ukseed_stage2.xml	Fri Apr 20 12:42:06 2018 -0400
+++ b/ukseed_stage2.xml	Fri Apr 20 14:44:25 2018 -0400
@@ -14,7 +14,7 @@
 		&&		
 		plink --bfile test --recode A 
 		&&		
-		Rscript --vanilla $__tool_directory__/dartseq_seeduk_2b.R $output		
+		Rscript --vanilla $__tool_directory__/dartseq_seeduk_2b.R $output \${GALAXY_SLOTS:-1} 	
     ]]></command>
 	
     <inputs>