more

run_analysis.R

@@ -55,16 +55,22 @@ all_test_data <- cbind(test_subject, test_data, test_labels)
 all_data <- rbind(all_train_data, all_test_data)
 
 library(plyr)
-all_data_tidy <- aggregate(. ~subjectid + activityname, all_data, mean)
+all_tidy_data <- aggregate(. ~subjectid + activityname, all_data, mean)
 #make names lowercase
-names(all_data_tidy) = tolower(names(all_data_tidy))
+names(all_tidy_data) = tolower(names(all_tidy_data))
 #clean up variable names so they are more readable
-names(all_data_tidy) = sub("bodybody","body",names(all_data_tidy))
-names(all_data_tidy) = sub("acc","accelerometer",names(all_data_tidy))
-names(all_data_tidy) = sub("gyro","gyroscope",names(all_data_tidy))
-names(all_data_tidy) = sub("^f","frequency",names(all_data_tidy))
-names(all_data_tidy) = sub("^t","time",names(all_data_tidy))
+names(all_tidy_data) = sub("bodybody","body",names(all_tidy_data))
+names(all_tidy_data) = sub("acc","accelerometer",names(all_tidy_data))
+names(all_tidy_data) = sub("gyro","gyroscope",names(all_tidy_data))
+names(all_tidy_data) = sub("^f","frequency",names(all_tidy_data))
+names(all_tidy_data) = sub("^t","time",names(all_tidy_data))
+
+all_tidy_data[,2] = sub("_","",all_tidy_data[,2])
+all_tidy_data[,2] = tolower(all_tidy_data[,2])
 
 #should mean results be in a new column?
-all_data_tidy <- all_data_tidy[order(all_data_tidy$subjectid,all_data_tidy$activityname),]
+all_tidy_data <- all_tidy_data[order(all_tidy_data$subjectid,all_tidy_data$activityname),]
 
+write.table(all_tidy_data, file="all_tidy_data.txt", row.name=FALSE)
+head(all_tidy_data, n=1)
+