R-模拟模型结果

Question

我在R中有一个glm模型，它计算出一些分数。我有源数据，系数，模型，但是我不能自己计算结果。

源数据为

df <- read.table(text="
                 exe   velocity  days sequence term  amt
    1              1   1.666667   10         9  20   507.44 
", header=TRUE)

模型如下：

model <- glm(
    formula =
      exe ~
      velocity +
      days +
      sequence +
      term +
      amt
    data = df,
    family = binomial
  )

该模型的系数为

(Intercept)                 velocity                     days                sequence                    term                     amt 
-0.8519663862            0.4389537214           -0.0011613631           -0.0433850503           -0.0050228834            0.0005687273

如果我没有正确地解决问题，那么我应该能够以此复制该模型

((-0.8519663862)+(0.4389537214*1.666667)+(-0.0011613631*10)+(-0.0433850503*9)+(-0.0050228834*20)+(0.0005687273*507.44))

但是我的计算结果是-0.3343185，但是由模型计算出的适当分数是0.4171902。我在做什么错？