Assignment 2

Question 5

# install.packages("quantmod")

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

quantmod::getSymbols()

## Warning in quantmod::getSymbols(): no Symbols specified

Question 6 & 7:

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

## [1] "MSFT"

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

nrow(msft_data)

## NULL

getSymbols.yahoo("MSFT", .GlobalEnv, from = "2024-10-01", to = "2025-01-31", periodicity = "weekly")

## [1] "MSFT"

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

## [1] "MSFT"

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

## [1] "MSFT"

getSymbols(c("GOOG","AMZN"), src="yahoo")

## [1] "GOOG" "AMZN"

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

## [1] "MSFT"

Question 8:

max_open <- max(MSFT$MSFT.Open, na.rm = TRUE)
max_open

## [1] 451.32

# plot(MSFT)

max_open_date <- MSFT[MSFT$MSFT.Open == max_open, ]

max_open_date

##            MSFT.Open MSFT.High MSFT.Low MSFT.Close MSFT.Volume MSFT.Adjusted
## 2024-12-18    451.32    452.65   437.02     437.39    24444500      434.9997

plot(MSFT$MSFT.Open)