#Question 5

library(quantmod)
## Warning: package 'quantmod' was built under R version 4.3.3
## 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

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

getSymbols("MSFT", src="yahoo",from = "2024-10-01", to = "2025-02-01")
## [1] "MSFT"
#WRONG - getSymbols("MSFT", src="yahoo",from = "2024-10-01", to = "2025-01-31")

#WRONG - getSymbols("Microsoft", src="yahoo",from = "2024-10-01", to = Sys.Date())

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

#Wrong - getSymbols(c("GOOG","AMZN"), src="yahoo")

#Question 7

nrow(MSFT)
## [1] 84

#Question 8

plot(MSFT$MSFT.High)