diff --git a/SCRIPT_NICHE_POPS.R b/SCRIPT_NICHE_POPS.R index 481c561..c4125a0 100644 --- a/SCRIPT_NICHE_POPS.R +++ b/SCRIPT_NICHE_POPS.R @@ -304,8 +304,8 @@ write.table (tablaresul, "results_pops_vif.txt", sep = "\t") #VIOPLOTS -vioplot_fun (scores.di$Axis1, scores.te$Axis1, scores.he$Axis1, scores.do$Axis1, names = c("2x","4x","6x","12x"), col = c("green", "red", "blue", "purple")) -vioplot_fun (scores.di$Axis2, scores.te$Axis2, scores.he$Axis2, scores.do$Axis2, names = c("2x","4x","6x","12x"), col = c("green", "red", "blue", "purple")) +vioplot_fun (-scores.di$Axis1, -scores.te$Axis1, -scores.he$Axis1, -scores.do$Axis1, names = c("2x","4x","6x","12x"), col = c("green", "red", "blue", "purple")) +vioplot_fun (-scores.di$Axis2, -scores.te$Axis2, -scores.he$Axis2, -scores.do$Axis2, names = c("2x","4x","6x","12x"), col = c("green", "red", "blue", "purple")) #DENSITY PLOTS