Create consort.r