Create createRelationship.R