## Not run: A<-matrix(c(1,1,1,1,1,1,-1,-1,1,-1,-1,1,1,-1,1,-1),4)luDec<-lu(A)L<-expand(luDec)$LU<-expand(luDec)$Up<-expand(luDec)$P# LU is a row-permuted version of AL%*%U#Going back to the original identity A = PLU we can recover AP%*%L%*%U## End(Not run)