pacman::p_load(tidyverse)
pacman::p_load(readr)
pacman::p_load(latex2exp)
pacman::p_load(kableExtra)
pacman::p_load(gt)

old_theme <-theme_set(theme_minimal(base_size=12, base_family = "Helvetica"))

pacman::p_load("knitr")

opts_chunk$set(warning = FALSE,
               message = FALSE,
               cache = TRUE,
               autodep = TRUE,
               tidy = FALSE,
               fig.retina = 4,
               fig.height = 4)

pacman::p_load(data.table)
df <-  tibble::tibble(X=letters[seq(1,6,2)], 
                      Y=rnorm(3))
df # a bivariate sample of length 3
LS0tCnRpdGxlOiAiQ00gMyBFREEgOiBTdGF0aXN0aXF1ZXMgYml2YXJpw6llcyIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKCmBgYHtyIHNldHVwfQpwYWNtYW46OnBfbG9hZCh0aWR5dmVyc2UpCnBhY21hbjo6cF9sb2FkKHJlYWRyKQpwYWNtYW46OnBfbG9hZChsYXRleDJleHApCnBhY21hbjo6cF9sb2FkKGthYmxlRXh0cmEpCnBhY21hbjo6cF9sb2FkKGd0KQoKb2xkX3RoZW1lIDwtdGhlbWVfc2V0KHRoZW1lX21pbmltYWwoYmFzZV9zaXplPTEyLCBiYXNlX2ZhbWlseSA9ICJIZWx2ZXRpY2EiKSkKCnBhY21hbjo6cF9sb2FkKCJrbml0ciIpCgpvcHRzX2NodW5rJHNldCh3YXJuaW5nID0gRkFMU0UsCiAgICAgICAgICAgICAgIG1lc3NhZ2UgPSBGQUxTRSwKICAgICAgICAgICAgICAgY2FjaGUgPSBUUlVFLAogICAgICAgICAgICAgICBhdXRvZGVwID0gVFJVRSwKICAgICAgICAgICAgICAgdGlkeSA9IEZBTFNFLAogICAgICAgICAgICAgICBmaWcucmV0aW5hID0gNCwKICAgICAgICAgICAgICAgZmlnLmhlaWdodCA9IDQpCgpwYWNtYW46OnBfbG9hZChkYXRhLnRhYmxlKQpgYGAKCmBgYHtyfQpkZiA8LSAgdGliYmxlOjp0aWJibGUoWD1sZXR0ZXJzW3NlcSgxLDYsMildLCAKICAgICAgICAgICAgICAgICAgICAgIFk9cm5vcm0oMykpCmRmICMgYSBiaXZhcmlhdGUgc2FtcGxlIG9mIGxlbmd0aCAzCmBgYAoK