Update co-occurrence_permanova_sim.R