---
title: "Kwerenda archiwalna: model i symulacja"
author: "Imię Nazwisko"
date: "`r Sys.Date()`"
output: html_document
---

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

## Model procesu

```{r model}
cat(system2("tok", c("check", "proces.tok", "--lang", "pl"), stdout = TRUE), sep = "\n")
system2("tok", c("svg", "proces.tok"), stdout = FALSE)
knitr::include_graphics("proces.svg")
```

## Symulacja

```{r symulacja}
system2("tok", c("sim", "proces.tok", "--seed", "7",
                 "--log", "log.csv", "--cases-csv", "sprawy.csv"), stdout = FALSE)
sprawy <- read.csv("sprawy.csv", encoding = "UTF-8")
sprawy$czas_h <- sprawy$cycle_time_s / 3600
```

Zasymulowano `r nrow(sprawy)` spraw. Średni czas cyklu wyniósł `r round(mean(sprawy$czas_h), 1)` h,
a 90% spraw zakończyło się w ciągu `r round(quantile(sprawy$czas_h, 0.9), 1)` h.

```{r wykres, fig.cap="Rozkład czasu cyklu"}
hist(sprawy$czas_h, breaks = 30, main = "", xlab = "Czas cyklu (godziny)", ylab = "Liczba spraw")
```