## ------------------------------------------------
## Method `KDTree$new`
## ------------------------------------------------
data(abalone)
kdt <- KDTree$new(abalone[1:100,])
## ------------------------------------------------
## Method `KDTree$query`
## ------------------------------------------------
res <- kdt$query(abalone[1:3,], k=2)
print(res)
Run the code above in your browser using DataLab