library(lme4)
library(rstanarm)
library(bayesplot)

lmm <- lmer(Area ~ dB.s + Temp.s + (1 | SITE), data = SPt)
glmm <- glmer(Area ~ dB.s + Temp.s + (1 | SITE), 
              family = Gamma(link = "log"), data = SPt)
plot(simulateResiduals(lmm))

library(lme4)
library(rstanarm)
library(bayesplot)
library(DHARMa)

lmm <- lmer(Area ~ dB.s + Temp.s + (1 | SITE), data = SPt)
glmm <- glmer(Area ~ dB.s + Temp.s + (1 | SITE), 
              family = Gamma(link = "log"), data = SPt)
plot(simulateResiduals(lmm))