r中的预测在rpart之后不起作用

Question

我正在进行树回归。我的代码一切正常，但我根本得不到预测值。相反，我得到了我的y变量（响应变量）的所有值。这是代码：

在数据列车和测试集中分离

`sample = sample.split(Data, SplitRatio = .80)
train = subset(Data, sample == TRUE)
test  = subset(Data, sample == FALSE)
varYTrain <- train[c(3)]
varYTest <- test[c(3)]
varXTrain <- train[c(5:27)]
varXTest <- test[c(5:27)]`

模型

`x <- cbind(varXTrain,varYTrain)
fit <- rpart(as.matrix(varYTrain) ~ ., data = x, method="class")
summary(fit)`

这个不起作用，因为我没有根据未知原因设置的测试数据得到预测

`predicted <- predict(fit, data=varXTest)
summary(predicted)`

我最后还希望输出将预测值与我的数据集中的实际值进行比较，我可以这样做吗？

非常感谢你，如果我不清楚这是我第一次发帖，请不要犹豫问我一个问题。

干杯