Committing a lot of changes again. Didn't have the internet access for a while

Author: olekscode

DataFrame-Core.package/DataFrame.class/instance/columnsFrom.to..st

@@ -1,4 +1,10 @@
 accessing
 columnsFrom: begin to: end
 
-	^ self columnsAt: (begin to: end).
+	| array |
+	
+	array := begin < end
+		ifTrue: [ (begin to: end) asArray ]
+		ifFalse: [ (end to: begin) asArray reverse ].
+	
+	^ self columnsAt: array.

DataFrame-Core.package/DataSeries.class/instance/firstQuartile.st

@@ -0,0 +1,4 @@
+statistics
+firstQuartile
+	
+	^ self quartile: 1

DataFrame-Core.package/DataSeries.class/instance/interquartileRange.st

@@ -0,0 +1,4 @@
+statistics
+interquartileRange
+
+	^ self thirdQuartile - self firstQuartile

DataFrame-Core.package/DataSeries.class/instance/mean.st

@@ -0,0 +1,4 @@
+statistics
+mean
+
+	^ self average round: 2

DataFrame-Core.package/DataSeries.class/instance/printOn..st

@@ -1,7 +1,13 @@
 printing
 printOn: aStream
 
-	aStream nextPutAll: 'a '.
+	| df |
+	df := DataFrame fromColumns: { self }.
+	df columnNames: { self name }.
+	df rowNames: self keys.
+	df printOn: aStream.
+
+	"aStream nextPutAll: 'a '.
 	self class printOn: aStream.
 	aStream cr.
 
@@ -19,4 +25,4 @@ printOn: aStream
 		each printOn: aStream.
 		
 		key = keys last
-			ifFalse: [ aStream cr ] ].
+			ifFalse: [ aStream cr ] ]."

DataFrame-Core.package/DataSeries.class/instance/quantile..st

@@ -0,0 +1,10 @@
+statistics
+quantile: number
+	
+	| sortedSeries |
+	sortedSeries := self asArray sort asDataSeries.
+	
+	sortedSeries size < 4
+		ifTrue: [ ^ sortedSeries last ].
+	
+	^ sortedSeries at: (sortedSeries size * (number / 100)).

DataFrame-Core.package/DataSeries.class/instance/quartile..st

@@ -0,0 +1,4 @@
+statistics
+quartile: number
+	
+	^ self quantile: (25 * number)

DataFrame-Core.package/DataSeries.class/instance/summary.st

@@ -1,15 +1,16 @@
-statistics
+accessing
 summary
 
 	| summary |
 	summary := self class new.
+	summary name: self name.
 
 	summary
 		atKey: 'Min' put: self min;
-		atKey: '1st Qu.' put: Float nan;
+		atKey: '1st Qu.' put: self firstQuartile;
 		atKey: 'Median' put: self median;
-		atKey: 'Mean' put: self average;
-		atKey: '3rd Qu.' put: Float nan;
+		atKey: 'Mean' put: self mean;
+		atKey: '3rd Qu.' put: self thirdQuartile;
 		atKey: 'Max' put: self max.
 
 	^ summary

DataFrame-Core.package/DataSeries.class/instance/thirdQuartile.st

@@ -0,0 +1,4 @@
+statistics
+thirdQuartile
+	
+	^ self quartile: 3

DataFrame-Plots.package/DataFrame.extension/instance/boxplot.st

@@ -12,7 +12,7 @@ boxplot
 
 	(self numericColumnNames) doWithIndex: [ :columnName :i |
 		ds := RTBoxPlotDataSet new.
-		ds points: (self column: columnName).
+		ds points: (self column: columnName) asArray.
 
 		color := palette at: i.