library(MASS)
library(lars)
library(ncvreg)
beta=c(3,1.5,0,0,2,0,0,0)
p=8
n=100
sigma=1
rho=0.5
set.seed(100)
x=matrix(0, n, p)
x[,1]<-rnorm(n, 0, 1)
for (i in 2:p) x[,i]<-rho*x[,i-1]+sqrt(1-rho^2)*rnorm(n, 0, 1)
y=x%*%beta+sigma*rnorm(n, 0, 1)
data<-cbind(x,y)
lambda.grid=10^seq(-2,2,length=20)
results<-pass(data=data, base="LASSO", lambda.grid=lambda.grid, num.grid=20, num.split=20)
print(results)
plot(results)
Run the code above in your browser using DataLab