---
title: "ylevaade1"
output: html_document
---
Autode läbisõit miili galloni kohta
```{r}
  mtcars[ , c("mpg", "cyl")]
```

```{r}
  mtcars$liitreidsajale=100/(mtcars$mpg*1.6/3.8)
  mtcars[, c("mpg", "liitreidsajale")]
```

Keskmine, suurim ja vähim kütusekulu ning mediaan

```{r}
  tulemused=c(
     keskmine=mean(mtcars$liitreidsajale),
     suurim=max(mtcars$liitreidsajale),
     vahim=min(mtcars$liitreidsajale),
     mediaan=median(mtcars$liitreidsajale),
     standardhälve=sd(mtcars$liitreidsajale))
  tulemused
```
Keskmine eraldi: `r mean(mtcars$liitreidsajale)`

Suurimad:

```{r}
  mtcars[mtcars$liitreidsajale==max(mtcars$liitreidsajale), 
          c("mpg", "liitreidsajale")]
```

Üle keskmise kulutajad:
```{r}
  mtcars[mtcars$liitreidsajale>mean(mtcars$liitreidsajale), 
          c("mpg", "liitreidsajale")]
```

Kütusekulu jaotus:

```{r}
  hist(mtcars$liitreidsajale)
  hist(mtcars$liitreidsajale, xlim=c(5, 25), main="Sagedusjaotus",
        ylab="kogus vahemikus", xlab="Liitreid saja kilomeetri kohta")
```