diff --git a/R/test_clustering_thresholds.R b/R/test_clustering_thresholds.R
index 5e9710d54da3408312121a805401583d60ba0407..f2e80da023333e12bf88880059bca62723e5e860 100644
--- a/R/test_clustering_thresholds.R
+++ b/R/test_clustering_thresholds.R
@@ -53,7 +53,7 @@ test_clustering_thresholds <- function(MyDNAstring, step_size,
   }else if(file.exists(method)){
     preexisting <- dir.exists(meshclust_temp_dir)
     dir.create(meshclust_temp_dir)
-    clust_tbl_list <- lapply(seq(0, step_max, step_size),
+    clus_tbl_list <- lapply(seq(0, step_max, step_size),
                              meshclustR, seqs = MyDNAstring,
                              filepath = meshclust_temp_dir,
                              meshclust_bin = method)