# NOT RUN {
# use the StepPenal 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=FALSE)
# }
# NOT RUN {
before <- Sys.time()
stepPenal<- StepPenal(Data=simData, lamda=1.5, w=0.3)
after <- Sys.time()
after-before
(varstepPenal<- stepPenal$coeffP)
# }
Run the code above in your browser using DataLab