run.R

library(plyr)


if(!file.exists("./getcleandata")){dir.create("./getcleandata")}
fileurl <- "https://d396qusza40orc.cloudfront.net/getdata%2Fprojectfiles%2FUCI%20HAR%20Dataset.zip"
download.file(fileurl, destfile = "./getcleandata/projectdataset.zip")


unzip(zipfile = "./getcleandata/projectdataset.zip", exdir = "./getcleandata")



        x_train <- read.table("./getcleandata/UCI HAR Dataset/train/X_train.txt")
        y_train <- read.table("./getcleandata/UCI HAR Dataset/train/y_train.txt")
        subject_train <- read.table("./getcleandata/UCI HAR Dataset/train/subject_train.txt")

        x_test <- read.table("./getcleandata/UCI HAR Dataset/test/X_test.txt")
        y_test <- read.table("./getcleandata/UCI HAR Dataset/test/y_test.txt")
        subject_test <- read.table("./getcleandata/UCI HAR Dataset/test/subject_test.txt")
        
      
        features <- read.table("./getcleandata/UCI HAR Dataset/features.txt")
        
        
        activityLabels = read.table("./getcleandata/UCI HAR Dataset/activity_labels.txt")
        
    
        colnames(x_train) <- features[,2]
        colnames(y_train) <- "activityID"
        colnames(subject_train) <- "subjectID"
        
        colnames(x_test) <- features[,2]
        colnames(y_test) <- "activityID"
        colnames(subject_test) <- "subjectID"
        
        colnames(activityLabels) <- c("activityID", "activityType")
        
  
        alltrain <- cbind(y_train, subject_train, x_train)
        alltest <- cbind(y_test, subject_test, x_test)
        finaldataset <- rbind(alltrain, alltest)
        

        colNames <- colnames(finaldataset)
        
      
        mean_and_std <- (grepl("activityID", colNames) |
                         grepl("subjectID", colNames) |
                         
                         grepl("mean..", colNames) |
                         grepl("std...", colNames)
        )
        
      
        setforMeanandStd <- finaldataset[ , mean_and_std == TRUE]
        

        setWithActivityNames <- merge(setforMeanandStd, activityLabels,
                                      by = "activityID",
                                      all.x = TRUE)
        

        tidySet <- aggregate(. ~subjectID + activityID, setWithActivityNames, mean)
        tidySet <- tidySet[order(tidySet$subjectID, tidySet$activityID), ]
        
        
        write.table(tidySet, "tidySet.txt", row.names = FALSE)