Update concordance.R