Adjusted output (no plotting) for gs_sample() and put in some extra diagnostics in the vignette draft, testing.r file.