R code for knn method for "fgl" (Measurements of Forensic Glass Fragments) dataset in MASS package