diff --git a/r.scripts/sc_PC.Score.NE.R b/r.scripts/sc_PC.Score.NE.R
index cf4c6e423298bd29a8159f8c42a9d44a56830cf7..a18e63607a30f16529b64e75c954ef3a0b2e332e 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)