# \donttest{
data("vcf_example_out")
twopts <- rf_2pts(vcf_example_out)
input.seq <- make_seq(twopts, "all")
lgs <- group_upgma(input.seq, expected.groups = 3, comp.mat=TRUE, inter = FALSE)
plot(lgs)
# }
Run the code above in your browser using DataLab