---
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="50%"}

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

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

## Row {height="50%"}

```{r}
Histogram(Salary, density=TRUE)
```

```{r}
Plot(Salary)
```
