Microsoft Stocks vs Starbucks

Retrieving the Data

library(quantmod)
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

``` r
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