# Load example phylogenetic data matrix
data("characters")
# Create distance matrix
Dmatrix <- get_gower_dist(characters)
# Find optimal partitioning scheme using PAM under k=3 partitions
cluster_df <- make_clusters(Dmatrix, k = 3)
# Write to Nexus files
if (FALSE) write_partitioned_alignments(characters, cluster_df, "example.nex")
Run the code above in your browser using DataLab