NeuralNetTools::olden... ОШИБКА пытается выделить менее одного элемента в get1index

Question

Я хочу вычислить оценки важности для nnet (обученных с помощью mlr) с помощью функции olden.

nnet_weights <- neuralweights(nnet_model$learner.model)
feature_names <- colnames(subset(tr, select=-return))
target_name <- colnames(tr["return"])
olden(mod_in = nnet_weights, y_names = target_name, x_names = feature_names, bar_plot = FALSE)

где tr - обучающий набор, а return - целевая переменная.

Но я получаю ошибку:

in wts_in[[grep(paste("out", out_ind), names(wts_in))]] : attempt to select less than one element in get1index

Помощь очень ценится!