Retrieving the Data

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", from = "2025-01-01", to = "2025-12-31", auto.assign = FALSE)

SBUX <- getSymbols("SBUX", from = "2025-01-01", to = "2025-12-31", auto.assign = FALSE)

Showing returns for the stock and quick preview of first 5 rows

MSFT_returns <- dailyReturn(MSFT)
SBUX_returns <- dailyReturn(SBUX)
head(SBUX_returns)
##            daily.returns
## 2025-01-02   0.006772202
## 2025-01-03   0.004448342
## 2025-01-06   0.005940758
## 2025-01-07  -0.003113937
## 2025-01-08  -0.002585070
## 2025-01-10  -0.003779681
head(MSFT_returns)
##            daily.returns
## 2025-01-02  -0.016332602
## 2025-01-03   0.011395718
## 2025-01-06   0.010629503
## 2025-01-07  -0.012808253
## 2025-01-08   0.005185033
## 2025-01-10  -0.013213646

Summary of the Daily Returns

plot(SBUX_returns)

plot(MSFT_returns)

## Showing summary stats of the returns

#Microsofts:
summary(MSFT_returns)
##      Index            daily.returns       
##  Min.   :2025-01-02   Min.   :-0.0618090  
##  1st Qu.:2025-04-03   1st Qu.:-0.0061158  
##  Median :2025-07-03   Median : 0.0007629  
##  Mean   :2025-07-02   Mean   : 0.0006618  
##  3rd Qu.:2025-10-01   3rd Qu.: 0.0061393  
##  Max.   :2025-12-30   Max.   : 0.1013368
#Starbucks:
summary(SBUX_returns)
##      Index            daily.returns       
##  Min.   :2025-01-02   Min.   :-1.122e-01  
##  1st Qu.:2025-04-03   1st Qu.:-1.133e-02  
##  Median :2025-07-03   Median : 3.244e-04  
##  Mean   :2025-07-02   Mean   :-5.393e-05  
##  3rd Qu.:2025-10-01   3rd Qu.: 1.132e-02  
##  Max.   :2025-12-30   Max.   : 1.128e-01