Create demGpSample.R