make_knn_strata function

Make case-control strata using k nearest neighbors (knn)