Assignment #2

library(wbstats)

Question 5

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

?getSymbols
help("getSymbols")

getSymbols("AAPL", src = "yahoo")

## [1] "AAPL"

getSymbols("GDP", src = "FRED")

## [1] "GDP"

Question 6

getSymbols("MSFT", src="yahoo", from="2025-10-01", to="2026-01-31")

## [1] "MSFT"

Question 7

library(quantmod)
getSymbols("MSFT",
           src  = "yahoo",
           from = "2025-10-01",
           to   = "2026-01-31")

## [1] "MSFT"

nrow(MSFT)

## [1] 84

Question 8

library(quantmod)
getSymbols("MSFT",
           src  = "yahoo",
           from = "2025-10-01",
           to   = "2026-01-31")

## [1] "MSFT"

open_prices <- MSFT$MSFT.Open
max(open_prices)

## [1] 550

index(open_prices)[which.max(open_prices)]

## [1] "2025-10-28"