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