#Example effects of tree ants on mangrove leaf damage
without_ants_beetle_damage <-c(0.44, 0.49, 0.59, 0.70, 0.73, 0.94, 1.03, 1.09, 1.42, 2.10)
with_ants_beetle_damage<-c( 0.19, 0.39, 0.03, 0.04, 0.19, 0.36, 0.42, 0.20, 0.21, 0.09, 0.05, 0.16, 0.07, 0.05, 0.06, 0.06, 0.01, 0.14)
boxplot(without_ants_beetle_damage, with_ants_beetle_damage, ylab="Percent leaf damage", names=c("without","with"))
text(1.5, -0.45, "Presence of tree ant nest(s)", cex=1.1, xpd=NA) 

par(mfrow=c(2,2)) 
hist(without_ants_beetle_damage)
hist(with_ants_beetle_damage)
shapiro.test (with_ants_beetle_damage)

install.packages("nortest")
library(nortest)
ad.test(with_ants_beetle_damage)