X <- rbind(c(0, 2, 1, 3, 0, 2, 2, 0, 3, 2, 2),
c(0, 0, 1, 3, 2, 2, 1, 0, 3, 1, 2),
c(0, 2, 1, 1, 0, 2, 1, 3, 0, 0, 1),
c(2, 2, 1, 1, 0, 0, 2, 3, 0, 2, 1),
c(2, 2, 1, 1, 0, 0, 2, 3, 1, 2, 0))
(ret <- phyclust.edist(X, edist.model = "D_HAMMING"))
str(ret)
as.matrix(ret)
plot(nj(ret), type = "u", no.margin = TRUE)
Run the code above in your browser using DataLab