Assignment 2 BI

Install packages and Library

library("readr")
library(wbstats)
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

MSFT <- getSymbols("MSFT", src = "yahoo",
                   from = "2024-10-01", to = "2025-01-31",
                   auto.assign = FALSE)

plot(MSFT[, "MSFT.Open"],
     main = "MSFT Open Prices (Daily)",
     ylab = "Price", xlab = "Date")

dim(MSFT)

## [1] 83  6