R模型创建不起作用

我试图在R中建立一个预测模型,但没有一种方法有效。 我从csv文件中读取数据,以建立一个列表:

data <- read.table("data.csv",header=T,sep=";")

之后,我过滤数据进行培训:

trainings <- data [!is.na(data$isWorking),]

然后我使用包rpart创建一个决策树

tree <- rpart(isWorking ~ ., data=trainings)

然后用训练数据进行预测,对其进行评估

prd <- predict(tree, newdata=trainings)

不幸的是,我的预测结果不是0和1。其他程序,如knn、randomforest等也不起作用。

这是我绘制预测图的结果。通常,它应该是值0和1。

Plot of prediction