## ----- echo = false，结果=“ hide”，messages = false -------------------------------------------------------------------------------------------------------------------------require（knitr）opts_chunk $ set（错误= false，message = false，parning = false）库（biocneighbors）## ------------------------------------------------------------------------------------------------------------------------------------------------------------ nobs <-10000 ndim <-20数据<-matrix（runif（nobs*ndim），ncol = ndim）## --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- fout < - findneighbors（数据，阈值= 1）头（fout $ index）头（fout $ dance）## ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------福特$ index [[3]] ## -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------》 $ decance [[[3] ## ----------------------------------------------------------------------------------------------------------------------------------------------------------- 1000 ndim <-20查询<-matrix（runif（nquery*ndim）），ncol = ndim）## --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- qout <- queryNeighbors(data, query, threshold=1) length(Qout $ index）## ------------------------------------------------------------------------------------------------------------------------------------------------------------------ pre <-buildIndex（data，bnparam = kmknnparam（））fout.pre <- findneighbors（bnindex = pre，threshold = 1）qout.pre <-queryneighbors（bnindex = pre，查询=查询，阈值= 1）## ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- sessionInfo()