adding rasterShots.R