Create investigatePriors.R