Run the following code:

library(AER)

data('CreditCard')

lm1 <- lm(CreditCard$active ~ CreditCard$owner + CreditCard$age + CreditCard$income, data = CreditCard)

summary(lm1)

lm2 <- lm(CreditCard$active ~ CreditCard$owner + CreditCard$age + CreditCard$income + CreditCard$selfemp, data = CreditCard)

summary(lm2)

Based on the results of these two models, can you justify the addition of CreditCard$selfemp?

	a.	Yes, while it is insignificant it did result in an increase in the R^2.
	b.	Yes, while it is insignificant it did result in a decrease in the standard error of the regression.
	c.	Yes, it is clearly an important variable in relation to active credit accounts and should be included.
	d.	No, it is insignificant and the adjusted R^2 fell with its inclusion.
	e.	None of these