data(immdata)
# Make data smaller for testing purposes
immdata$data <- top(immdata$data, 4000)
# chao1
repDiversity(.data = immdata$data, .method = "chao1") %>% vis()
# Hill numbers
repDiversity(
.data = immdata$data, .method = "hill", .max.q = 6,
.min.q = 1, .do.norm = NA, .laplace = 0
) %>% vis()
# diversity
repDiversity(.data = immdata$data, .method = "div", .q = 5, .do.norm = NA, .laplace = 0) %>%
vis()
# Gini-Simpson
repDiversity(.data = immdata$data, .method = "gini.simp", .q = 5, .do.norm = NA, .laplace = 0) %>%
vis()
# inverse Simpson
repDiversity(.data = immdata$data, .method = "inv.simp", .do.norm = NA, .laplace = 0) %>% vis()
# Gini coefficient
repDiversity(.data = immdata$data, .method = "gini", .do.norm = NA, .laplace = 0)
# d50
repDiversity(.data = immdata$data, .method = "d50") %>% vis()
Run the code above in your browser using DataLab