Update caseControl.R

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