Add DataFrame>>#summary collecting a DataSeries>>#summary column for each numerical column joined in a new DataFrame

Author: svenvc

src/DataFrame/DataFrame.class.st

@@ -2537,6 +2537,19 @@ DataFrame >> stdev [
 	^ self applyToAllColumns: #stdev
 ]
 
+{ #category : #statistics }
+DataFrame >> summary [
+	| summaryFrame |
+	summaryFrame := nil.
+	self columnNames do: [ :column |
+		((self dataTypeOfColumn: column) inheritsFrom: Number)
+			ifTrue: [ 
+				summaryFrame
+					ifNil: [ summaryFrame := (self column: column) summary asDataFrame ]
+					ifNotNil: [ summaryFrame addColumn: (self column: column) summary ] ] ].
+	^ summaryFrame
+]
+
 { #category : #accessing }
 DataFrame >> tail [
 	"Returns the last 5 rows of a DataFrame"