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