isikud=read.table("http://minitorn.tlu.ee/~jaagup/kool/java/kursused/17/xmlrak/digi/algus/tuttavad.txt", 
                     sep=",", header=TRUE)
isikud$vanus=2016-isikud$synniaasta #tekitan tulba
isikud
isikud$vanus=NULL  #kaotan tulba
isikud
Sys.Date()
format(Sys.Date(), "%Y")
isikud$vanus=as.integer(format(Sys.Date(), "%Y"))-isikud$synniaasta
isikud

rbind(isikud, c("Aleksander", 174, "M", 1908, 109)) 
  #ei tomi hästi, kuna eesnimi loeti sisse faktorina (lõpik väärtuste loetelu)

isikud=read.table("http://minitorn.tlu.ee/~jaagup/kool/java/kursused/17/xmlrak/digi/algus/tuttavad.txt", 
                  sep=",", header=TRUE, stringsAsFactors = FALSE)
rbind(isikud, c("Aleksander", 174, "M", 1908)) 
isikud=rbind(isikud, c("Aleksander", 174, "M", 1908)) 
isikud
#install.packages("XML")
library(XML)
inimesed=xmlToDataFrame("http://www.tlu.ee/~jaagup/andmed/muu/inimesed.xml")
inimesed
inimesed=xmlToDataFrame("http://minitorn.tlu.ee/~jaagup/kool/java/kursused/17/xmlrak/digi/02seosed/inimesed.xml")
maakonnad=xmlToDataFrame(
   "http://minitorn.tlu.ee/~jaagup/kool/java/kursused/17/xmlrak/digi/02seosed/maakonnad.xml",
   stringsAsFactors = FALSE)
inimesed
maakonnad
maakonnad$rahvaarv=as.numeric(maakonnad$rahvaarv)
#Lisage maakondade faili ligikaudne rahvaarv
#Kuvage inimeste ees- ja perekonnanimed maakondadest, kust on vähem kui 40000 inimest
koos=merge(inimesed, maakonnad, by.x="maakond", by.y="maakonnanimi")
koos[koos$rahvaarv<40000, c("eesnimi", "perenimi")]
class(maakonnad$rahvaarv)
class(koos$rahvaarv)
maakonnad$rahvaarv