minaka@affrc.go.jp http://cse.niaes.affrc.go.jp/minaka/ "To classify is human" > library(cluster) > test.d <- c(2,6,10,6,10,10) OTU1 OTU2 OTU3 OTU1 OTU2 2 OTU3 6 6 OTU4 10 10 10 > test.d [1] 2 6 10 6 10 10 > agn <- agnes(test.d, diss = TRUE, method = "average") > plot.agnes(agn, which.plots=2, hang=-1) > library(cluster) > test.d <- c(6,7,14,3,10,9) OTU1 OTU2 OTU3 OTU1 OTU2 6 OTU3 7 3 OTU4 14 10 9