R source code for sparse group lasso