---
title: "4a"
output: html_document
---


```{r message=FALSE,  warning=FALSE}
library(dplyr)
library(magrittr)
library(ggplot2)
```

```{r}
 c(3, 5) %>% mean()
```

```{r}
  liida <- function(arv1, arv2){
    arv1+arv2
  }

  3 %>% liida(4)
```


```{r}
mtcars %>% group_by(am) %>% summarise(keskmine=mean(mpg)) %>%  ggplot(aes(x=am, y=keskmine)) + geom_point()
```

```{r}
 select(mtcars, mpg)$mpg %>% mean()
(mpg~hp) %>% plot(mtcars)
plot(mpg~hp, mtcars)
mtcars[mtcars$am == 1,] %$% mean(mpg)
```