Update fista.R

use get.init to get an initial coefficients, calling glmnet(alpha=0, ridge regression)