Update lambda.R

lambdamax is set to scale with nobs