Create createDataObject.R