Update fista.R

substitute Lmatrix with Amatrix 
lambda2 / P (or # nonzero rows in Amatrix)