# NOT RUN {
vic <- mmb::vicinitiesForSample(
df = iris, sampleFromDf = iris[1,], shiftAmount = 0.1)
vic$vicinity
# Plot the ordered samples to get an idea which ones have a vicinity > 0
plot(x=rownames(vic), y=vic$vicinity)
# }
Run the code above in your browser using DataLab