---
title: "skeemid"
output: html_document
---

```{r}
#install.packages("xml2")
library(xml2)

skeem=read_xml("d:/jaagup/xmltark/skeemid/inimene.xsd")
dokument=read_xml("d:/jaagup/xmltark/skeemid/inimene1.xml")
if(xml_validate(dokument, skeem)){
  print("korras")
} else {
  print("probleem")
}
```

```{r}

```

```{r}

```