ODEV 2

ÖDEV 2

1. Total External Debt for Uzbekistan- Özbekistan’ın Toplam Dış Borcu

library(quantmod)

## Загрузка требуемого пакета: xts

## Загрузка требуемого пакета: zoo

## 
## Присоединяю пакет: 'zoo'

## Следующие объекты скрыты от 'package:base':
## 
##     as.Date, as.Date.numeric

## Загрузка требуемого пакета: TTR

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

getSymbols("UZBDGDPGDPPT" , src = "FRED")

## 'getSymbols' currently uses auto.assign=TRUE by default, but will
## use auto.assign=FALSE in 0.5-0. You will still be able to use
## 'loadSymbols' to automatically load data. getOption("getSymbols.env")
## and getOption("getSymbols.auto.assign") will still be checked for
## alternate defaults.
## 
## This message is shown once per session and may be disabled by setting 
## options("getSymbols.warning4.0"=FALSE). See ?getSymbols for details.

## [1] "UZBDGDPGDPPT"

chartSeries(UZBDGDPGDPPT, theme = "black")

getSymbols("POPTOTUZA647NWDB" , src = "FRED")

## [1] "POPTOTUZA647NWDB"

2. Population, Total for Uzbekistan- Özbekistan’ın Toplam Nüfusu

chartSeries(POPTOTUZA647NWDB, theme = "black")

3. Apple hisse senedi

library(quantmod)

getSymbols("AAPL")

## [1] "AAPL"

tail(AAPL)

##            AAPL.Open AAPL.High AAPL.Low AAPL.Close AAPL.Volume AAPL.Adjusted
## 2022-02-17    171.03    171.91   168.47     168.88    69589300        168.88
## 2022-02-18    169.82    170.54   166.19     167.30    82614200        167.30
## 2022-02-22    164.98    166.69   162.15     164.32    91162800        164.32
## 2022-02-23    165.54    166.15   159.75     160.07    90009200        160.07
## 2022-02-24    152.58    162.85   152.00     162.74   141147500        162.74
## 2022-02-25    163.84    165.12   160.87     164.85    91881700        164.85

dim(AAPL)

## [1] 3815    6

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.562706
## 2007-01-04  3.001786  3.069643 2.993571   3.059286   847260400      2.619587
## 2007-01-05  3.063214  3.078571 3.014286   3.037500   834741600      2.600932
## 2007-01-08  3.070000  3.090357 3.045714   3.052500   797106800      2.613776
## 2007-01-09  3.087500  3.320714 3.041071   3.306071  3349298400      2.830903
## 2007-01-10  3.383929  3.492857 3.337500   3.464286  2952880000      2.966379

chartSeries(AAPL)

getFX("USD/UZS" , from = 2021-10-10 )

## Warning in doTryCatch(return(expr), name, parentenv, handler): Oanda only
## provides historical data for the past 180 days. Symbol: USD/UZS

## [1] "USD/UZS"

4. Son bir yıl UZS(Özbekistan para birimi) ve USD değeri

chartSeries(USDUZS,theme="black")

5. Türkiye ve Özbekstan’ın 2000-2021 yılları Dış borcu

library(WDI)

df = WDI(indicator='DT.DOD.DECT.GN.ZS', country=c('UZB','TR'), start=2000, end=2021)

head(df)

##   iso2c country DT.DOD.DECT.GN.ZS year
## 1    TR  Turkey          61.29407 2020
## 2    TR  Turkey          58.91416 2019
## 3    TR  Turkey          58.18126 2018
## 4    TR  Turkey          53.84603 2017
## 5    TR  Turkey          47.57877 2016
## 6    TR  Turkey          46.79776 2015

library(dplyr)

## 
## Присоединяю пакет: 'dplyr'

## Следующие объекты скрыты от 'package:xts':
## 
##     first, last

## Следующие объекты скрыты от 'package:stats':
## 
##     filter, lag

## Следующие объекты скрыты от 'package:base':
## 
##     intersect, setdiff, setequal, union

df <- df %>%
  rename(ulkekodu = 1,
         ulke = 2,
         Disborc = 3,
         sene = 4)

library(reshape2)
data_genis <- dcast(df, sene ~ ulke, value.var="Disborc")

head(data_genis)

##   sene   Turkey Uzbekistan
## 1 2000 43.21085   36.53933
## 2 2001 57.40564   46.54532
## 3 2002 54.94340   53.86641
## 4 2003 46.62121   53.11794
## 5 2004 39.58211   43.44181
## 6 2005 34.65535   32.42838

tsveri <- ts(data_genis, start=2000, frequency=1)

head(tsveri)

##      sene   Turkey Uzbekistan
## [1,] 2000 43.21085   36.53933
## [2,] 2001 57.40564   46.54532
## [3,] 2002 54.94340   53.86641
## [4,] 2003 46.62121   53.11794
## [5,] 2004 39.58211   43.44181
## [6,] 2005 34.65535   32.42838

plot(tsveri[,2:3])

plot(tsveri[,2:3], plot.type = "single")

plot(tsveri[,2],
     type = "l",
     col = 2,
     ylim = c(0, 80),
     xlab = "Sene",
     ylab = "Disborc")
lines(tsveri[,3],
      type = "l",
      col = 3)
legend("topright",                           
       c("TURKEY", "UZBEKISTAN"),
       lty = 1,
       col = 2:3)

6. Türkiye ve Özbekstan’ın 2015-2020 yılları Mal ve hizmet ihracatı

library(WDI)

df = WDI(indicator='NE.EXP.GNFS.ZS', country=c('TR','UZB'), start=2015, end=2020)

head(df)

##   iso2c country NE.EXP.GNFS.ZS year
## 1    TR  Turkey       28.66486 2020
## 2    TR  Turkey       32.59735 2019
## 3    TR  Turkey       31.15288 2018
## 4    TR  Turkey       26.03942 2017
## 5    TR  Turkey       23.08351 2016
## 6    TR  Turkey       24.53128 2015

library(dplyr)
df <- df %>%
  rename(ulkekodu = 1,
         ulke = 2,
         ihracat = 3,
         sene = 4)

library(reshape2)
data_genis <- dcast(df, sene ~ ulke, value.var="ihracat")

head(data_genis)

##   sene   Turkey Uzbekistan
## 1 2015 24.53128   13.76629
## 2 2016 23.08351   12.33307
## 3 2017 26.03942   20.74807
## 4 2018 31.15288   26.96190
## 5 2019 32.59735   28.42139
## 6 2020 28.66486   24.27361

plot(tsveri[,2],
     type = "l",
     col = 2,
     ylim = c(0, 70),
     xlab = "Sene",
     ylab = "Mal ve hizmet ihracat")
lines(tsveri[,3],
      type = "l",
      col = 3)
legend("topright",                           
       c("Turkey", "Uzbekistan"),
       lty = 1,
       col = 2:3)

ODEV 2

Dilbek Kurbanov

26 02 2022

ÖDEV 2

1. Total External Debt for Uzbekistan- Özbekistan’ın Toplam Dış Borcu

2. Population, Total for Uzbekistan- Özbekistan’ın Toplam Nüfusu

3. Apple hisse senedi

4. Son bir yıl UZS(Özbekistan para birimi) ve USD değeri

5. Türkiye ve Özbekstan’ın 2000-2021 yılları Dış borcu

6. Türkiye ve Özbekstan’ın 2015-2020 yılları Mal ve hizmet ihracatı