# NOT RUN {
########### Create data matrix
x <- matrix(rnorm(20*30),nrow=20,ncol=30)
########### Perform sparseBC.BIC to select lambda
lambda<-sparseBC.BIC(x,k=2,r=2,lambda=c(0,10,20,30,40))$lambda
# }
Run the code above in your browser using DataLab