changes in the script: descriptive activity in the final data frame