基於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) names(out1)

>>阅读原文<<