Assignment

#Q5

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(c("MSFT" , "BAC" , "HOOD" , "TSLA"), src = "yahoo")

## [1] "MSFT" "BAC"  "HOOD" "TSLA"

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

## [1] "GDP"

getSymbols(c("USD/EUR"), src = "oanda")

## [1] "USD/EUR"

#Q6

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

## [1] "MSFT"

#Q7

# Find the date of the highest opening price
which.max(MSFT$MSFT.Open)

## [1] 56

# Show the actual value and date
MSFT[which.max(MSFT$MSFT.Open), "MSFT.Open"]

##            MSFT.Open
## 2024-12-18    451.32

Assignment_2