Path: blob/main/tests/docs/bug-repros/issue-1340/index.qmd
3588 views
# Descriptive Statistics, Distributions, and Graphics {#sec-descript}
```{mermaid}
flowchart TD
mpy[Mean or Proportion<br>of Y vs. X] --> nps[Nonparametric<br>Smoother]
```
```{r}
#| label: plot1
x <- seq(-3, 35, length=150)
xl <- expression(x)
plot(x, dt(x, 4, 6), type='l', xlab=xl, ylab='')
```