此自述文件包含脚本以及每个步骤的注释。
##设置 WD 并检查 ##setwd("D:/Programing_data_R/gacd/project") getwd()
##install.packages("dplyr") 如果没有安装库(dplyr)
##加载数据---注意：要使用这个脚本原始ZIP_File必须在WD中解压
train_raw=read.table("UCI HAR Dataset/train/X_train.txt") test_raw= read.table("UCI HAR Dataset/test/X_test.txt") dim(train_raw) dim(test_raw) activity_train<-read.table （“UCI HAR 数据集/train/y_train.txt”）activity_test<-read.table（“U
