alexeilutay

#### 1. Sign up at GitHub.com ################################################

## If you do not have a GitHub account, sign up here:
## https://github.com/join

# ----------------------------------------------------------------------------

#### 2. Install git ##########################################################

## If you do not have git installed, please do so: 

alexeilutay

# A function for transliteration inspired by https://gist.github.com/tukachev/7550665 but way too faster

translit2 <- function(text){
  transliterations <- data.frame(
    lat = c("A","B","V","G","D","E","YO","ZH","Z","I","J","K","L","M","N",
              "O","P","R","S","T","U","F","KH","C","CH","SH","SHCH","''","Y","'","E'","YU","YA",
              "a","b","v","g","d","e","yo","zh","z","i","j","k","l","m","n","o","p","r",
              "s","t","u","f","kh","c","ch","sh","shch","''","y","'","e'","yu","ya"),
    rus = c("А","Б","В","Г","Д","Е","Ё","Ж","З","И","Й","К","Л","М","Н","О","П",
            "Р","С","Т","У","Ф","Х","Ц","Ч","Ш","Щ","Ъ","Ы","Ь","Э","Ю","Я",

alexeilutay

---
output:
  html_document:
    code_folding: "hide" 
    toc: yes
    toc_depth: 2
---

```{r setup, include=FALSE, warning=FALSE, message=FALSE}