---
title: "sisend"
output: html_document
---

```{r}
 #install.packages("XML")
 library(XML)
 inimesed=xmlToDataFrame("http://www.tlu.ee/~jaagup/andmed/muu/inimesed.xml")
 inimesed
 inimesed$synd
 sort(inimesed$synd)
 order(inimesed$synd)
 inimesed[order(inimesed$synd), ]
 inimesed[as.numeric(as.character(inimesed$synd))<1980, c("eesnimi", "perenimi")]
 #Kuvage inimesed järjestatuna perekonnanimede järgi
 head(inimesed[rev(order(inimesed$perenimi)), ], 3)
 inimesed$perenimi=="Kaalikas"
 inimesed[inimesed$perenimi=="Kaalikas", ]
 with(inimesed, inimesed[perenimi=="Kaalikas", ])
 with(inimesed, inimesed[perenimi=="Kaalikas" | perenimi=="Ohakas", ])
```

```{r}
 juur=xmlRoot(xmlParse("http://www.tlu.ee/~jaagup/andmed/muu/inimesed.xml"))
 juur
 #juur[1]
 juur[[1]]
 juur[[1]][[2]]
 juur[[1]][[2]][[1]]
```

```{r}
 doc=xmlParse("http://www.tlu.ee/~jaagup/andmed/muu/inimesed.xml")
 kaalikad=xpathSApply(doc, "//inimene[perenimi='Kaalikas']/eesnimi")
 kaalikad
 kaalikad[[1]][[1]]

eesnimed=sapply(kaalikad, function(isik){xmlValue(isik[[1]])})
eesnimed
eesnimed[[2]]
 for(eesnimi in eesnimed){
   print(eesnimi)
 }
 length(eesnimed)
 for(nr in 1:length(eesnimed)){
   print(paste(nr, "-", eesnimed[nr][[1]]))
 }
```

```{r}

```