Pedometer1

1. Download the csv file pedometer.csv into your pwd. Read the csv file.

pedo1 <- read.csv("pedometer.csv", header =  TRUE)
str(pedo1)

## 'data.frame':    88 obs. of  3 variables:
##  $ Observation: int  1 2 3 4 5 6 7 8 9 10 ...
##  $ Day        : Factor w/ 7 levels "Fri","Mon","Sat",..: 5 1 3 2 6 7 5 1 4 2 ...
##  $ Steps      : int  9178 694 12503 7802 7913 6135 7022 6337 11751 6861 ...

2. Count the average number of steps taken by this person.

avgpedo1 <- mean(pedo1$Steps)
avgpedo1

## [1] 9652.193

3. How many steps does this person take on Mondays-Fridays (steps per day of the week)?

pedoMonFri <- pedo1[pedo1$Day !="Sat" & pedo1$Day != "Sun",]
tapply(pedoMonFri$Steps, pedoMonFri$Day,sum)

##    Fri    Mon    Sat    Sun    Thu    Tue    Wed 
## 100490 134209     NA     NA 122790 124444 121786

4. Plot a histogram showing the average steps taken per day of the week (your answer for question 3)

library(RColorBrewer)
hist(pedoMonFri$Steps, main = "Average Steps Taken Per Day Histogram", xlab = "Steps", ylab = "Day", col = brewer.pal(8, "Dark2"))

5. Calculate the median of the average value of steps taken per day of the week.

pedomedian <- median(pedo1$Steps)
pedomedian

## [1] 9239