#Description

to run the script, you should:
1, put the script under your workspace root dictionary;
2, have a folder named "UCI HAR Dataset" that contains the test data;
3, load script with

  source("run_analysis.R")

4, get the result data set with

  result <- Run_Analysis()

#Work this script do the following works:

1, Merges the training and the test sets to create one data set.
2, Extracts only the measurements on the mean and standard deviation for each measurement. 
3, Uses descriptive activity names to name the activities in the data set
4, Appropriately labels the data set with descriptive variable names. 
5, From the data set in step 4, creates a second, independent tidy data set with the average of each variable for each activity and each subject.