Update fista.R

decide whether to use signed Lmatrix via dat$signed.Lmat