## White test for a model with two regressors
X <- wh.test(wage ~ educ + age, data = data.wage)
## Show the auxiliary regression results
X$hreg
## Prettier way
print(X, details = TRUE)
## Plot the test result
plot(X)
Run the code above in your browser using DataLab