adjust to changes made to JacobiTransformation

Author: DurieuxPol

src/Math-PrincipalComponentAnalysis/PMPrincipalComponentAnalyserJacobiTransformation.class.st

@@ -33,7 +33,7 @@ PMPrincipalComponentAnalyserJacobiTransformation >> accumulate: aPMVectorOrArray
 PMPrincipalComponentAnalyserJacobiTransformation >> components [
 	"Precondition: accumulate: should have been used."
 
-	^ self jacobiTransform evaluate copyFrom: 1 to: componentsNumber
+	^ self jacobiTransform eigenValues copyFrom: 1 to: componentsNumber
 ]
 
 { #category : 'accessing' }
@@ -59,5 +59,5 @@ PMPrincipalComponentAnalyserJacobiTransformation >> transform: aPMMatrix [
 PMPrincipalComponentAnalyserJacobiTransformation >> transformMatrix [
 	"Return a matrix that can be applied to any data vector to extract the relevant component of the data vector"
 
-	^ PMMatrix rows: (self jacobiTransform transform rows copyFrom:1 to: componentsNumber )
+	^ PMMatrix rows: (self jacobiTransform eigenVectors rows copyFrom:1 to: componentsNumber )
 ]

src/Math-Tests-Numerical/PMNumericalMethodsTestCase.class.st

@@ -63,8 +63,7 @@ PMNumericalMethodsTestCase >> testEigenvalues [
 	charPol := PMPolynomial coefficients: #(82 -66 15 -1).
 	roots := charPol roots asSortedCollection asArray reverse.
 	finder := PMJacobiTransformation matrix: m.
-	finder desiredPrecision: 1.0e-09.
-	eigenvalues := finder evaluate.
+	eigenvalues := finder eigenValues.
 	self assert: eigenvalues size equals: 3.
 	self assert: ((roots at: 1) - (eigenvalues at: 1)) abs < 1.0e-09.
 	self assert: ((roots at: 2) - (eigenvalues at: 2)) abs < 1.0e-09.

src/Math-Tests-TSNE/PMTSNETest.class.st

@@ -82,5 +82,5 @@ PMTSNETest >> testreduceXToInputDimsUsing [
 	t := (PMTSNE new)
 			x: (PMMatrix rows: #(#(0 0) #(2 2) #(2 0))).
 	t reduceXToInputDimsUsing: PMPrincipalComponentAnalyserJacobiTransformation.
-	self assert: (t x) closeTo: (PMMatrix rows: #(#(-0.5 -1.5) #(-0.5 1.5) #(1 0)))
+	self assert: (t x) closeTo: (PMMatrix rows: #(#(-1.5 -0.5) #(1.5 -0.5) #(0 1)))
 ]