prepData.R