diff --git a/R/LSTsampleVariability.R b/R/LSTsampleVariability.R
index f412957..2160b78 100644
--- a/R/LSTsampleVariability.R
+++ b/R/LSTsampleVariability.R
@@ -201,7 +201,7 @@ LSTsampleVariability <- function(jaspResults, dataset, options) {
     }
   }
   
-  if (samples != "") {
+  if (!identical(samples, "")) {
     for (s in samples) {
       sampleDot <- pData[[1]][s,]
       if (options[["cltParentDistribution"]] == "binomial") {