data(lexicalMeasures)
data(lexicalMeasuresDist)
library(Design)
library(cluster)
plot(varclus(as.matrix(lexicalMeasures[,-1])))
lexicalMeasures.cor = cor(lexicalMeasures[,-1], method = "spearman")^2
lexicalMeasures.dist = dist(lexicalMeasures.cor)
pltree(diana(lexicalMeasures.dist))
data(lexicalMeasuresClasses)
x = data.frame(measure = rownames(lexicalMeasures.cor),
cluster = cutree(diana(lexicalMeasures.dist), 5),
class = lexicalMeasuresClasses$Class)
x = x[order(x$cluster), ]
x
Run the code above in your browser using DataLab