Load library

library(quantmod)
## Loading required package: xts
## Loading required package: zoo
## 
## Attaching package: 'zoo'
## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric
## Loading required package: TTR
## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

Question 6

getSymbols("MSFT", src="yahoo",from = "2024-10-01", to = "2025-02-01")
## [1] "MSFT"

Question 7

dim(MSFT)
## [1] 84  6

Question 8

plot(MSFT$MSFT.Open)

Extra Credit

Install packages

install.packages("nflfastR")
## 
## The downloaded binary packages are in
##  /var/folders/5b/fyqyd6z90bq67_dfkhrh8g0c0000gn/T//RtmpK5LFXE/downloaded_packages

Load library

library(nflfastR)

2022 Data

# Pull 2022 NFL season play-by-play data
football_2022 <- load_pbp(2022)

Subset of data

football_2022_subset <- c("game_id", "home_team", "away_team", 
                     "down", "yrdln", "play_type", "yards_gained")

football_2022_final <- football_2022[, football_2022_subset]

Save

write.csv(football_2022_final, "football_2022_final.csv")