Assignment 2

Assignment 2

Load Package

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-01-31")

## [1] "MSFT"

Question 7

nrow(MSFT)

## [1] 83

Question 8

head(MSFT)

##            MSFT.Open MSFT.High MSFT.Low MSFT.Close MSFT.Volume MSFT.Adjusted
## 2024-10-01    428.45    428.48   418.81     420.69    19092900      417.5552
## 2024-10-02    422.58    422.82   416.71     417.13    16582300      414.0217
## 2024-10-03    417.63    419.55   414.29     416.54    13686400      413.4362
## 2024-10-04    418.24    419.75   414.97     416.06    19169700      412.9597
## 2024-10-07    416.00    417.11   409.00     409.54    20919800      406.4883
## 2024-10-08    410.90    415.66   408.17     414.71    19229300      411.6198

msft_open <- MSFT$MSFT.Open

max_open <- max(msft_open)

max_open_dates <- index(MSFT)[which(msft_open == max_open)]

max_open

## [1] 451.32

max_open_dates

## [1] "2024-12-18"