Update fista.R

coef.init comes from nnet