Data
tickersList <- stockSymbols()
## Fetching NASDAQ symbols...
## Fetching non-NASDAQ symbols...
# Retrieve TESLA stock data
T_df <- getSymbols('TSLA', src='yahoo', auto.assign=FALSE)
summary(T_df)
## Index TSLA.Open TSLA.High TSLA.Low
## Min. :2010-06-29 Min. : 1.076 Min. : 1.109 Min. : 0.9987
## 1st Qu.:2013-11-18 1st Qu.: 10.851 1st Qu.: 11.163 1st Qu.: 10.6767
## Median :2017-04-11 Median : 17.003 Median : 17.253 Median : 16.7087
## Mean :2017-04-10 Mean : 71.259 Mean : 72.820 Mean : 69.5709
## 3rd Qu.:2020-09-01 3rd Qu.:119.950 3rd Qu.:123.520 3rd Qu.:117.0000
## Max. :2024-01-25 Max. :411.470 Max. :414.497 Max. :405.6667
## TSLA.Close TSLA.Volume TSLA.Adjusted
## Min. : 1.053 Min. : 1777500 Min. : 1.053
## 1st Qu.: 10.901 1st Qu.: 46158000 1st Qu.: 10.901
## Median : 16.989 Median : 81514500 Median : 16.989
## Mean : 71.231 Mean : 96885539 Mean : 71.231
## 3rd Qu.:122.376 3rd Qu.:123282000 3rd Qu.:122.376
## Max. :409.970 Max. :914082000 Max. :409.970
chartSeries(T_df, name="Tesla Share Performance", subset="last 14 years", theme=chartTheme("white"), TA="addVo();addBBands();addCCI()")
# Retrieve Ford Motor stock data
F_df <- getSymbols('F', src='yahoo', auto.assign=FALSE)
summary(F_df)
## Index F.Open F.High F.Low
## Min. :2007-01-03 Min. : 1.310 Min. : 1.55 Min. : 1.01
## 1st Qu.:2011-04-06 1st Qu.: 8.985 1st Qu.: 9.07 1st Qu.: 8.87
## Median :2015-07-15 Median :11.800 Median :11.93 Median :11.61
## Mean :2015-07-13 Mean :11.471 Mean :11.61 Mean :11.31
## 3rd Qu.:2019-10-17 3rd Qu.:13.935 3rd Qu.:14.12 3rd Qu.:13.78
## Max. :2024-01-25 Max. :24.870 Max. :25.87 Max. :24.37
## F.Close F.Volume F.Adjusted
## Min. : 1.260 Min. : 7128800 Min. : 0.7448
## 1st Qu.: 8.975 1st Qu.: 32649200 1st Qu.: 6.2854
## Median :11.770 Median : 46026300 Median : 8.3085
## Mean :11.459 Mean : 55395829 Mean : 8.2081
## 3rd Qu.:13.950 3rd Qu.: 65589250 3rd Qu.: 9.9709
## Max. :25.190 Max. :541175600 Max. :22.0766
chartSeries(F_df, name="Ford Share Performance", subset="last 14 years", theme=chartTheme("white"), TA="addVo();addBBands();addCCI()")
# Retrieve General Motors stock data
GM_df <- getSymbols('GM', src='yahoo', auto.assign=FALSE)
summary(GM_df)
## Index GM.Open GM.High GM.Low
## Min. :2010-11-18 Min. :16.34 Min. :18.56 Min. :14.33
## 1st Qu.:2014-03-10 1st Qu.:30.94 1st Qu.:31.32 1st Qu.:30.57
## Median :2017-06-22 Median :34.98 Median :35.30 Median :34.52
## Mean :2017-06-22 Mean :35.38 Mean :35.81 Mean :34.92
## 3rd Qu.:2020-10-07 3rd Qu.:38.14 3rd Qu.:38.49 3rd Qu.:37.65
## Max. :2024-01-25 Max. :65.52 Max. :67.21 Max. :62.69
## GM.Close GM.Volume GM.Adjusted
## Min. :16.80 Min. : 2757600 Min. :14.31
## 1st Qu.:30.96 1st Qu.: 9644900 1st Qu.:25.45
## Median :34.91 Median : 12687200 Median :29.63
## Mean :35.36 Mean : 14612919 Mean :31.35
## 3rd Qu.:38.10 3rd Qu.: 16934200 3rd Qu.:35.87
## Max. :65.74 Max. :457044300 Max. :64.75
chartSeries(GM_df, name="GM Share Performance", subset="last 14 years", theme=chartTheme("white"), TA="addVo();addBBands();addCCI()")
