# NOT RUN {
# use the optimPenaLik function on a simulated dataset, with given lamda and w.
set.seed(14)
beta <- c(3, 2, -1.6, -1)
noise <- 5
simData <- SimData(N=100, beta=beta, noise=noise, corr=TRUE)
# example with Quasi-Newton:
before <- Sys.time()
PenalQN <- optimPenaLikL2(Data=simData, lamda=2, w=0.6,
algorithms=c("QN"))
after <- Sys.time()
after-before
PenalQN
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab