---
title: "Absorbance"
output: html_document
---

```{r Absorbance}
# Definovani promennych

A <- 0.510
b <- 1
c <- (4.48/1000)/158.03

# Vypocet koeficientu

E <- A/(b*c)
E

# Zaokrouhleni vysledku

E <- signif(E, digits = 5)
E
```