从R中的lm和glm获得完全相等的预测

Question

我从r中的lm和glm算法获得完全相等的结果。 这可能吗？我预期会有类似的结果，但并不相同。

请在下面找到我的代码。

我正在研究黑色星期五的销售预测问题，并使用lm和glm，因为这是线性回归问题。

#creating the formula for pasting in model statements
a <- paste(colnames(train[,-c(1,2,9)]),collapse = "+")
form <- as.formula(paste("Purchase ~ ",a))

#linear regression model
model <- lm(form, data = train)
result <- predict(model,test)

#glm
model2 <- glm(form, data = train)
result2 <- predict(model2,test)

x <- result2 - result
sum(x)

sum（x）= 0。

请检查我的代码是否做错了什么？ 如果没有，请分享您对此的想法？

谢谢！