> d=mtcars[,c('mpg','wt')]
> d$wt2=d$wt
> head(d)
                   mpg    wt   wt2
Mazda RX4         21.0 2.620 2.620
Mazda RX4 Wag     21.0 2.875 2.875
Datsun 710        22.8 2.320 2.320
Hornet 4 Drive    21.4 3.215 3.215
Hornet Sportabout 18.7 3.440 3.440
Valiant           18.1 3.460 3.460

> library(MASS)
> ridge <- lm.ridge (mpg ~ wt+wt2,d, lambda = 0.1)
> ridge
                 wt       wt2
37.258302 -2.668067 -2.668067