Update plot_diversity_results.Rscript