assignment2

library(quantmod)

## Warning: package 'quantmod' was built under R version 4.5.2

## Loading required package: xts

## Warning: package 'xts' was built under R version 4.5.2

## Loading required package: zoo

## 
## Attaching package: 'zoo'

## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

## Loading required package: TTR

## Warning: package 'TTR' was built under R version 4.5.2

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

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

## [1] "MSFT"

#I need to find the number or rows

nrow(MSFT)

## [1] 84

open_prices <- MSFT$MSFT.Open
which.max(open_prices)

## [1] 20

max(open_prices)

## [1] 550