---
title: "Unemployment Rates based on Bootstrap Sampling of LFS PUMF"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    source_code: embed
    theme: readable
    css: style.css
---

```{r}
library(DT)
library(here)
tables <- readRDS(here("saved_objects","tables.RData"))
```

# Sex

## Column    {data-width="900"}

### Density plots of Bootstrap Unemployment Rates

![](saved_objects/sex.gif)

## Column {.tabset}

### Bootstrap median Unemployment rate: British Columbia

```{r}
  datatable(tables$sex$BC)
```

### Bootstrap median Unemployment rate: Rest of Canada

```{r}
  datatable(tables$sex$RoC)
```

# Age

## Column    {data-width="900"}

### Density plots of Bootstrap Unemployment Rates

![](saved_objects/age_12.gif)


## Column {.tabset}

### Bootstrap median Unemployment rate: British Columbia

```{r}
  datatable(tables$age_12$BC)
```

### Bootstrap median Unemployment rate: Rest of Canada

```{r}
  datatable(tables$age_12$RoC)
```

# Education

## Column    {data-width="900"}

### Density plots of Bootstrap Unemployment Rates

![](saved_objects/educ.gif)

## Column {.tabset}

### Bootstrap median Unemployment rate: British Columbia

```{r}
  datatable(tables$educ$BC)
```

### Bootstrap median Unemployment rate: Rest of Canada

```{r}
  datatable(tables$educ$RoC)
```

# Immigration

## Column    {data-width="900"}

### Density plots of Bootstrap Unemployment Rates

![](saved_objects/immig.gif)

## Column {.tabset}

### Bootstrap median Unemployment rate: British Columbia

```{r}
  datatable(tables$immig$BC)
```

### Bootstrap median Unemployment rate: Rest of Canada

```{r}
  datatable(tables$immig$RoC)
```

# Industry

## Column    {data-width="900"}

### Density plots of Bootstrap Unemployment Rates

![](saved_objects/naics_21.gif)

## Column {.tabset}

### Bootstrap median Unemployment rate: British Columbia

```{r}
  datatable(tables$naics_21$BC)
```

### Bootstrap median Unemployment rate: Rest of Canada

```{r}
  datatable(tables$naics_21$RoC)
```

# Occupation

## Column    {data-width="900"}

### Density plots of Bootstrap Unemployment Rates

![](saved_objects/noc_10.gif)

## Column {.tabset}

### Bootstrap median Unemployment rate: British Columbia

```{r}
  datatable(tables$noc_10$BC)
```

### Bootstrap median Unemployment rate: Rest of Canada

```{r}
  datatable(tables$noc_10$RoC)
```