I cleaned up the comments and for the PSU seeds added random sampling of pixels scaled by contribution to the sampling unit total.  In the testing.r file I cleaned up package loading and general structure of data.