Update fista.R

get initial coefficients using multinom, with only intercept