skeemid

#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")
}

## [1] "korras"