Update fista.R

refit dat - Amatrix