(spe.db.challenge<-vegdist(spe.challenge, method="bray"))