loomaomanikud.csv

id,sugu,inimsynd
1,m,1930
2,n,2001
3,m,2001
4,n,2008

lemmikloomad.csv

liik,loomasynd,omaniku_id
kass,2013,3
kass,2012,3
kass,2012,4
koer,2011,2
koer,2011,3
koer,2012,3
koer,2012,4


> read.csv("loomaomanikud.csv", header=TRUE)
  id sugu inimsynd
1  1    m     1930
2  2    n     2001
3  3    m     2001
4  4    n     2008

> omanikud=read.csv("loomaomanikud.csv", header=TRUE)
> omanikud
  id sugu inimsynd
1  1    m     1930
2  2    n     2001
3  3    m     2001
4  4    n     2008
> aggregate(omanikud$inimsynd, by=list(omanikud$sugu), FUN=mean)
  Group.1      x
1       m 1965.5
2       n 2004.5

> vastus=aggregate(omanikud$inimsynd, by=list(omanikud$sugu), FUN=range)
> names(vastus)=c("sugu", "vahemik")
> vastus
  sugu vahemik.1 vahemik.2
1    m      1930      2001
2    n      2001      2008

> vastus=aggregate(omanikud$inimsynd, by=list(omanikud$sugu), 
    FUN=function(x) c(keskmine=mean(x), kogus=length(x))
  )

> vastus
  Group.1 x.keskmine x.kogus
1       m     1965.5     2.0
2       n     2004.5     2.0

> omanikud[omanikud$inimsynd>1980, ]
  id sugu inimsynd
2  2    n     2001
3  3    m     2001
4  4    n     2008


loomad=read.csv("lemmikloomad.csv", header=TRUE)
> loomad
  liik loomasynd omaniku_id
1 kass      2013          3
2 kass      2012          3
3 kass      2012          4
4 koer      2011          2
5 koer      2011          3
6 koer      2012          3
7 koer      2012          4

//Leidke iga omaniku id kohta, mitu looma tal on.
> aggregate(loomad$liik, by=list(omanik=loomad$omaniku_id), FUN=length)
  omanik x
1      2 1
2      3 4
3      4 2


//Leidke iga liiga kohta, mitu sellest liigist looma on
aggregate(loomad$liik, by=list(liik=loomad$liik), FUN=length)
  liik x
1 kass 3
2 koer 4

#Leidke iga liigi kohta vanima isendi sünniaasta
> aggregate(loomad$loomasynd, by=list(liik=loomad$liik), FUN=min)
  liik    x
1 kass 2012
2 koer 2011

#Omanikud koos loomadega
> merge(loomad, omanikud, by.x="omaniku_id", by.y="id")
  omaniku_id liik loomasynd sugu inimsynd
1          2 koer      2011    n     2001
2          3 kass      2013    m     2001
3          3 kass      2012    m     2001
4          3 koer      2011    m     2001
5          3 koer      2012    m     2001
6          4 kass      2012    n     2008
7          4 koer      2012    n     2008

merge(read.csv("lemmikloomad.csv", header=TRUE), 
      read.csv("loomaomanikud.csv", header=TRUE),
	  by.x="omaniku_id", by.y="id")

  omaniku_id liik loomasynd sugu inimsynd
1          2 koer      2011    n     2001
2          3 kass      2013    m     2001
3          3 kass      2012    m     2001
4          3 koer      2011    m     2001
5          3 koer      2012    m     2001
6          4 kass      2012    n     2008
7          4 koer      2012    n     2008

merge(read.csv("http://greeny.cs.tlu.ee/~jaagup/2015/ab/lemmikloomad.csv", header=TRUE), 
      read.csv("http://greeny.cs.tlu.ee/~jaagup/2015/ab/loomaomanikud.csv", header=TRUE),
	  by.x="omaniku_id", by.y="id")

  omaniku_id liik loomasynd sugu inimsynd
1          2 koer      2011    n     2001
2          3 kass      2013    m     2001
3          3 kass      2012    m     2001
4          3 koer      2011    m     2001
5          3 koer      2012    m     2001
6          4 kass      2012    n     2008
7          4 koer      2012    n     2008



[jaagup@greeny ab]$ Rscript esimene.R
  omaniku_id liik loomasynd sugu inimsynd
1          2 koer      2011    n     2001
2          3 kass      2013    m     2001
3          3 kass      2012    m     2001
4          3 koer      2011    m     2001
5          3 koer      2012    m     2001
6          4 kass      2012    n     2008
7          4 koer      2012    n     2008

koos=merge(
      read.csv("http://greeny.cs.tlu.ee/~jaagup/2015/ab/lemmikloomad.csv", header=TRUE), 
      read.csv("http://greeny.cs.tlu.ee/~jaagup/2015/ab/loomaomanikud.csv", header=TRUE),
	  by.x="omaniku_id", by.y="id"
	 )
> koos[koos$liik=="kass",c("loomasynd", "inimsynd")]  
2      2013     2001
3      2012     2001
6      2012     2008

> data.frame(loom=koos$loomasynd, vahe=koos$loomasynd-koos$inimsynd)
   loom vahe
1 2011   10
2 2013   12
3 2012   11
4 2011   10
5 2012   11
6 2012    4
7 2012    4