Reproducible Research

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

## 
## Attaching package: 'dplyr'
## 
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## 
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

ActivityData <- read.csv("activity.csv")
SummarySteps<-ActivityData %>% 
        #na.omit() %>%
        group_by(date) %>%
        summarise(TotalSteps = sum(steps,na.rm=TRUE),
                  meanSteps=mean(steps,na.rm=TRUE),
                  medianSteps=median(steps,na.rm=TRUE)
                  )
SummarySteps$Week <- weekdays(as.Date(SummarySteps$date))
SummarySteps$WeekDayorWeekEnd<- 'Week Day'
SummarySteps$WeekDayorWeekEnd[SummarySteps$Week=="Sunday" |SummarySteps$Week=="Saturday"] <- 'Week End'



#qqline(v=median(TotalSteps))

## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.