R 在数据帧输入上使用lm进行预测-模型未找到输入变量

这是一个非常基本的问题（我是新手…）。我试图用一个线性模型来测试一个简单的预测，但我似乎没有正确地指定输入的数据帧

在调用predict时，我不断得到一条消息，newdata有12行，但是变量有21行——我认为这是因为没有找到输入变量。我在前面看到了一个针对单个输入的解决方案（建议使用向量而不是数据帧），但这似乎并没有解决我的问题。非常感谢您的帮助

################Code is below ######################

# Reading in a csv Text File. Has Headers Quantity, Income, Price and 21 rows of values
CSVData <- read.table("C:/Users/.../CSVInput.txt",header=T,sep=",")

Model=lm(CSVData$Quantity~CSVData$Income+CSVData$Price)

###Creating a new test data set for prediction##################
BindCols1=seq(5,16,by=1)
BindCols2=seq(20,75,by=5)
PredFrame=data.frame(cbind(BindCols1,BindCols2))
colnames(PredFrame) <- c('Income','Price')
colnames(PredFrame)

coef(Model)
pc=predict(Model,PredFrame)

代码如下###################### #读取csv文本文件。具有标题数量、收入、价格和21行值 CSVData使用：

模型
Model <- lm(Quantity ~ Income + Price,data=CSVData)