Technical Financial Analysis of Marico Bangladesh Limited (in DSE)

Abstract: For this Technical Analysis report, I have chosen Marico Bangladesh Limited, which is enlisted in the Dhaka Stock Exchange (DSE). For the analysis, past five years’ daily adjusted closing prices of the “MARICO” stock were used, and several quantitative finance measures were used to evaluate the stock’s performance.

For company details and other information:

• Marico Bangladesh Limited Company Information in DSE

• Marico Bangladesh Limited Website

The following R libraries and packages were used for financial analysis of the stock’s performance over the years.:

library(tidyverse)

## -- Attaching packages --------------------------------------------------- tidyverse 1.3.0 --

## v ggplot2 3.3.2     v purrr   0.3.4
## v tibble  3.0.1     v dplyr   1.0.1
## v tidyr   1.1.0     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.5.0

## -- Conflicts ------------------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(QuantPsyc)

## Loading required package: boot

## Loading required package: MASS

## 
## Attaching package: 'MASS'

## The following object is masked from 'package:dplyr':
## 
##     select

## 
## Attaching package: 'QuantPsyc'

## The following object is masked from 'package:base':
## 
##     norm

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

## 
## Attaching package: 'xts'

## The following objects are masked from 'package:dplyr':
## 
##     first, last

## Loading required package: TTR

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

## Version 0.4-0 included new data defaults. See ?getSymbols.

library(readxl)
library(imputeTS)

## 
## Attaching package: 'imputeTS'

## The following object is masked from 'package:zoo':
## 
##     na.locf

library(imputeFin)

Collecting and processing data: First we need to import the historical data of MARICO from CSV file to R. Then then convert them into times series format(changing the format of the trading dates into YYYY-MM-DD).

MARICO<- read.csv('Marico-Bangladesh2015-2019.csv')
View(MARICO)
str(MARICO)

## 'data.frame':    1189 obs. of  2 variables:
##  $ Date : chr  "2019-12-30" "2019-12-29" "2019-12-26" "2019-12-24" ...
##  $ Price: num  1673 1656 1650 1646 1650 ...

names(MARICO)[names(MARICO) == 'ï..Date'] <- 'Date'
MARICO$Date<-as.Date(MARICO$Date)

Technical Analysis of the stock; Various quantitative financial measures, such as- MACD, Bollinger Bands, Relative Strength Index, are used to evaluate the historical performance of MARICO stock at DSE over the last 5 years.

MARICO.xts<- xts(MARICO[,-1], order.by=MARICO[,1])
xtsclose<-MARICO$Price

chartSeries(MARICO.xts)

addMACD()

addBBands(n = 20, sd = 2, maType = "SMA", draw = 'bands')

addRSI()

addVo()

daily<-dailyReturn(MARICO.xts)
weekly<-weeklyReturn(MARICO.xts)
monthly<-monthlyReturn(MARICO.xts)
all<-allReturns(MARICO.xts)
barChart(to.monthly(MARICO.xts),up.col='white',dn.col='orange')

chartSeries(to.weekly(MARICO.xts),up.col='white',dn.col='blue')

candleChart(MARICO.xts, multi.col=TRUE,  theme = chartTheme("wsj"))

MARICO.xts %>%
  chartSeries(TA='addBBands();
                    addBBands(draw="p");
                    addVo();
                    addMACD();addRSI();addSMA()', 
              subset='2019',
              theme="white" )

Thank you