sales.est <- ols(sales ~ price, data = data.filter)
## In this example regressions over 199 rho values between -1 and 1 are carried out
## The one with minimal SSR is printed out
hilu(sales.est)
## Direct usage of a model formula
X <- hilu(sick ~ jobless, data = data.sick[1:14,], details = TRUE)
## Print full details
X
## Suppress details
print(X, details = FALSE)
## Plot SSR over rho-values to see minimum
plot(X)
Run the code above in your browser using DataLab