class: center, middle, inverse, title-slide .title[ # What Can We Achieve with R and RStudio ] .subtitle[ ## ⚔
The Economists Club ] .author[ ### Byambadorj ] .date[ ### 2026-03-27 ] --- background-image: URL("logo.png") background-size: 100px background-position: 90% 8% # Main possibilities for economics students - Data cleaning and preparation - Descriptive statistics - Econometrics - Time series and forecasting - Reproducible research - Automated reporting -- - **Visualization** / [RPubs](https://rpubs.com/byambaa212/flexdashboard) -- - **Dashboards** / [Shiny apps](https://byambaa212.shinyapps.io/Mortgage/) -- - **Web scraping / data collection** --- # R Code ``` r # a boring regression fit = lm(dist ~ 1 + speed, data = cars) coef(summary(fit)) ``` ``` # Estimate Std. Error t value Pr(>|t|) # (Intercept) -17.579095 6.7584402 -2.601058 1.231882e-02 # speed 3.932409 0.4155128 9.463990 1.489836e-12 ``` --- # Tables If you want to generate a table, make sure it is in the HTML format (instead of Markdown or other formats), e.g., ``` r knitr::kable(head(iris), format = 'html') ``` <table> <thead> <tr> <th style="text-align:right;"> Sepal.Length </th> <th style="text-align:right;"> Sepal.Width </th> <th style="text-align:right;"> Petal.Length </th> <th style="text-align:right;"> Petal.Width </th> <th style="text-align:left;"> Species </th> </tr> </thead> <tbody> <tr> <td style="text-align:right;"> 5.1 </td> <td style="text-align:right;"> 3.5 </td> <td style="text-align:right;"> 1.4 </td> <td style="text-align:right;"> 0.2 </td> <td style="text-align:left;"> setosa </td> </tr> <tr> <td style="text-align:right;"> 4.9 </td> <td style="text-align:right;"> 3.0 </td> <td style="text-align:right;"> 1.4 </td> <td style="text-align:right;"> 0.2 </td> <td style="text-align:left;"> setosa </td> </tr> <tr> <td style="text-align:right;"> 4.7 </td> <td style="text-align:right;"> 3.2 </td> <td style="text-align:right;"> 1.3 </td> <td style="text-align:right;"> 0.2 </td> <td style="text-align:left;"> setosa </td> </tr> <tr> <td style="text-align:right;"> 4.6 </td> <td style="text-align:right;"> 3.1 </td> <td style="text-align:right;"> 1.5 </td> <td style="text-align:right;"> 0.2 </td> <td style="text-align:left;"> setosa </td> </tr> <tr> <td style="text-align:right;"> 5.0 </td> <td style="text-align:right;"> 3.6 </td> <td style="text-align:right;"> 1.4 </td> <td style="text-align:right;"> 0.2 </td> <td style="text-align:left;"> setosa </td> </tr> <tr> <td style="text-align:right;"> 5.4 </td> <td style="text-align:right;"> 3.9 </td> <td style="text-align:right;"> 1.7 </td> <td style="text-align:right;"> 0.4 </td> <td style="text-align:left;"> setosa </td> </tr> </tbody> </table> --- # HTML Widgets ``` r library(leaflet) leaflet() %>% addTiles() %>% setView(-93.65, 42.0285, zoom = 17) ```
--- ``` r DT::datatable( head(iris, 10), fillContainer = FALSE, options = list(pageLength = 8) ) ```
--- # Visualization Example
--- # Data import from Yahoo Fin ``` r library(tidyquant) # Data import library(highcharter) invisible(getSymbols("NFLX" ,from = '2016-12-01',to = "2021-12-01",auto.assign = TRUE)) ```
--- # How R Influenced My Life - Strengthened my analytical and problem-solving skills - Helped me complete **two internships at the Bank of Mongolia** - Used to build an **interactive mortgage dashboard** with **R Shiny** - Used to develop an **R package for seasonal adjustment** - Supported the analysis for my **bachelor’s thesis** - Contributed to my achievements in **economics olympiads and statistics competitions** - Helped lead me to my **previous role at the Bank of Mongolia** - Played an important role in shaping my academic and professional path --- class: inverse, middle, center background-image: url(https://upload.wikimedia.org/wikipedia/commons/3/39/Naruto_Shiki_Fujin.svg) background-size: contain # Thanks!