这是一行错误：
predicted <-predict(fit, test_data(
这是用于测试预测收入的模型的代码
我得到的错误是：
model.frame.default中的错误(Terms，newdata，na.action=na.action，xlev=object$xlevels(：因子教育有了新的水平第10，第11、第12、第1-4、第5-6、第7-8、第9、Assoc acdm、Assoc voc，学士、博士、HS研究生、硕士、学前班、教授学校，一些大学
明白了！
只需要分解教育专栏
train_data$education = factor(train_data$education)