File Test for assignment

gistfile1.r

#
# First make sure the datasets are available
#
if (!file.exists(file.path(getwd(),"UCI HAR Dataset/test/X2_test.txt")) |
    !file.exists(file.path(getwd(),"UCI HAR Dataset/test/y_test.txt")) |
    !file.exists(file.path(getwd(),"UCI HAR Dataset/test/subject_test.txt")) |
    !file.exists(file.path(getwd(),"UCI HAR Dataset/train/X_train.txt")) |
    !file.exists(file.path(getwd(),"UCI HAR Dataset/train/y_train.txt")) |
    !file.exists(file.path(getwd(),"UCI HAR Dataset/train/subject_train.txt"))) {

  print("Unable to load the complete dataset")
  print("Please download the data from:")
  print("https://d396qusza40orc.cloudfront.net/getdata%2Fprojectfiles%2FUCI%20HAR%20Dataset.zip")
  print("and unzip it into your working directory")

  stop("Script halted")
}

#
# Load the test and training datasets
#
acc_data_test <- read.table(file.path(getwd(),"UCI HAR Dataset/test/X_test.txt"))
act_data_test <- read.table(file.path(getwd(),"UCI HAR Dataset/test/y_test.txt"))
sub_data_test <- read.table(file.path(getwd(),"UCI HAR Dataset/test/subject_test.txt"))

acc_data_train <- read.table(file.path(getwd(),"UCI HAR Dataset/train/X_train.txt"))
act_data_train <- read.table(file.path(getwd(),"UCI HAR Dataset/train/y_train.txt"))
sub_data_train <- read.table(file.path(getwd(),"UCI HAR Dataset/train/subject_train.txt"))