Update RichnessLoop.R