Ошибка в порядке и косинусное расстояние в R

Question

Я пытаюсь запустить KNN для набора данных. Я использую функцию прогнозирования из пакета rectools. Я сталкиваюсь со странной ошибкой при использовании функции заказа на выходе функции расстояния aka cosine. Вот ошибка

Error in order(cosines, decreasing = FALSE) : 
  unimplemented type 'list' in 'orderVector1' 

Код, связанный с ошибкой, следующий:

onecos <- function(y) 
  {
    cosDist(newData ,y, wtcovs=NULL,wtcats=NULL)
  }
  cosines <- sapply(origDataRatedNI ,onecos)
 #cosines <- sapply(cosines, unlist)

  findKnghbourRtng <- function(ki)
  {
    ki <- min(ki, length(cosines))
    # nearby is a vector containing the indices of the ki closest neighbours
    nearby <- cosines[order(cosines, decreasing=FALSE)[1:ki]]
    mean(as.numeric(found[2, nearby]))
  }
  sapply(k, findKnghbourRtng)

Я попытался распечатать его и передать в функцию, но он тоже не работает. Любая помощь будет оценена