# NOT RUN {
# generate data
y <- rep(c(1,0), 100)
X <- matrix (rnorm(20000, 0, 1), ncol = 100) # pure noise
strata <- sort(rep(1:100, 2))
fitLasso <- clogitLasso(X,y,strata,log=TRUE)
# plot
plot(fitLasso)
# }
Run the code above in your browser using DataLab