Discussion 6

dodgers <- read.csv("DodgersData (1).csv")

names(dodgers)

##  [1] "month"       "day"         "attend"      "day_of_week" "opponent"   
##  [6] "temp"        "skies"       "day_night"   "cap"         "shirt"      
## [11] "fireworks"   "bobblehead"

dodgers[25, c("temp", "attend", "opponent", "bobblehead")]

##    temp attend opponent bobblehead
## 25   61  36561   Astros         NO

median(dodgers$attend)

## [1] 40284

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