---
title: "Cvič. 6 -- knihovna"
output: html_notebook
---

```{r}
dbinom(0:9,1000,.01)
dpois(0:9,10)
```
```{r}
plot(dbinom(0:20,1000,.01))
points(dpois(0:20,10), col='red')   # je vidět, že pravd. fce obou rozdělení se takřka shodují
```

```{r}
1 - pbinom(20,1000,.01)
1 - ppois(20,10)
```
```{r}
dpois(20,10)  # pravděpodobnostní funkce (density = hustota)
ppois(20,10)  # distribuční funkce = P(Y <= 20)
```
```{r}
sum(dpois(0:20,10))  # P(Y=0) + P(Y=1) + P(Y=2) + ... + P(Y=20) 
```