Istanbul Stock Exchange

An analysis of returns of the ISE index.

Bhargav Rele (s3761977)

Introduction

Why is the Istanbul Stock Exchange the subject of this analysis?

Turkey’s economy is one of the fastest emerging economies[1] in the world. It has the 17th largest nominal GDP[2] and is a newly industrialised country. Given this, Turkey’s financial markets is subject to more growth than the financial markets of an already developed country.

Why did we use global stock indexes?

The best indicator of the overall growth, performance and strength of a countries financial markets, is its stock index[3]. The evaluation and comparison of the returns of each stock index over the same period in time could give us an insight into the performance of the ISE relative to global stock exchanges. This in turn would also give us an insight into Turkey’s financial performance relative to the finacial performance of global economies.

Problem Statement

Hypothesis Test 1

A two sample (paired) t-test was used to test the difference between the returns of the Istanbul Stock Exchange and the S&P500 stock index, and, to compare the financial performance between the Istanbul stock market and the American stock market. We expected to see a positive difference between the returns of the two indexes (‘ISE_USD’ - ‘SP’ > 0) because Turkey is an emerging economy (high growth prospects) and the U.S.A. is a stable economy[3].

Hypothesis Test 2

A Chi-squared test of association was used to check if the relationship between two categorical variables was significant. The two categorical variables referred to were the positive/negative returns of the ISE index and the S&P500 index. We expected to see a significant association between ‘ISE_CAT’ and ‘SP_CAT’.

Correlation between the stock indexes

We then observed Pearson’s correlation matrix for the indices of our dataset. We were able to examine the ‘Spillover effect’, where the performance of one countries economy affects another countries economy without any direct relationship (thus, making most stock markets correlated)[4].

Data

Data Cont.

Visualisation of the returns of the ISE index and the S&P500 index

boxplot(index$ISE_USD,index$SP, title = "Boxplot for Stock Index Returns",
        ylab= "Returns", xlab="")
axis(1, at=1:2, labels=c('ISE','SP'))

Descriptive Statistics

index <- index %>% mutate(d= (ISE_USD-SP))
index %>% summarise(Min = min(d,na.rm = TRUE),
                  Q1 = quantile(d,probs = .25,na.rm = TRUE),
                  Median = median(d, na.rm = TRUE),
                  Q3 = quantile(d,probs = .75,na.rm = TRUE),
                  Max = max(d,na.rm = TRUE),
                  Mean = mean(d, na.rm = TRUE),
                  SD = sd(d, na.rm = TRUE),
                  n = n(),
                  Missing = sum(is.na(d))) -> diff_descriptive_stats
knitr::kable(diff_descriptive_stats)
Min Q1 Median Q3 Max Mean SD n Missing
-0.0881073 -0.010171 0.001646 0.0122443 0.0681678 0.0009089 0.0194192 536 0

Hypothesis Test 1

index <- index %>% mutate(d= (ISE_USD-SP))
qqPlot(index$d, dist="norm")

[1]  4 95

Hypthesis Test 1 Cont.

t.test(index$d,mu=0, alternative="two.sided")

    One Sample t-test

data:  index$d
t = 1.0836, df = 535, p-value = 0.279
alternative hypothesis: true mean is not equal to 0
95 percent confidence interval:
 -0.0007387824  0.0025566354
sample estimates:
   mean of x 
0.0009089265 

The mean difference between ISE and SP was 0.0009089 with a standard deviation of 0.0194192. As the sample consisted of n>30 observations, the distribution was assumed to follow a normal distribution. The paired sample t-test found the mean difference between the return of the ISE index and the S&P500 index to not be statistically significant.The results of the test (t(df=535)=1.0836, p-value=0.279, confidence interval = 95% [-0.000739, 0.002557]) meant that we failed to reject \(H_0: µ_d = 0\).The p-value of 0.279 was greater than the alpha of 5%. The confidence interval succeeded in capturing the mean of our sample i.e., 0.0009089.

Hypothesis Test 2

Hypothesis Test 2 Contd.

chi1 <- chisq.test(table(index$ISE_CAT , index$SP_CAT))
chi1 

    Pearson's Chi-squared test with Yates' continuity correction

data:  table(index$ISE_CAT, index$SP_CAT)
X-squared = 22.571, df = 1, p-value = 2.025e-06
qchisq(p=0.05, df=1, lower.tail = FALSE)
[1] 3.841459

Reggression Model 1

We first examine the scatterplot of the dependent variable (ISE_USD) and the predictor variable (SP).

plot(index$ISE_USD~index$SP, xlab='S&P500 Returns', ylab = 'ISE Index Returnes', title='Scatterplot of Returns')

- It was observed that the returns for the two indeces depicted an approximate positive linear relationship. Hence, we could proceed with the creation of a linear regression model.

Our model: \(y=\beta_0 + \beta_1x_1 =>\) ISE_USD = \(\beta_0 + \beta_1\) SP

model <- lm(index$ISE_USD~index$SP)
model %>% summary()

Call:
lm(formula = index$ISE_USD ~ index$SP)

Residuals:
      Min        1Q    Median        3Q       Max 
-0.088120 -0.010764  0.000579  0.011136  0.070506 

Coefficients:
             Estimate Std. Error t value Pr(>|t|)    
(Intercept) 0.0011188  0.0008166    1.37    0.171    
index$SP    0.6737831  0.0579340   11.63   <2e-16 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 0.01888 on 534 degrees of freedom
Multiple R-squared:  0.2021,    Adjusted R-squared:  0.2006 
F-statistic: 135.3 on 1 and 534 DF,  p-value: < 2.2e-16
2*pt(q = 1.37,df = 534, lower.tail=FALSE)
[1] 0.1712626

Interpretation

Significance

Assumptions of our Regression Model

plot(model)

The Correlation Matrix

res2 <- as.matrix(dplyr::select(index, ISE_USD,SP,DAX,FTSE,NIKKEI,BOVESPA,EU,EM))
rcorr(res2, type=c("pearson"))
        ISE_USD   SP  DAX FTSE NIKKEI BOVESPA   EU   EM
ISE_USD    1.00 0.45 0.63 0.65   0.39    0.45 0.69 0.70
SP         0.45 1.00 0.69 0.66   0.13    0.72 0.69 0.53
DAX        0.63 0.69 1.00 0.87   0.26    0.59 0.94 0.67
FTSE       0.65 0.66 0.87 1.00   0.26    0.60 0.95 0.69
NIKKEI     0.39 0.13 0.26 0.26   1.00    0.17 0.28 0.55
BOVESPA    0.45 0.72 0.59 0.60   0.17    1.00 0.62 0.69
EU         0.69 0.69 0.94 0.95   0.28    0.62 1.00 0.72
EM         0.70 0.53 0.67 0.69   0.55    0.69 0.72 1.00

n= 536 


P
        ISE_USD SP     DAX    FTSE   NIKKEI BOVESPA EU     EM    
ISE_USD         0.0000 0.0000 0.0000 0.0000 0.0000  0.0000 0.0000
SP      0.0000         0.0000 0.0000 0.0023 0.0000  0.0000 0.0000
DAX     0.0000  0.0000        0.0000 0.0000 0.0000  0.0000 0.0000
FTSE    0.0000  0.0000 0.0000        0.0000 0.0000  0.0000 0.0000
NIKKEI  0.0000  0.0023 0.0000 0.0000        0.0000  0.0000 0.0000
BOVESPA 0.0000  0.0000 0.0000 0.0000 0.0000         0.0000 0.0000
EU      0.0000  0.0000 0.0000 0.0000 0.0000 0.0000         0.0000
EM      0.0000  0.0000 0.0000 0.0000 0.0000 0.0000  0.0000       

Discussion & Conclusions:

Limitations:

References