R function to create a data set with the average of each variable for each activity and each subject from the original UCI data sets