[cem] CEM pair function

There is also a 'pair' function in the cem package, which I think produces a paired sample out of a CEM match solution. However, I realized that pair function pairs up instances that are not necessarily matched. So I modified the pair.r file in the cem package, and force the pair function to pair up instances that are matched already. Below is what I diid and hope it helps: pair <- function(obj, data, method=NULL, mpower=2, verbose=0){ nm <- NULL strataID <- unique(obj$strata) reservoir <- NULL for(i in strataID){ #################################################### ###########added by hoktay ########use only the instances that are matched #### used to be ######### idx <- which(obj$strata==i ) #################################################### idx <- which(obj$strata==i & obj$matched==TRUE) .....