Прогнозирование дерева решений

Question

Я пытаюсь выполнить задание по практическому машинному обучению, используя Decision Tree. У меня проблема.

вход

CTG$NSPF = factor(CTG$NSP)
str(CTG)

table(CTG$NSPF)
set.seed(9850)
g=runif(nrow(CTG))
CTGr=CTG[order(g),]
str(CTGr)
head(CTGr)
DT=rpart(NSPF~., data = CTGr[1:1800,], method = "class")
rpart.plot::rpart.plot(DT)
predDT=predict(DT,CTGr[1801:2130,],type = "class")
table(CTGr[1801:2130,3],predicted=predDT)

Проблема с выходом

Ошибка в sort.list(y): "x" должен быть атомарным для "sort.list" Вы называли "sort" в списке?

Ошибка генерируется в этой строке

table(CTGr[1801:2130,3],predicted=predDT