## Not run:
# #Plot data before subsampling
# heat_tree(unite_ex_data_3,
# node_size = n_obs,
# node_color = n_obs,
# node_label = n_obs)
#
# # Subsampling
# subsampled <- taxonomic_sample(unite_ex_data_3,
# max_counts = c("4" = 20, "7" = 5),
# min_counts = c("7" = 3))
#
# # Remove unobserved taxa and plot
# heat_tree(subset(subsampled, n_obs > 0, unobserved = FALSE),
# node_size = n_obs,
# node_color = n_obs,
# node_label = n_obs)
# ## End(Not run)
Run the code above in your browser using DataLab