library(xml2)
xsd2=read_xml("d:/jaagup/xmldigi/skeemid/inimene1.xsd")
doc2=read_xml("d:/jaagup/xmldigi/skeemid/inimene1.xml")
vastus=xml_validate(doc2, xsd2)
if(vastus){
  cat("korras")
} else {
  cat("pole")
}