# NOT RUN {
data(tycobb)
form <- batavg~atbats+seasons+CMspl
rxefobj <- eff.ridge(form, data=tycobb)
tycfit <- RXpredict(rxefobj, tycobb, m="minMSE")
plot(tycfit)
tycobb$batavg[18] # Ty Cobb's batavg = 0.401 in 1922
abline(h=tycfit$cry[18], lty=2, lwd=3, col="red")
# }
Run the code above in your browser using DataLab