if (FALSE) {
data(ImbC)
# determine the 2 nearest neighbours of each example in ImbC data set
# using the "HVDM" distance function.
neig1 <- neighbours(3, ImbC, "HVDM", k=2)
# now using the "HEOM" distance function
neig2 <- neighbours(3, ImbC, "HEOM", k=2)
# check the differences
head(neig1)
head(neig2)
}
Run the code above in your browser using DataLab