method rknnBel crashes R-GUI

[tobigithub]

method rknnBel crashes R-GUI when used in caret.
Could be an issue with low sample numbers (here only 6).
Probably requires better unit testing.

require(caret); require(rknnBel);  

# define x and y for regression of a synthetic dataset
# defined in lasso 
set.seed(123); training_data <- SLC14_1(6)
set.seed(123); testing_data  <- SLC14_1(10000)

# all the training data (just named x and y)
y <- training_data$y
x <- training_data[, -ncol(training_data)]

# works 
train(x,y,"knn")

#crashes R gui
train(x,y,"rknnBel")