Assignment 2 - Business Intelligence

# 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

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

## [1] "MSFT"

plot(MSFT$MSFT.Open)

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

## [1] 451.32

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

##            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.9998