accessing
messages
	messages ifNil: [ ^ messages := TweetsCollection new ].
	^ messages select: [ :message | message created between: self reportingPeriod start and: self reportingPeriod end ]