Ошибка в root.matrix (crossprod (process)): матрица не является положительной полуопределенной

Question

Я хочу расширить RandomForest, чтобы каждый лист содержал naivebayes регрессию вместо среднего.Далее я сначала попытался использовать mob() для добавления linearModel.Я получил следующую ошибку:

Error in root.matrix(crossprod(process)) :    matrix is not positive semidefinite

Вот мой код:

require (data.table)
require (party)
set.seed(123)

data1 <- read.csv('https://archive.ics.uci.edu/ml/machine-learning-databases/car/car.data',header = TRUE)
colnames(data1)<-  c("BuyingPrice","Maintenance","NumDoors","NumPersons","BootSpace","Safety","Condition")

# Split into Train and Validation sets
# Training Set : Validation Set = 70 : 30 (random)
set.seed(100)
train <- sample(nrow(data1), 0.7*nrow(data1), replace = FALSE)
TrainSet <- data1[train,]
ValidSet <- data1[-train,]
summary(TrainSet)
summary(ValidSet)

# Create a Random Forest model with default parameters
model1 <- randomForest(Condition ~ ., data = TrainSet, importance = TRUE)
model1

# Fine tuning parameters of Random Forest model
model2 <- randomForest(Condition ~ ., data = TrainSet, ntree = 500, mtry = 6, importance = TRUE)
model2


fmBH <- mob(Condition ~ BuyingPrice +  Maintenance | NumDoors+ NumPersons + BootSpace + Safety ,
            data = TrainSet, model = linearModel)