Create concordance.R