diff --git a/README.md b/README.md
index fc00c4b..4ef9dd1 100644
--- a/README.md
+++ b/README.md
@@ -9,17 +9,31 @@ Version: 0.1b
First working R version, translated from Python.
No grouping per interviewer.
-## What's here
-This is a script that opens a database containing (at least) following columns:
+## How to use the code
+
+There are two ways:
+a) running it standalone from R
+b) use the UIB Tool to run it
+
+Prepare the database so it contains the necessary fields and you're good to go.
+
+## Accepted input files
+
+Currently, it only works on CSV files that contain (at least) the following columns:
- ID (integer)
- VSI1 (see VSI documentation)
- VSI2 (see VSI documentation)
- VSI3 (see VSI documentation)
-This script is made by two files:
+
+## What's here
+
+There are two files:
- R file (original code to check things)
- Rmd file (makes a PDF report)
+
+
diff --git a/components/ESSlogo.png b/components/ESSlogo.png
new file mode 100644
index 0000000..3d89585
Binary files /dev/null and b/components/ESSlogo.png differ
diff --git a/components/Titlepage.Rmd b/components/Titlepage.Rmd
new file mode 100644
index 0000000..0e3ea98
--- /dev/null
+++ b/components/Titlepage.Rmd
@@ -0,0 +1,20 @@
+
+\begin{titlepage}
+ \raggedleft
+ \includegraphics[width = 6cm]{components/ESSlogo.png}
+ \vfill
+ \raggedright
+ {\bf \fontsize{40pt}{50pt}\selectfont Analysis of Virtual Surrounding Impression}\\[1 cm]
+ \vfill
+ \begin{center}\large \sl
+ European Social Survey \\
+ Core Scientific Team
+ \end{center}
+ \raggedright
+ {\large \today}\\
+ Tool version {`r params$version`}
+\end{titlepage}
+
+
+
+
diff --git a/components/Titlepage.html b/components/Titlepage.html
new file mode 100644
index 0000000..31ce26e
--- /dev/null
+++ b/components/Titlepage.html
@@ -0,0 +1,403 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+Titlepage.knit
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/components/apa.csl b/components/apa.csl
new file mode 100644
index 0000000..2920400
--- /dev/null
+++ b/components/apa.csl
@@ -0,0 +1,720 @@
+
+
diff --git a/components/countries.csv b/components/countries.csv
new file mode 100644
index 0000000..4587ba9
--- /dev/null
+++ b/components/countries.csv
@@ -0,0 +1,38 @@
+cntry;Country;CountryName
+AL;Albania;Albania
+AT;Austria;Austria
+BE;Belgium;Belgium
+BG;Bulgaria;Bulgaria
+CH;Switzerland;Switzerland
+CY;Cyprus;Cyprus
+CZ;Czech Republic;the Czech Republic
+DE;Germany;Germany
+DK;Denmark;Denmark
+EE;Estonia;Estonia
+ES;Spain;Spain
+FI;Finland;Finland
+FR;France;France
+GB;United Kingdom;the United Kingdom
+GR;Greece;Greece
+HR;Croatia;Croatia
+HU;Hungary;Hungary
+IE;Ireland;Ireland
+IL;Israel;Israel
+IS;Iceland;Iceland
+IT;Italy;Italy
+LT;Lithuania;Lithuania
+LU;Luxembourg;Luxembourg
+LV;Latvia;Latvia
+NL;Netherlands;the Netherlands
+NO;Norway;Norway
+PL;Poland;Poland
+PT;Portugal;Portugal
+RO;Romania;Romania
+RS;Serbia;Serbia
+RU;Russian Federation;the Russian Federation
+SE;Sweden;Sweden
+SI;Slovenia;Slovenia
+SK;Slovakia;Slovakia
+TR;Turkey;Turkey
+UA;Ukraine;Ukraine
+XK;Kosovo;Kosovo
diff --git a/components/styles.tex b/components/styles.tex
new file mode 100644
index 0000000..f2ef9cc
--- /dev/null
+++ b/components/styles.tex
@@ -0,0 +1,47 @@
+\usepackage{placeins}
+\usepackage{booktabs}
+\usepackage{array}
+\usepackage{chngcntr}
+\usepackage{color}
+\usepackage{titlesec}
+\usepackage{titling}
+\usepackage{caption}
+\usepackage[bottom]{footmisc}
+\usepackage[justification = centering]{caption}
+\usepackage{lscape}
+\usepackage{pdflscape}
+\usepackage{longtable}
+\usepackage{threeparttable}
+\usepackage{nopageno}
+\usepackage{footnote}
+
+\counterwithin{figure}{section}
+\counterwithin{table}{section}
+\definecolor{ESSPink}{rgb}{0.91,0.2,0.32}
+
+
+\titleformat
+ {\section}
+ {\bf \LARGE \sc \color{ESSPink}}
+ {\rlap{\thesection}\hspace{1cm}}
+ {0pt}
+ {}
+ [{\titlerule[2pt]}]
+
+\titleformat
+ {\subsection}
+ {\bf \large \sc}
+ {\rlap{\thesubsection}\hspace{1cm}}
+ {0pt}
+ {}
+
+\newcommand*{\secref}[1]{Section~\ref{#1}}
+
+\captionsetup[figure]{labelfont= {color = ESSPink, bf}, labelsep = space}
+\captionsetup[table]{labelfont= {color = ESSPink, bf}, labelsep = space}
+
+\let\stdsection\section
+\renewcommand{\section}{\FloatBarrier\clearpage\FloatBarrier\stdsection}
+
+\newcommand{\blandscape}{\begin{landscape}}
+\newcommand{\elandscape}{\end{landscape}}
\ No newline at end of file
diff --git a/demo_data/.~lock.inwer_file.csv# b/demo_data/.~lock.inwer_file.csv#
new file mode 100644
index 0000000..4c3f373
--- /dev/null
+++ b/demo_data/.~lock.inwer_file.csv#
@@ -0,0 +1 @@
+May DouĊĦak,may,FDV,13.01.2023 14:25,file:///home/may/.config/libreoffice/4;
\ No newline at end of file
diff --git a/demo_data/inwer_file.csv b/demo_data/inwer_file.csv
new file mode 100644
index 0000000..d4f4838
--- /dev/null
+++ b/demo_data/inwer_file.csv
@@ -0,0 +1,28 @@
+"idno";"cntry";"intnum"
+1;"SI";1
+2;"SI";1
+3;"SI";1
+4;"SI";1
+5;"SI";1
+5;"SI";2
+6;"SI";2
+7;"SI";2
+8;"SI";2
+10;"SI";2
+11;"SI";3
+12;"SI";3
+13;"SI";3
+14;"SI";3
+15;"SI";3
+16;"SI";4
+17;"SI";4
+18;"SI";4
+19;"SI";4
+20;"SI";4
+21;"SI";5
+22;"SI";5
+23;"SI";5
+24;"SI";5
+25;"SI";5
+26;"SI";6
+27;"SI";6
diff --git a/demo_data/main.csv b/demo_data/main.csv
new file mode 100644
index 0000000..b1f8774
--- /dev/null
+++ b/demo_data/main.csv
@@ -0,0 +1,28 @@
+"idno";"cntry";"VSI1";"VSI2";"VSI3"
+1;"SI";"x0e11dcb6d02d45522908aa022d7b187aa11d120bb843255bc7ccb62a78dd4dfc1eee8e5affda4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+2;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+3;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+4;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+5;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+5;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+6;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+7;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+8;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+10;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+11;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+12;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+13;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+14;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+15;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+16;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+17;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+18;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+19;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+20;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+21;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+22;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+23;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+24;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+25;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+26;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
+27;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df"
diff --git a/vsi.Rmd b/vsi.Rmd
new file mode 100644
index 0000000..c61d975
--- /dev/null
+++ b/vsi.Rmd
@@ -0,0 +1,113 @@
+---
+output:
+ pdf_document:
+ includes:
+ in_header: ./components/styles.tex
+ number_sections: TRUE
+ latex_engine: xelatex
+ fig_caption: yes
+ fig_width: 4
+ fig_height: 3
+ keep_tex: TRUE
+header-includes:
+ - \usepackage{titling}
+ - \setlength{\droptitle}{5em}
+papersize: a4paper
+fontsize: 11pt
+mainfont: Arial
+geometry: margin = 3cm
+subparagraph: TRUE
+graphics: yes
+csl: ./components/apa.csl
+link-citations: yes
+params:
+ mainFile: ""
+ intFile: ""
+ version: "0.2"
+
+
+---
+
+
+```{r setup, include = FALSE, error=TRUE}
+library(knitr)
+#library(kableExtra)
+
+knitr::opts_chunk$set(echo = TRUE, results = "hide", message = TRUE, dev = "cairo_pdf", warning = TRUE)
+knitr::opts_chunk$set(fig.pos = 'H')
+
+options(knitr.table.format = "latex", knitr.kable.NA = "")
+
+Sys.setlocale("LC_ALL","English")
+```
+
+```{r setup2, include = FALSE,, error=T, warning=T, message=T}
+library(here)
+library(foreign)
+library(dplyr)
+library(psych)
+library(ggplot2)
+library(lubridate)
+library(wesanderson)
+#library(colortools) # adjacent works
+library(ggthemes) # theme_tufte works
+library(varhandle) # coercing factor to numeric variables
+library(naniar) # for replacing values with missings
+
+# for tables
+library(knitr)
+
+#New packages:
+library(cowplot)
+library(tibble)
+
+```
+
+
+```{r theme, include=FALSE, error=TRUE}
+ESSred <- rgb(.91, .20, .32)
+ESSgreen <- rgb(.14, .62, .51)
+ESSblue <- rgb(0, .25, .48)
+
+
+
+ESSColors <- unique(c(adjacent(ESSred, plot = F), square(ESSred, plot = F)))
+
+
+
+
+ESSColors <- c(ESSColors, ESSgreen, ESSblue)
+# pizza(ESSColors)
+
+themeESS <- theme_tufte(base_size = 9, base_family = "Calibri") +
+ theme(axis.title = element_text(size = 9, face = "plain"),
+ axis.text = element_text(size = 9),
+ axis.line.x = element_line(),
+ plot.title = element_blank(),
+ legend.title = element_blank(),
+ legend.text = element_text(size = 9),
+ strip.text = element_text(size = 9, face = "bold"),
+ legend.position = "none",
+ legend.direction = "horizontal",
+ legend.box = "vertical",
+ legend.spacing = unit(0, "line"),
+ legend.key.size = unit(.75, "line"))
+linebreak <- "\\hspace{\\textwidth}"
+```
+
+\newpage
+\FloatBarrier
+\pagenumbering{gobble}
+
+
+```{r child = "components/Titlepage.Rmd", error=T, warning=T, message=T}
+```
+
+\pagenumbering{arabic}
+
+\setcounter{tocdepth}{2}
+\tableofcontents
+\listoftables
+\listoffigures
+
+# Introduction {-}