# \donttest{
# Build NJ tree from multiple sequence alignment (requires msa package)
if (requireNamespace("msa", quietly = TRUE)) {
# Create example sequences
df <- data.frame(
accession = c("seq1", "seq2", "seq3"),
sequence = c("ATGCATGC", "ATGCTAGC", "ATGGATGC")
)
# Generate MSA
msa_result <- align_sequences(df, method = "msa", msa_method = "ClustalOmega")
# Build NJ tree
tree <- build_nj_tree(msa_result, model = "raw")
print(tree)
}
# }
Run the code above in your browser using DataLab