Update fista.R

modify Lmatrix when P=1