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)