Packages

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

Q6

getSymbols("MSFT", src="yahoo",from = "2024-10-01", to = "2025-02-01")
## [1] "MSFT"
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.0218
## 2024-10-03    417.63    419.55   414.29     416.54    13686400      413.4361
## 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
tail(MSFT)
##            MSFT.Open MSFT.High MSFT.Low MSFT.Close MSFT.Volume MSFT.Adjusted
## 2025-01-24    445.16    446.65   441.40     444.06    15549500      441.6333
## 2025-01-27    424.01    435.20   423.50     434.56    35647800      432.1852
## 2025-01-28    434.60    448.38   431.38     447.20    23491700      444.7561
## 2025-01-29    446.69    446.88   440.40     442.33    23581400      439.9127
## 2025-01-30    418.77    422.86   413.16     414.99    54586300      412.7221
## 2025-01-31    418.98    420.69   414.91     415.06    34161900      412.7917

Q7

NROW(MSFT)
## [1] 84

Q8

plot(Op(MSFT))