Alex-s-Repo-Getting-and-Cleaning-Data

Alex-s-Repo-Getting-and-Cleaning-Data #下载文件 if(!file.exists("./data")){ dir.create("./data") } fileUrl <- " " download.file(fileUrl, destfile = "./data/Dataset.zip") unzip(zipfile = "./data/Dataset.zip", exdir = "./data") files_all <- file .path("./data", "UCI HAR Dataset") 文件 <- list.files(files_all, recursive = TRUE) 文件 #读取文件特定数据 #Test dataActivityTest <- read.table(file.path(files_all, "test"