代码:
#岭回归
library(MASS)
install.packages('ridge')
library(ridge)
newfit <- lm.ridge(y~x1+x2+x3,dataclass3)
summary(newfit)
plot(lm.ridge(y ~ x1+x2+x3, dataclass3, lambda = seq(0,1,0.001)))
select(lm.ridge(y ~ x1+x2+x3, dataclass3, lambda = seq(0,1,0.001)))
newfit <- lm.ridge(y~x1+x2+x3,dataclass3, lambda = 0.012)
summary(newfit)
newfit2 <- linearRidge(y~x1+x2+x3,dataclass3)
summary(newfit2)
plot(linearRidge(y ~ x1+x2+x3, dataclass3, lambda = seq(0,1,0.001)))
select(linearRidge(y ~ x1+x2+x3, dataclass3, lambda = seq(0,1,0.001)))
newfit2 <- linearRidge(y~x1+x2+x3,dataclass3, lambda = 0.012)
summary(newfit2)


雷达卡




京公网安备 11010802022788号







