# NOT RUN {
# use the penalBrier function on a simulated dataset, with given lamda and w.
# }
# NOT RUN {
set.seed(14)
beta <- c(3, 2, -1.6, -4)
noise <- 5
simData <- SimData(N=100,beta=beta, noise=noise, corr=FALSE)
before <- Sys.time()
stepPenal<- StepPenal(Data=simData, lamda=1.2, w=0.4)
(totRun <- Sys.time() - before)
(coeff<- stepPenal$coeffP)
me <- penalBrier(simData,coeff)
# }
Run the code above in your browser using DataLab