function to set shrinkage parameters in R