r - 在 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)

总和（x）= 0。

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

谢谢！！

标签： rglmlm