Create investigatePops.R