[Getting and Cleaning data] Project
More details can be found here.
Project introduction
The purpose of this project is to demonstrate your ability to collect, work with, and clean a data set.
Review criteria
Getting and Cleaning Data Course Project
The purpose of this project is to demonstrate your ability to collect, work with, and clean a data set. The goal is to prepare tidy data that can be used for later analysis. You will be graded by your peers on a series of yes/no questions related to the project. You will be required to submit: 1) a tidy data set as described below, 2) a link to a Github repository with your script for performing the analysis, and 3) a code book that describes the variables, the data, and any transformations or work that you performed to clean up the data called CodeBook.md. You should also include a README.md in the repo with your scripts. This repo explains how all of the scripts work and how they are connected.
One of the most exciting areas in all of data science right now is wearable computing - see for example this article. Companies like Fitbit, Nike, and Jawbone Up are racing to develop the most advanced algorithms to attract new users. The data linked to from the course website represent data collected from the accelerometers from the Samsung Galaxy S smartphone. A full description is available at the site where the data was obtained:
http://archive.ics.uci.edu/ml/datasets/Human+Activity+Recognition+Using+Smartphones
Here are the data for the project:
https://d396qusza40orc.cloudfront.net/getdata%2Fprojectfiles%2FUCI%20HAR%20Dataset.zip
You should create one R script called run_analysis.R that does the following.
Good luck!
Project code.
setwd("E:/coursera/note")
#-------------------------------------------------------------------------------
# 1. Merge the training and the test sets to create one data set.
## step 1: download zip file from website
if(!file.exists("./data")) dir.create("./data")
fileUrl "https://d396qusza40orc.cloudfront.net/getdata%2Fprojectfiles%2FUCI%20HAR%20Dataset.zip"
download.file(fileUrl, destfile = "./data/projectData_getCleanData.zip")
## step 2: unzip data
listZip "./data/projectData_getCleanData.zip", exdir = "./data")
## step 3: load data into R
train.x read.table("./data/UCI HAR Dataset/train/X_train.txt")
train.y read.table("./data/UCI HAR Dataset/train/y_train.txt")
train.subject read.table("./data/UCI HAR Dataset/train/subject_train.txt")
test.x read.table("./data/UCI HAR Dataset/test/X_test.txt")
test.y read.table("./data/UCI HAR Dataset/test/y_test.txt")
test.subject read.table("./data/UCI HAR Dataset/test/subject_test.txt")
## step 4: merge train and test data
trainData 2. Extract only the measurements on the mean and standard deviation for each measurement.
## step 1: load feature name into R
featureName read.table("./data/UCI HAR Dataset/features.txt", stringsAsFactors = FALSE)[,2]
## step 2: extract mean and standard deviation of each measurements
featureIndex "mean\\(\\)|std\\(\\)"), featureName)
finalData 1, 2, featureIndex+2)]
colnames(finalData) "subject", "activity", featureName[featureIndex])
#-------------------------------------------------------------------------------
# 3. Uses descriptive activity names to name the activities in the data set
## step 1: load activity data into R
activityName read.table("./data/UCI HAR Dataset/activity_labels.txt")
## step 2: replace 1 to 6 with activity names
finalData$activity 1], labels = activityName[,2])
#-------------------------------------------------------------------------------
# 4. Appropriately labels the data set with descriptive variable names.
names(finalData) "\\()", "", names(finalData))
names(finalData) "^t", "time", names(finalData))
names(finalData) "^f", "frequence", names(finalData))
names(finalData) "-mean", "Mean", names(finalData))
names(finalData) "-std", "Std", names(finalData))
#-------------------------------------------------------------------------------
# 5. From the data set in step 4, creates a second, independent tidy data set with the average of each variable for each activity and each subject.
library(dplyr)
groupData %
group_by(subject, activity) %>%
summarise_each(funs(mean))
write.table(groupData, "./Getting_and_Cleaning_data_Project/MeanData.txt", row.names = FALSE)
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
SPSS Statistics 27에서 "효과량"출력최근의 학술논문에서는 실험에서 유의한 차이가 있는지 여부를 나타내는 p-값뿐만 아니라 그 차이에 얼마나 효과가 있는지를 나타내는 효과량의 제시가 요구되고 있다. 일반적으로 두 가지 차이점은 효과량을 계산할 때 분산을...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.