我正在尝试在训练数据集上拟合多元回归模型。当我使用模型来预测测试数据的输出时。它显示警告信息：＆＃39; newdata＆＃39;有1行，但找到的变量有31行＆＃39;。我附上了我正在处理的代码部分
data_train<-data_train[-17,]
test_data<-data_train[17,]
mymodel<-lm(data_train$TW~data_train$CD+data_train$FR+data_train$SS+data_train$CL+data_train$P, data_train)
a<-predict(mymodel, test_data)