---
title: "joonistus"
output: html_document
---

```{r}
  plot(0, 0, xlim=c(0, 10), ylim=c(0, 10), type="n")
  segments(1, 8, 3, 8)
  segments(2, 8, 2, 4, col="blue")
  #Tehke joontest A-täht
  points(8, 9)
  points(9, 9, pch=19, cex=3, col="red")
   #täht koodiga 19, suurus 3 suhtelist ühikut
 
  keskx=9
  kesky=9
  kiirtearv=10
  raadius=4
  nurgad=seq(0, 6.28, length.out=kiirtearv)
  nurgad
  x1d=rep(keskx, kiirtearv)
  y1d=rep(kesky, kiirtearv)
  x2d=x1d+raadius*cos(nurgad)
  y2d=y1d+raadius*sin(nurgad)
  segments(x1d, y1d, x2d, y2d, col="yellow", lwd=2, lty=2)
   #line width, line type
```

```{r}
  kogus=5
  plot(0, 0, xlim=c(0, kogus+1), ylim=c(0, 200), type="n")
  for(nr in 1:kogus){
     segments(nr, 0, nr, 160)
     segments(nr-0.3, 0, nr, 80)
     points(nr, 160, cex=3, pch=19, col="pink")
  }
  #lisage ka käed
```

```{r}
kogus=5
lapsed=read.table("http://www.tlu.ee/~jaagup/andmed/muu/5klasskabe.txt", header=TRUE, sep=",")
lapsed=lapsed[1:kogus, ] #jätan loetellu ainult etteantud koguse lapsi
plot(0, 0, xlim=c(0, kogus+1), ylim=c(0, 200), type="n")
for(nr in 1:kogus){
  segments(nr, 0, nr, lapsed[nr, "pikkus"])
  #Lisage lapsele pea, käed ja jalad
  if(lapsed[nr, "kabe"]=="jah"){
    rect(nr-0.5, lapsed[nr, "pikkus"]-10, nr+0.5, lapsed[nr, "pikkus"]+10)
  } else {
    points(nr, lapsed[nr, "pikkus"]-10)
  }
  segments(nr, lapsed[nr, "pikkus"]*3/4, nr-0.3, lapsed[nr, "pikkus"]/2)
}
```

```{r}

```