attach(S5_ANpostG)
attach(S5_ANpreG)
attach(S5_SBpostG)
attach(S5_SBpreG)
attach(S5_MEpostG)
attach(S5_MEpreG)

library(FD)
library(vegan)

dis.apost <- gowdis(S5_ANpostG)
dis.apre <- gowdis(S5_ANpreG)
dis.bpost <- gowdis(S5_SBpostG)
dis.bpre <- gowdis(S5_SBpreG)
dis.mpost <- gowdis(S5_MEpostG)
dis.mpre <- gowdis(S5_MEpreG)

mantel(dis.apre, dis.bpre)
mantel(dis.apre, dis.mpre)
mantel(dis.bpre, dis.mpre)
mantel(dis.apre, dis.apost)
mantel(dis.bpre, dis.bpost)
mantel(dis.mpre, dis.mpost)
mantel(dis.apost, dis.bpost)
mantel(dis.apost, dis.mpost)
mantel(dis.bpost, dis.mpost)