## generate data
set.seed(1)
n=100
d=200
d1=10
rho0=0.3
lambda=c(3:1)*sqrt(log(d)/n)
Sigma=matrix(0,nrow=d,ncol=d)
Sigma[1:d1,1:d1]=rho0
diag(Sigma)=1
mu=rep(0,d)
X=mvrnorm(n=n,mu=mu,Sigma=Sigma)
eps=rt(n=n,df=n-1)
beta=c(rep(sqrt(1/3),3),rep(0,d-3))
Y=X%*%beta+eps
## Regression with "dantzig" and general "lq" respectively
out1=flare.slim(X=X,Y=Y,lambda=lambda,method = "dantzig")
out2=flare.slim(X=X,Y=Y,lambda=lambda,method = "lq",q=1.5)
## Print results
print(out1)
print(out2)
plot(out1)Run the code above in your browser using DataLab