Sorry, I missed the [,4] :
aggregate(datjan[,4],by=list(datjan[,4]),sum)

Miguel

	[[alternative HTML version deleted]]

