---
title: "huvialad"
output: html_document
---

```{r}
tabel=data.frame(isikud=c("Juku", "Kati", "Mati", "Juku", "Juku","Kati"),
            huvialad=c("jalgpall","korvpall", "jalgpall", "korvpall", "võrkpall", "võrkpall"), stringsAsFactors = FALSE)
tabel
vastus=tapply(tabel$isikud, tabel$huvialad, function(x)x)
vastus
m=matrix(nrow=length(vastus), ncol=length(vastus))
rownames(m)=names(vastus)
colnames(m)=names(vastus)
for (huviala1 in names(vastus)){
  for(huviala2 in names(vastus)){
    m[huviala1, huviala2]=length(intersect(vastus[[huviala1]], vastus[[huviala2]]))
  }
}
m
```