基于R 实现Adapt-lasso
data <- read.csv("data1.csv",header = TRUE)
#加载adapt-lasso源代码
source("lasso.adapt.bic2.txt")
out1 <- lasso.adapt.bic2(x=data[1:13],y=data$y)
#加载adapt-lasso源代码
source("lasso.adapt.bic2.txt")
out1 <- lasso.adapt.bic2(x=data[1:13],y=data$y)
names(out1)