Create RoysData.R