process_matrix.Rmd

---
title: "bupaR Docs | Process Matrix"
output: 
  html_document: 
    toc: false
---


```{r echo = F, out.width="25%", fig.align = "right"}
knitr::include_graphics("images/icons/matrix.PNG")
knitr::opts_chunk$set(fig.asp = 0.6,out.width = "80%")
```

***
# Process Matrix {.tabset .tabset-pills}

```{r include = F}
library(bupaverse)
```

```{r eval = F}
library(bupaverse)
```



A process matrix is a two-dimensional matrix showing the flows between activities. Its configuration is exactly the same as that used by `process_map()`, and can thus be the following:

*	[`frequency()`](frequency_maps.html)
	*	Absolute frequency of flows
	*	Relative case frequency of flows
	*	Relative frequency of flows, for each antecedent
		*	I.e. given antecedent A, it is followed x% of the time by Consequent B
	*	Relative frequency of flows, for each consequent
		*	I.e. given consequent B, it is preceded x% of the time by Antecedent A
* 	[`performance()`](performance_maps.html)
	*   aggregation function x time unite x flow time type
	
The result of `process_matrix()` is is a data.frame with antecedent-consequent pairs, which can be visualized using `plot()`. 

<style>
div.blue { background-color:#E6F4F1; border-radius: 5px; padding: 20px;}
</style>


## Frequency {.tabset .tabset-pills}
<div class = "blue">

### Absolute

```{r out.width = "100%"}
traffic_fines %>%
	process_matrix(frequency("absolute")) 
traffic_fines %>%
	process_matrix(frequency("absolute")) %>%
	plot()
```


### Relative-case

```{r}
traffic_fines %>%
	process_matrix(frequency("relative-case")) 
traffic_fines %>%
	process_matrix(frequency("relative-case")) %>%
	plot()
```


### Relative-antecedent

```{r}
traffic_fines %>%
	process_matrix(frequency("relative-antecedent")) 
traffic_fines %>%
	process_matrix(frequency("relative-antecedent")) %>%
	plot()
```


### Relative-consequent


```{r}
traffic_fines %>%
	process_matrix(frequency("relative-consequent")) 
traffic_fines %>%
	process_matrix(frequency("relative-consequent")) %>%
	plot()
```


</div>
## Performance 
<div class = "blue">

```{r}
traffic_fines %>%
	process_matrix(performance(FUN = mean, units = "weeks")) 
traffic_fines %>%
	process_matrix(performance(FUN = mean, units = "weeks"))  %>%
	plot()
```



</div>

	
# {.unnumbered .unlisted}





```{r footer, results = "asis", echo = F}
CURRENT_PAGE <-  stringr::str_replace(knitr::current_input(), ".Rmd",".html")
res <- knitr::knit_expand("_button_footer.Rmd", quiet = TRUE)
res <- knitr::knit_child(text = unlist(res), quiet = TRUE)
cat(res, sep = '\n')
```