---
title: "FisherExample"
author: "Mojmir Docekal"
output: html_document
date: "2022-10-14"
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

## Fisheruv test

- cteni: [Wiki](https://en.wikipedia.org/wiki/Lady_tasting_tea)

```{r}
TeaTasting <-
matrix(c(3, 1, 1, 3),
       nrow = 2,
       dimnames = list(Guess = c("Milk", "Tea"),
                       Truth = c("Milk", "Tea")))
fisher.test(TeaTasting, alternative = "greater")
```