cutoff <- 0.03
count_table <- read_count(example_path("amazon.full.count_table"))
distance_data <- read_dist(example_path("amazon_column.dist"),
count_table, cutoff)
cluster_results <- cluster(distance_data,
cutoff, method = "opticlust",
feature_column_name_to = "sequence",
bin_column_name_to = "omu")
cluster_results <- cluster(distance_data,
cutoff, method = "furthest")
cluster_results <- cluster(distance_data,
cutoff, method = "nearest")
cluster_results <- cluster(distance_data,
cutoff, method = "average")
cluster_results <- cluster(distance_data,
cutoff, method = "weighted")
Run the code above in your browser using DataLab