R中的lm（），简单的例子

Question

这是我的例子。

train_df <- data.frame(x =seq(1,8), 
                       y = c(0.0007034055, 0.0022187427, 0.0037911817,
                             0.0036339630, 0.0044425459,0.0038392539, 0.0055802326, 0.0060052847))
lin_fit = lm(y~x, data = train_df )

new_df <- data.frame(x = seq(9,32))
y_hat <- predict(lin_fit, new_data = new_df)

我相信它应该产生

lin_fit$coefficients[[2]]*10 + lin_fit$coefficients[[1]]

0.007369728

生成时：

y_hat[[2]]
0.002143689

我错过了什么？