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

```{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="20%"}

::: {.card title="Default Bin Width"}
The default bin width for the Salary data is 10,000. This choice is not ideal because although the ups-and-downs of the histogram bars could reflect the actual distribution shape, they likely reflect random sampling error.
:::

::: {.card title="Adjusted Bin Width"}
Better to increase the bin width to 13,500, a value determined, in part, by trial and error. Now the resulting histogram shape follows a consistent up and then down instead of irregular fluctuations.
:::

## Row {height="80%"}

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

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