geodata <- read.table("gds_concepts.txt")
hc=hclust(dist(geodata,method="binary"),method="complete")
plot(hc,hang=-1,cex=0.2)