adding Sevilleta data and R code