Create run_analysis.R

test <- read dataset as data frame from X_test.txt
train <- read dataset as data frame from X_train.txt
testSub <- read data from subject information for test file
trainSub <- read data from subject information for train file
testact <- read data from activity information for test file
trainact <- read data from activity information for train file
colnames <- read data from names information
coln <- count col number
rown <- count row number
testg <- select what is contain "mean" from test data
traing <- select what is contain "mean" from train data
teststd <- select what is contain "std" from test data
trainstd <- select what is contain "std" from train data
datasetT <- bind test set what are contain "mean" & "std"
datasetR <- bind train set what are contain "mean" & "std" 
dataSet <- bind datasetT & datasetR
dataSetc <- mean data each subject and each activity