---
title: "Distribution of Salary"
author: "David Gerbing"
format: dashboard
---

```{r}
library(lessR)
style(suggest=FALSE, quiet=TRUE)  # turn off suggestions and text output
style(lab_cex=1.6, axis_cex=1.3)  # enlarge axis labels and value labels
```

```{r}
d <- Read("Employee")
```

## Row {height="25%"}

::: {.valuebox icon="caret-right-fill" color="secondary"}
Default Bin Width

`r 13000`
:::

::: {.valuebox icon="caret-right-fill" color="success"}
Improved Bin Width

`r 13500`
:::

## Row {height="75%"}

```{r}
Histogram(Salary)
```

```{r}
Histogram(Salary, bin_width=13500)
```
