Quarto Test

Author

Hiroaki Yutani

Plots

Base plot
ggplot2

plot(cars)

library(ggplot2)

ggplot(diamonds, aes(price, fill = cut)) +
  geom_histogram(binwidth = 500) +
  ggtitle("normal")
ggplot(diamonds, aes(price, fill = cut)) +
  geom_histogram(binwidth = 500, position = "fill") +
  ggtitle("filled")

Maths

\[ P(A\mid B)={\frac {P(B\mid A)P(A)}{P(B)}} \]

---
title: "Quarto Test"
author: "Hiroaki Yutani"
format:
  html:
    toc: true
    df-print: paged
    code-tools: true
filters:
   - lightbox
lightbox: auto
editor: visual
---

## Plots

::: panel-tabset
## Base plot

```{r}
#| label: base_plot

plot(cars)
```

## ggplot2

```{r}
#| label: ggplot2
#| layout-nrow: 1

library(ggplot2)

ggplot(diamonds, aes(price, fill = cut)) +
  geom_histogram(binwidth = 500) +
  ggtitle("normal")

ggplot(diamonds, aes(price, fill = cut)) +
  geom_histogram(binwidth = 500, position = "fill") +
  ggtitle("filled")
```
:::

## Maths

$$
P(A\mid B)={\frac {P(B\mid A)P(A)}{P(B)}}
$$