Reproducible Research Project 1

Check

print("WORKING")

## [1] "WORKING"

Load Data

download.file("https://d396qusza40orc.cloudfront.net/repdata%2Fdata%2Factivity.zip", "activity.zip")
unzip("activity.zip")
data <- read.csv("activity.csv")
head(data)

##   steps       date interval
## 1    NA 2012-10-01        0
## 2    NA 2012-10-01        5
## 3    NA 2012-10-01       10
## 4    NA 2012-10-01       15
## 5    NA 2012-10-01       20
## 6    NA 2012-10-01       25

Plot

steps_per_day <- aggregate(steps ~ date, data, sum)
hist(steps_per_day$steps)