Absorbance

# Definovani promennych

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

# Vypocet koeficientu

E <- A/(b*c)
E

## [1] 17990.02

# Zaokrouhleni vysledku

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

## [1] 17990