# Build logistic regression model
model <- glm(upgraded ~ purchases + extraCards, family = binomial, data = credit)

# Output of logistic regression model
summary(model)