install.packages('vegan')
library(vegan)
x <- c(2, 6, 158, 87, 2, 7, 1, 20, 19, 93, 2, 211, 240)    #podenky lokality HLU2
Shannon1 <- diversity(x, index = "shannon", MARGIN = 1, base = exp(1)) #shannon index diverzity s prirodzenym logaritmom
Shannon2 <- diversity(x, index = "shannon", MARGIN = 1, base = 2)      #shannon index diverzity s logaritmom pri zaklade 2

Shannon1
[1] 1.791299

Shannon2
[1] 2.584299