From 96d05aaaca170d84c8a390b9b2d6eea47c9745d9 Mon Sep 17 00:00:00 2001
From: JTPetter <61797391+JTPetter@users.noreply.github.com>
Date: Wed, 3 Jul 2024 16:48:37 +0200
Subject: [PATCH] Fix 2667

---
 R/LSTsampleVariability.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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") {