---
title: "tunnuste grupeerimine"
output: html_document
---


```{r}
ilm=read.table("http://www.tlu.ee/~jaagup/andmed/ilm/harkutund.txt", sep=",", header=TRUE)
cor(ilm[, 6:11], use="pairwise.complete.obs")
dist(cor(ilm[, 6:11], use="pairwise.complete.obs"))
hclust(dist(cor(ilm[, 6:11], use="pairwise.complete.obs")))
plot(hclust(dist(cor(ilm[, 6:11], use="pairwise.complete.obs"))))
```