Extracted an intention revealing method, meaning the private method can go.

Author: hemalvarambhia

src/Math-Matrix/PMMatrix.class.st

@@ -409,6 +409,12 @@ PMMatrix >> columnAt: anInteger [
 	^ rows collect: [ :each | each at: anInteger ]
 ]
 
+{ #category : #'cell accessing' }
+PMMatrix >> columnVectorAt: col size: dimension [
+
+	^ (self columnAt: col) copyFrom: col to: dimension 
+]
+
 { #category : #iterators }
 PMMatrix >> columnsCollect: aBlock [
 	"Perform the collect: operation on the rows of the receiver."

src/Math-Matrix/PMQRDecomposition.class.st

@@ -21,7 +21,7 @@ PMQRDecomposition class >> of: matrix [
 { #category : #private }
 PMQRDecomposition >> columnVectorFrom: r startingAt: col [
 
-	^ (r columnAt: col) copyFrom: col to: colSize
+	^ r columnVectorAt: col size: colSize .
 ]
 
 { #category : #private }