Reverted back to old implementation for #numericalColumnNames

Author: Joshua-Dias-Barreto

src/DataFrame-Tests/DataFrameTest.class.st

@@ -2833,7 +2833,7 @@ DataFrameTest >> testNumericalColumnNames [
 		                #( Female 22 Spain 95 ) #( Male 24 Portugal 99 ) ).
 	dataFrame columnNames: #( Gender Age Country Score ).
 
-	expected := #( Age Score ).
+	expected := #( Age Score ) asOrderedCollection.
 
 	self assert: dataFrame numericalColumnNames equals: expected
 ]

src/DataFrame/DataFrame.class.st

@@ -1431,7 +1431,8 @@ DataFrame >> numberOfRows [
 DataFrame >> numericalColumnNames [
 	"Returns the names of all numerical columns of the dataframe"
 
-	^ self numericalColumns collect: [ :column | column name ]
+	^ self columnNames select: [ :columnName |
+		  (self dataTypes at: columnName) includesBehavior: Number ]
 ]
 
 { #category : #accessing }