I finished fixing some of the encapsulation issues with the gs_sample() function, added arguments for sampling parameters, and finished a first cut at the testing.r script.