# NOT RUN {
data(longley2)
form <- Employed~GNP+GNP.deflator+Unemployed+Armed.Forces+Population+Year
rxefobj <- eff.ridge(form, longley2)
rxefprd <- RXpredict(rxefobj, longley2)
plot(rxefprd)
# Clearly Biased predictions can still represent an "Optimal" Variance-Bias Trade-Off...
# }
Run the code above in your browser using DataLab