From cf1fb9f80016f0ca53866c0b53ac3d695c512d67 Mon Sep 17 00:00:00 2001
From: "Gervaise H. Henry" <gervaise.henry@utsouthwestern.edu>
Date: Thu, 29 Mar 2018 23:11:01 -0500
Subject: [PATCH] Fix sc_PC.Score.NE.R's no downsampling... again
---
r.scripts/sc_PC.Score.NE.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/r.scripts/sc_PC.Score.NE.R b/r.scripts/sc_PC.Score.NE.R
index cf4c6e4..a18e636 100755
--- a/r.scripts/sc_PC.Score.NE.R
+++ b/r.scripts/sc_PC.Score.NE.R
@@ -105,7 +105,7 @@ plot(plot)
dev.off()
#subsample all cells (+NE) to better visualize their clustering
-if (!is.na(opt$s)){
+if (!is.na(opt$sv)){
rnd <- sample(1:ncol(sc10x.Group@data),opt$sv)
} else {
rnd <- 1:ncol(sc10x.Group@data)
--
GitLab