---
title: "eDesk1"
author: "Damir Horvat"
date: "10/30/2021"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{css, echo=FALSE}
table thead,
table tfoot {
  position: sticky;
}
table thead {
  background: lightgray; 
  inset-block-start: 0; /* "top" */
}
table tfoot {
  inset-block-end: 0; /* "bottom" */
}
```

### Učitavanje paketa

```{r message=FALSE}
#library(tidyverse)
library(readxl)
library(vtable)
#library(corrplot)
#library(xtable)
```

### Učitavanje podataka

```{r warning=FALSE}
podaci <- read_excel('podaci.xlsx', sheet=1)
```

### Ukupni kratki pregled

```{r warning=FALSE, fig.width=15, fig.height=15}
st(podaci, add.median=TRUE)
```

### Kratki pregled po državama

```{r warning=FALSE}
st(podaci, group = 'Country', add.median=TRUE, group.long = TRUE)
```
