Skip to content
Snippets Groups Projects
Commit dfce775d authored by Simeon's avatar Simeon
Browse files

Update test_clustering_thresholds.R

parent 5738f3a8
Branches
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
R/test_clustering_thresholds.R
+ 1
− 1
View file @ dfce775d
...@@ -53,7 +53,7 @@ test_clustering_thresholds <- function(MyDNAstring, step_size, ...@@ -53,7 +53,7 @@ test_clustering_thresholds <- function(MyDNAstring, step_size,
}else if(file.exists(method)){ }else if(file.exists(method)){
preexisting <- dir.exists(meshclust_temp_dir) preexisting <- dir.exists(meshclust_temp_dir)
dir.create(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, meshclustR, seqs = MyDNAstring,
filepath = meshclust_temp_dir, filepath = meshclust_temp_dir,
meshclust_bin = method) meshclust_bin = method)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment