new dataset functions

firstActivity(day,name) :Activity
lastActivity(day,name) :Activity