## Table 4 from Randi et al. (1994)
m <- matrix(0, 9, 9)
m[lower.tri(m)] <- c(1.3, 4.3, 4.3, 2.7, 3.0, 1.7, 2.0, 8.7,
4.3, 4.3, 2.3, 3.0, 1.7, 2.0, 8.0,
0.7, 5.0, 1.3, 2.7, 3.0, 10.0,
5.0, 1.3, 2.7, 3.0, 10.0,
3.7, 2.3, 2.7, 10.0,
2.0, 2.3, 8.7,
0.3, 9.0,
9.4)
x <- as.dist(m)
attr(x, "Labels") <- c("Abruzzo", "Pyrenees", "Kodiak", "Captive-3",
"Captive-4", "Captive-5", "Grizzly", "Polar-2", "Black")
## Reconstruct neighbor-joining phylogenetic tree
t <- mfnj(x, digits = 6)
summary(t)
plot(t)
Run the code above in your browser using DataLab