TidyData
获取和清理数据-最终项目
步骤0：加载适当的库，下载并解压缩文件。
确保图书馆在那里
图书馆（dplyr）
检查文件是否已经存在。
文件名<-“ getdata-projectfiles-UCI HAR Dataset.zip”
if（！file.exists（filename））{filreURL <-“ ” download.file（fileURL，filename，method =“ curl” ）}
检查解压缩的文件夹是否存在
如果（！file.exists（“ UCI HAR Daaset”））{解压缩（文件名）}
步骤1：读取和合并数据
读取所有数据。 确保X_aaaaa.txt和y_aaaaaa.txt（区分大小写）！！！！
功能<-read.table（“ UCI HAR Dataset / features.txt”，col.names =
