Update fista.R

refit data - Amatrix