Why manually calculated VIF differs?

Question

Let\'s consider data

set.seed(42)
y <- sample(0:1,100,T)
df1 <- data.frame(\'Binary\' = rnorm(100)>0.5 * 1, \'Unif\' = runif(100), \'Exp\' = rexp(100