Update fista.R

refit doesn't output coef=NA