test.Rmd

---
title: "Untitled"
author: "®γσ ξηg <img src='figure/aaaa.jpg' width='16'>"
date: "10/20/2020"
  html_document: 
    mathjax: https://cdn.jsdelivr.net/npm/mathjax@3/es5/tex-mml-chtml.js
---

$$
\begin{align*}
 Y& = \beta_{0} + \beta_{1}X_{1} + \beta_{2}X_{2} + \beta_{3}X_{1}X_{2}\\ 
 &= \beta_{0} + {\color{Red} \widetilde{\beta_{1}}}X_{1} + \beta_{2}X_{2}; {\color{Red} \widetilde{\beta_{1}}} = \beta_{1} + \beta_{2}X_{2}\\
\end{align*}
$$

$$
\begin{align*}
\color{red}{x} + \color{blue}{y}\\

{\color{red} x} + {\color{blue} y}\\

\color{Red} \beta_{1}X_{1}\\

{\color{Red} \beta_{1}}X_{1}\\
\end{align*}
$$

$$
\color{Red} \widetilde{\beta_{1}}X_{1}
$$

$$
{\color{Red} \widetilde{\beta_{1}}}}X_{1}
$$

$$
{\color{Red} \widetilde{\beta_{1}}}
$$

`r lib('vembedr'); vlist <- c('C1hrbXlreY4', 'O8qPQNz8Q8Y', '3pnXMEusQCY', 'E9_eAm2tTns', 'budv9DSiuko'); embed_youtube(vlist[1], height=215)` `r embed_youtube(vlist[2], height=215)` `r embed_youtube(vlist[3], height=215)` `r embed_youtube(vlist[4], height=215)` `r embed_youtube(vlist[5], height=215)`

```{r results = 'asis', error = TRUE}
library(bslib)

theme <- bs_theme(
  # Controls the default grayscale palette
  bg = "#202123", fg = "#B8BCC2",
  # Controls the accent (e.g., hyperlink, button, etc) colors
  primary = "#EA80FC", secondary = "#48DAC6",
  base_font = c("Grandstander", "sans-serif"),
  code_font = c("Courier", "monospace"),
  heading_font = "'Helvetica Neue', Helvetica, sans-serif",
  # Can also add lower-level customization
  "input-border-color" = "#EA80FC"
)
if (interactive()) {
  bs_theme_preview(theme)
}

# Lower-level bs_add_*() functions allow you to work more
# directly with the underlying Sass code
theme <- bs_add_variables(theme, "my-class-color" = "red")
theme <- bs_add_rules(theme, ".my-class { color: $my-class-color }")
```