powered by
getLambdaNcoef(y, x, lambda1, nCoef, track=FALSE, model='linear', standardize=FALSE)
data(chin07) data <- list(y=chin07$ge[1,], x=t(chin07$cn)) getLambdaNcoef(data$y, data$x, lambda1=.1, nCoef=10, track=TRUE)
Run the code above in your browser using DataLab