# Create new data for prediction
newcredit <- data.frame(purchases = 42, extraCards = 1)

# Predict probability of being upgraded for new data
prob_new_credit <- predict(model2, newcredit, type="response")

# Print predicted probability
print(paste("Predicted probability of upgrade for new credit card: ", prob_new_credit))