Update cohort.R

added match.result to fields and to sampling function, so that it can be called on in the sampling QA report.