data(SrE.IR)
res1 <- hcaSpectra(SrE.IR, main = myt) # default clustering and distance methods
res2 <- hcaSpectra(SrE.IR, main = myt, c.method = "median", d.method = "manhattan")
# The return value from hcaSpectra is a list with hclust as the first element.
crit1 <- evalClusters(SrE.IR, res1[[1]], k = 4)
crit2 <- evalClusters(SrE.IR, res2[[1]], k = 4)
# res1 gave a better clustering
Run the code above in your browser using DataLab