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
??quantmod

##Soru 1 ## yahodan Apple ve Microsoft seçtim.

getSymbols('AAPL')
## [1] "AAPL"
head(AAPL)
##            AAPL.Open AAPL.High AAPL.Low AAPL.Close AAPL.Volume AAPL.Adjusted
## 2007-01-03  3.081786  3.092143 2.925000   2.992857  1238319600      2.547276
## 2007-01-04  3.001786  3.069643 2.993571   3.059286   847260400      2.603815
## 2007-01-05  3.063214  3.078571 3.014286   3.037500   834741600      2.585272
## 2007-01-08  3.070000  3.090357 3.045714   3.052500   797106800      2.598039
## 2007-01-09  3.087500  3.320714 3.041071   3.306071  3349298400      2.813858
## 2007-01-10  3.383929  3.492857 3.337500   3.464286  2952880000      2.948517
tail(AAPL)
##            AAPL.Open AAPL.High AAPL.Low AAPL.Close AAPL.Volume AAPL.Adjusted
## 2023-02-24    147.11    147.19   145.72     146.71    55469600        146.71
## 2023-02-27    147.71    149.17   147.45     147.92    44998500        147.92
## 2023-02-28    147.05    149.08   146.83     147.41    50547000        147.41
## 2023-03-01    146.83    147.23   145.01     145.31    55479000        145.31
## 2023-03-02    144.38    146.71   143.90     145.91    52238100        145.91
## 2023-03-03    148.04    151.11   147.33     151.03    70668500        151.03
chartSeries(AAPL)

chartSeries(AAPL, theme="white")

getSymbols("MSFT")
## [1] "MSFT"
head(MSFT)
##            MSFT.Open MSFT.High MSFT.Low MSFT.Close MSFT.Volume MSFT.Adjusted
## 2007-01-03     29.91     30.25    29.40      29.86    76935100      21.57304
## 2007-01-04     29.70     29.97    29.44      29.81    45774500      21.53692
## 2007-01-05     29.63     29.75    29.45      29.64    44607200      21.41410
## 2007-01-08     29.65     30.10    29.53      29.93    50220200      21.62362
## 2007-01-09     30.00     30.18    29.73      29.96    44636600      21.64529
## 2007-01-10     29.80     29.89    29.43      29.66    55017400      21.42855
tail(MSFT)
##            MSFT.Open MSFT.High MSFT.Low MSFT.Close MSFT.Volume MSFT.Adjusted
## 2023-02-24    249.96    251.00   248.10     249.22    24990900        249.22
## 2023-02-27    252.46    252.82   249.39     250.16    21190000        250.16
## 2023-02-28    249.07    251.49   248.73     249.42    22491000        249.42
## 2023-03-01    250.76    250.93   245.79     246.27    27565300        246.27
## 2023-03-02    246.55    251.40   245.61     251.11    24808200        251.11
## 2023-03-03    252.19    255.62   251.39     255.29    30741300        255.29
chartSeries(MSFT)

chartSeries(MSFT,theme="white")

##Soru 2 Dövizler ise rusya rublesi ve TL

getFX("Rub/try")
## [1] "Rub/try"
chartSeries(RUBTRY)

chartSeries(RUBTRY,theme="white")