#Question 5

library(quantmod)
## Warning: package 'quantmod' was built under R version 4.4.3
## Loading required package: xts
## Warning: package 'xts' was built under R version 4.4.3
## Loading required package: zoo
## Warning: package 'zoo' was built under R version 4.4.3
## 
## Attaching package: 'zoo'
## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric
## Loading required package: TTR
## Warning: package 'TTR' was built under R version 4.4.3
## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo
help("getSymbols", package = "quantmod")
## starting httpd help server ...
##  done
help.search("getSymbols")

#Question 6

#option E
getSymbols("MSFT", src="yahoo", from = "2024-10-01", to = "2025-02-01")
## [1] "MSFT"
#correct - gives correct MSFT and date for stock price

#Question 7

nrow(MSFT)
## [1] 84

#Question 8

head(MSFT[, "MSFT.Open"])
##            MSFT.Open
## 2024-10-01    428.45
## 2024-10-02    422.58
## 2024-10-03    417.63
## 2024-10-04    418.24
## 2024-10-07    416.00
## 2024-10-08    410.90
max_open_idx <- which.max(MSFT$MSFT.Open)
max_open_date <- index(MSFT)[max_open_idx]
max_open_price <- MSFT$MSFT.Open[max_open_idx]

max_open_date
## [1] "2024-12-18"
max_open_price
##            MSFT.Open
## 2024-12-18    451.32