Creating new R script for demonstration of neotoma package at GSA 2014