Inlined the message send

hemalvarambhia · hemalvarambhia · commit 5ce7fa91c1ff · 2022-08-01T21:41:35.000+01:00
diff --git a/src/Math-Matrix/PMQRDecomposition.class.st b/src/Math-Matrix/PMQRDecomposition.class.st
@@ -24,7 +24,7 @@ PMQRDecomposition >> decompose [
 	| identityMatrix q r householderVector i |
 	r := self initialRMatrix.
 	q := self initialQMatrix.
-	identityMatrix := self initialQMatrix.
+	identityMatrix := PMSymmetricMatrix identity: colSize.
 	1 to: self numberOfColumns do: [ :col | 
 		householderVector := ((r columnAt: col) copyFrom: col to: colSize)
 			                     householder.
