```{r , echo=FALSE, include=FALSE, warning=FALSE, message=FALSE, error=FALSE}
library(ggplot2)
library(pander)
```
```{r visualFunctions, echo=FALSE, include=FALSE, warning=FALSE, message=FALSE, error=FALSE}
ggAggHist <- getFromNamespace("ggAggHist", "dataMaid")
ggAggBarplot <- getFromNamespace("ggAggBarplot", "dataMaid")
```
# Data report overview
The dataset examined has the following dimensions:


---------------------------------
Feature                    Result
------------------------ --------
Number of observations         74

Number of variables            12
---------------------------------


0:1


### Checks performed
The following variable checks were performed, depending on the data type of each variable:

----------------------------------------------------------------------------------------------------------------------------------
&nbsp;                                                 character    factor    labelled   numeric    integer    logical     Date   
----------------------------------------------------- ----------- ---------- ---------- ---------- ---------- --------- ----------
Identify miscoded missing values                       $\times$    $\times$   $\times$   $\times$   $\times$             $\times$ 

Identify prefixed and suffixed whitespace              $\times$    $\times$   $\times$                                            

Identify levels with < 6 obs.                          $\times$    $\times$   $\times$                                            

Identify case issues                                   $\times$    $\times$   $\times$                                            

Identify misclassified numeric or integer variables    $\times$    $\times$   $\times$                                            

Identify outliers                                                                        $\times$   $\times$             $\times$ 
----------------------------------------------------------------------------------------------------------------------------------




Please note that all numerical values in the following have been rounded to 2 decimals.


# Codebook summary table

---------------------------------------------------------------------------
Label   Variable             Class         # unique  Missing  Description  
                                             values                        
------- -------------------- ----------- ---------- --------- -------------
        **[make]**           character           74  0.00 %                

        **[price]**          integer             74  0.00 %                

        **[mpg]**            integer             21  0.00 %                

        **[rep78]**          integer              6  6.76 %                

        **[headroom]**       numeric              8  0.00 %                

        **[trunk]**          integer             18  0.00 %                

        **[weight]**         integer             64  0.00 %                

        **[length]**         integer             47  0.00 %                

        **[turn]**           integer             18  0.00 %                

        **[displacement]**   integer             31  0.00 %                

        **[gear\_ratio]**    numeric             36  0.00 %                

        **[foreign]**        factor               2  0.00 %                
---------------------------------------------------------------------------




# Variable list
## make

* The variable is a key (distinct values for each observation).



\fullline

## price

\bminione

--------------------------------------------
Feature                               Result
------------------------- ------------------
Variable type                        integer

Number of missing obs.               0 (0 %)

Number of unique values                   74

Median                                5006.5

1st and 3rd quartiles       4220.25; 6332.25

Min. and max.                    3291; 15906
--------------------------------------------


\emini
\bminitwo
```{r Var-2-price, echo=FALSE, fig.width=4, fig.height=3, message=FALSE, warning=FALSE}
ggAggHist(data = structure(list(factorV = structure(1:20, .Label = c("[3.29e+03,3.92e+03]", 
"(3.92e+03,4.55e+03]", "(4.55e+03,5.18e+03]", "(5.18e+03,5.81e+03]", 
"(5.81e+03,6.44e+03]", "(6.44e+03,7.08e+03]", "(7.08e+03,7.71e+03]", 
"(7.71e+03,8.34e+03]", "(8.34e+03,8.97e+03]", "(8.97e+03,9.6e+03]", 
"(9.6e+03,1.02e+04]", "(1.02e+04,1.09e+04]", "(1.09e+04,1.15e+04]", 
"(1.15e+04,1.21e+04]", "(1.21e+04,1.28e+04]", "(1.28e+04,1.34e+04]", 
"(1.34e+04,1.4e+04]", "(1.4e+04,1.46e+04]", "(1.46e+04,1.53e+04]", 
"(1.53e+04,1.59e+04]"), class = "factor"), Freq = c(8L, 20L, 
12L, 9L, 7L, 2L, 1L, 2L, 1L, 0L, 2L, 2L, 1L, 2L, 0L, 1L, 2L, 
1L, 0L, 1L), xmin = c(3291, 3921.75, 4552.5, 5183.25, 5814, 6444.75, 
7075.5, 7706.25, 8337, 8967.75, 9598.5, 10229.25, 10860, 11490.75, 
12121.5, 12752.25, 13383, 14013.75, 14644.5, 15275.25), xmax = c(3921.75, 
4552.5, 5183.25, 5814, 6444.75, 7075.5, 7706.25, 8337, 8967.75, 
9598.5, 10229.25, 10860, 11490.75, 12121.5, 12752.25, 13383, 
14013.75, 14644.5, 15275.25, 15906), ymin = c(0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), ymax = c(8L, 20L, 
12L, 9L, 7L, 2L, 1L, 2L, 1L, 0L, 2L, 2L, 1L, 2L, 0L, 1L, 2L, 
1L, 0L, 1L)), row.names = c(NA, -20L), class = "data.frame"), 
    vnam = "price")
```
\emini


- Note that the following possible outlier values were detected: \"3291\", \"3299\", \"3667\". 



\fullline

## mpg

\bminione

-------------------------------------
Feature                        Result
------------------------- -----------
Variable type                 integer

Number of missing obs.        0 (0 %)

Number of unique values            21

Median                             20

1st and 3rd quartiles       18; 24.75

Min. and max.                  12; 41
-------------------------------------


\emini
\bminitwo
```{r Var-3-mpg, echo=FALSE, fig.width=4, fig.height=3, message=FALSE, warning=FALSE}
ggAggHist(data = structure(list(factorV = structure(1:20, .Label = c("[12,13.4]", 
"(13.4,14.9]", "(14.9,16.4]", "(16.4,17.8]", "(17.8,19.2]", "(19.2,20.7]", 
"(20.7,22.1]", "(22.1,23.6]", "(23.6,25]", "(25,26.5]", "(26.5,27.9]", 
"(27.9,29.4]", "(29.4,30.8]", "(30.8,32.3]", "(32.3,33.8]", "(33.8,35.2]", 
"(35.2,36.6]", "(36.6,38.1]", "(38.1,39.5]", "(39.5,41]"), class = "factor"), 
    Freq = c(2L, 6L, 6L, 4L, 17L, 3L, 10L, 3L, 9L, 3L, 0L, 4L, 
    2L, 1L, 0L, 3L, 0L, 0L, 0L, 1L), xmin = c(12, 13.45, 14.9, 
    16.35, 17.8, 19.25, 20.7, 22.15, 23.6, 25.05, 26.5, 27.95, 
    29.4, 30.85, 32.3, 33.75, 35.2, 36.65, 38.1, 39.55), xmax = c(13.45, 
    14.9, 16.35, 17.8, 19.25, 20.7, 22.15, 23.6, 25.05, 26.5, 
    27.95, 29.4, 30.85, 32.3, 33.75, 35.2, 36.65, 38.1, 39.55, 
    41), ymin = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0), ymax = c(2L, 6L, 6L, 4L, 17L, 3L, 10L, 3L, 
    9L, 3L, 0L, 4L, 2L, 1L, 0L, 3L, 0L, 0L, 0L, 1L)), row.names = c(NA, 
-20L), class = "data.frame"), vnam = "mpg")
```
\emini


- Note that the following possible outlier values were detected: \"12\", \"14\". 



\fullline

## rep78

* Note that this variable is treated as a factor variable below, as it only takes a few unique values.

\bminione

--------------------------------------
Feature                         Result
------------------------- ------------
Variable type                  integer

Number of missing obs.      5 (6.76 %)

Number of unique values              5

Mode                               "3"
--------------------------------------


\emini
\bminitwo
```{r Var-4-rep78, echo=FALSE, fig.width=4, fig.height=3, message=FALSE, warning=FALSE}
ggAggBarplot(data = structure(list(x = structure(1:5, .Label = c("1", 
"2", "3", "4", "5"), class = "factor"), y = c(2L, 8L, 30L, 18L, 
11L)), class = "data.frame", row.names = c(NA, -5L)), vnam = "rep78")
```
\emini


- Note that the following levels have at most five observations: \"1\". 



\fullline

## headroom

\bminione

------------------------------------
Feature                       Result
------------------------- ----------
Variable type                numeric

Number of missing obs.       0 (0 %)

Number of unique values            8

Median                             3

1st and 3rd quartiles       2.5; 3.5

Min. and max.                 1.5; 5
------------------------------------


\emini
\bminitwo
```{r Var-5-headroom, echo=FALSE, fig.width=4, fig.height=3, message=FALSE, warning=FALSE}
ggAggHist(data = structure(list(factorV = structure(1:20, .Label = c("[1.5,1.68]", 
"(1.68,1.85]", "(1.85,2.02]", "(2.02,2.2]", "(2.2,2.38]", "(2.38,2.55]", 
"(2.55,2.72]", "(2.72,2.9]", "(2.9,3.08]", "(3.08,3.25]", "(3.25,3.42]", 
"(3.42,3.6]", "(3.6,3.77]", "(3.77,3.95]", "(3.95,4.12]", "(4.12,4.3]", 
"(4.3,4.47]", "(4.47,4.65]", "(4.65,4.82]", "(4.82,5]"), class = "factor"), 
    Freq = c(4L, 0L, 13L, 0L, 0L, 14L, 0L, 0L, 13L, 0L, 0L, 15L, 
    0L, 0L, 10L, 0L, 0L, 4L, 0L, 1L), xmin = c(1.5, 1.675, 1.85, 
    2.025, 2.2, 2.375, 2.55, 2.725, 2.9, 3.075, 3.25, 3.425, 
    3.6, 3.775, 3.95, 4.125, 4.3, 4.475, 4.65, 4.825), xmax = c(1.675, 
    1.85, 2.025, 2.2, 2.375, 2.55, 2.725, 2.9, 3.075, 3.25, 3.425, 
    3.6, 3.775, 3.95, 4.125, 4.3, 4.475, 4.65, 4.825, 5), ymin = c(0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), 
    ymax = c(4L, 0L, 13L, 0L, 0L, 14L, 0L, 0L, 13L, 0L, 0L, 15L, 
    0L, 0L, 10L, 0L, 0L, 4L, 0L, 1L)), row.names = c(NA, -20L
), class = "data.frame"), vnam = "headroom")
```
\emini




\fullline

## trunk

\bminione

----------------------------------------
Feature                           Result
------------------------- --------------
Variable type                    integer

Number of missing obs.           0 (0 %)

Number of unique values               18

Median                                14

1st and 3rd quartiles       10.25; 16.75

Min. and max.                      5; 23
----------------------------------------


\emini
\bminitwo
```{r Var-6-trunk, echo=FALSE, fig.width=4, fig.height=3, message=FALSE, warning=FALSE}
ggAggHist(data = structure(list(factorV = structure(1:20, .Label = c("[5,5.9]", 
"(5.9,6.8]", "(6.8,7.7]", "(7.7,8.6]", "(8.6,9.5]", "(9.5,10.4]", 
"(10.4,11.3]", "(11.3,12.2]", "(12.2,13.1]", "(13.1,14]", "(14,14.9]", 
"(14.9,15.8]", "(15.8,16.7]", "(16.7,17.6]", "(17.6,18.5]", "(18.5,19.4]", 
"(19.4,20.3]", "(20.3,21.2]", "(21.2,22.1]", "(22.1,23]"), class = "factor"), 
    Freq = c(1L, 1L, 3L, 5L, 4L, 5L, 8L, 3L, 4L, 4L, 0L, 5L, 
    12L, 8L, 1L, 0L, 6L, 2L, 1L, 1L), xmin = c(5, 5.9, 6.8, 7.7, 
    8.6, 9.5, 10.4, 11.3, 12.2, 13.1, 14, 14.9, 15.8, 16.7, 17.6, 
    18.5, 19.4, 20.3, 21.2, 22.1), xmax = c(5.9, 6.8, 7.7, 8.6, 
    9.5, 10.4, 11.3, 12.2, 13.1, 14, 14.9, 15.8, 16.7, 17.6, 
    18.5, 19.4, 20.3, 21.2, 22.1, 23), ymin = c(0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), ymax = c(1L, 
    1L, 3L, 5L, 4L, 5L, 8L, 3L, 4L, 4L, 0L, 5L, 12L, 8L, 1L, 
    0L, 6L, 2L, 1L, 1L)), row.names = c(NA, -20L), class = "data.frame"), 
    vnam = "trunk")
```
\emini


- Note that the following possible outlier values were detected: \"23\". 



\fullline

## weight

\bminione

--------------------------------------
Feature                         Result
------------------------- ------------
Variable type                  integer

Number of missing obs.         0 (0 %)

Number of unique values             64

Median                            3190

1st and 3rd quartiles       2250; 3600

Min. and max.               1760; 4840
--------------------------------------


\emini
\bminitwo
```{r Var-7-weight, echo=FALSE, fig.width=4, fig.height=3, message=FALSE, warning=FALSE}
ggAggHist(data = structure(list(factorV = structure(1:20, .Label = c("[1.76e+03,1.91e+03]", 
"(1.91e+03,2.07e+03]", "(2.07e+03,2.22e+03]", "(2.22e+03,2.38e+03]", 
"(2.38e+03,2.53e+03]", "(2.53e+03,2.68e+03]", "(2.68e+03,2.84e+03]", 
"(2.84e+03,2.99e+03]", "(2.99e+03,3.15e+03]", "(3.15e+03,3.3e+03]", 
"(3.3e+03,3.45e+03]", "(3.45e+03,3.61e+03]", "(3.61e+03,3.76e+03]", 
"(3.76e+03,3.92e+03]", "(3.92e+03,4.07e+03]", "(4.07e+03,4.22e+03]", 
"(4.22e+03,4.38e+03]", "(4.38e+03,4.53e+03]", "(4.53e+03,4.69e+03]", 
"(4.69e+03,4.84e+03]"), class = "factor"), Freq = c(4L, 6L, 7L, 
4L, 2L, 5L, 6L, 1L, 0L, 9L, 9L, 3L, 6L, 3L, 3L, 2L, 2L, 0L, 0L, 
2L), xmin = c(1760, 1914, 2068, 2222, 2376, 2530, 2684, 2838, 
2992, 3146, 3300, 3454, 3608, 3762, 3916, 4070, 4224, 4378, 4532, 
4686), xmax = c(1914, 2068, 2222, 2376, 2530, 2684, 2838, 2992, 
3146, 3300, 3454, 3608, 3762, 3916, 4070, 4224, 4378, 4532, 4686, 
4840), ymin = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0), ymax = c(4L, 6L, 7L, 4L, 2L, 5L, 6L, 1L, 0L, 
9L, 9L, 3L, 6L, 3L, 3L, 2L, 2L, 0L, 0L, 2L)), row.names = c(NA, 
-20L), class = "data.frame"), vnam = "weight")
```
\emini


- Note that the following possible outlier values were detected: \"4130\", \"4290\", \"4330\", \"4720\", \"4840\". 



\fullline

## length

\bminione

---------------------------------------
Feature                          Result
------------------------- -------------
Variable type                   integer

Number of missing obs.          0 (0 %)

Number of unique values              47

Median                            192.5

1st and 3rd quartiles       170; 203.75

Min. and max.                  142; 233
---------------------------------------


\emini
\bminitwo
```{r Var-8-length, echo=FALSE, fig.width=4, fig.height=3, message=FALSE, warning=FALSE}
ggAggHist(data = structure(list(factorV = structure(1:20, .Label = c("[142,147]", 
"(147,151]", "(151,156]", "(156,160]", "(160,165]", "(165,169]", 
"(169,174]", "(174,178]", "(178,183]", "(183,188]", "(188,192]", 
"(192,197]", "(197,201]", "(201,206]", "(206,210]", "(210,215]", 
"(215,219]", "(219,224]", "(224,228]", "(228,233]"), class = "factor"), 
    Freq = c(1L, 2L, 3L, 2L, 4L, 5L, 7L, 4L, 5L, 2L, 2L, 4L, 
    13L, 3L, 4L, 3L, 3L, 5L, 0L, 2L), xmin = c(142, 146.55, 151.1, 
    155.65, 160.2, 164.75, 169.3, 173.85, 178.4, 182.95, 187.5, 
    192.05, 196.6, 201.15, 205.7, 210.25, 214.8, 219.35, 223.9, 
    228.45), xmax = c(146.55, 151.1, 155.65, 160.2, 164.75, 169.3, 
    173.85, 178.4, 182.95, 187.5, 192.05, 196.6, 201.15, 205.7, 
    210.25, 214.8, 219.35, 223.9, 228.45, 233), ymin = c(0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), ymax = c(1L, 
    2L, 3L, 2L, 4L, 5L, 7L, 4L, 5L, 2L, 2L, 4L, 13L, 3L, 4L, 
    3L, 3L, 5L, 0L, 2L)), row.names = c(NA, -20L), class = "data.frame"), 
    vnam = "length")
```
\emini


- Note that the following possible outlier values were detected: \"220\", \"221\", \"222\", \"230\", \"233\". 



\fullline

## turn

\bminione

-----------------------------------
Feature                      Result
------------------------- ---------
Variable type               integer

Number of missing obs.      0 (0 %)

Number of unique values          18

Median                           40

1st and 3rd quartiles        36; 43

Min. and max.                31; 51
-----------------------------------


\emini
\bminitwo
```{r Var-9-turn, echo=FALSE, fig.width=4, fig.height=3, message=FALSE, warning=FALSE}
ggAggHist(data = structure(list(factorV = structure(1:20, .Label = c("[31,32]", 
"(32,33]", "(33,34]", "(34,35]", "(35,36]", "(36,37]", "(37,38]", 
"(38,39]", "(39,40]", "(40,41]", "(41,42]", "(42,43]", "(43,44]", 
"(44,45]", "(45,46]", "(46,47]", "(47,48]", "(48,49]", "(49,50]", 
"(50,51]"), class = "factor"), Freq = c(2L, 2L, 6L, 6L, 9L, 4L, 
3L, 1L, 6L, 4L, 7L, 12L, 3L, 3L, 3L, 0L, 2L, 0L, 0L, 1L), xmin = c(31, 
32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 
48, 49, 50), xmax = c(32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 
42, 43, 44, 45, 46, 47, 48, 49, 50, 51), ymin = c(0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), ymax = c(2L, 
2L, 6L, 6L, 9L, 4L, 3L, 1L, 6L, 4L, 7L, 12L, 3L, 3L, 3L, 0L, 
2L, 0L, 0L, 1L)), row.names = c(NA, -20L), class = "data.frame"), 
    vnam = "turn")
```
\emini


- Note that the following possible outlier values were detected: \"51\". 



\fullline

## displacement

\bminione

---------------------------------------
Feature                          Result
------------------------- -------------
Variable type                   integer

Number of missing obs.          0 (0 %)

Number of unique values              31

Median                              196

1st and 3rd quartiles       119; 245.25

Min. and max.                   79; 425
---------------------------------------


\emini
\bminitwo
```{r Var-10-displacement, echo=FALSE, fig.width=4, fig.height=3, message=FALSE, warning=FALSE}
ggAggHist(data = structure(list(factorV = structure(1:20, .Label = c("[79,96.3]", 
"(96.3,114]", "(114,131]", "(131,148]", "(148,166]", "(166,183]", 
"(183,200]", "(200,217]", "(217,235]", "(235,252]", "(252,269]", 
"(269,287]", "(287,304]", "(304,321]", "(321,338]", "(338,356]", 
"(356,373]", "(373,390]", "(390,408]", "(408,425]"), class = "factor"), 
    Freq = c(7L, 10L, 6L, 7L, 6L, 0L, 4L, 0L, 15L, 3L, 1L, 0L, 
    4L, 3L, 0L, 5L, 0L, 0L, 2L, 1L), xmin = c(79, 96.3, 113.6, 
    130.9, 148.2, 165.5, 182.8, 200.1, 217.4, 234.7, 252, 269.3, 
    286.6, 303.9, 321.2, 338.5, 355.8, 373.1, 390.4, 407.7), 
    xmax = c(96.3, 113.6, 130.9, 148.2, 165.5, 182.8, 200.1, 
    217.4, 234.7, 252, 269.3, 286.6, 303.9, 321.2, 338.5, 355.8, 
    373.1, 390.4, 407.7, 425), ymin = c(0, 0, 0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), ymax = c(7L, 10L, 
    6L, 7L, 6L, 0L, 4L, 0L, 15L, 3L, 1L, 0L, 4L, 3L, 0L, 5L, 
    0L, 0L, 2L, 1L)), row.names = c(NA, -20L), class = "data.frame"), 
    vnam = "displacement")
```
\emini


- Note that the following possible outlier values were detected: \"400\", \"425\". 



\fullline

## gear\_ratio

\bminione

--------------------------------------
Feature                         Result
------------------------- ------------
Variable type                  numeric

Number of missing obs.         0 (0 %)

Number of unique values             36

Median                            2.96

1st and 3rd quartiles       2.73; 3.35

Min. and max.               2.19; 3.89
--------------------------------------


\emini
\bminitwo
```{r Var-11-gear-ratio, echo=FALSE, fig.width=4, fig.height=3, message=FALSE, warning=FALSE}
ggAggHist(data = structure(list(factorV = structure(1:20, .Label = c("[2.19,2.28]", 
"(2.28,2.36]", "(2.36,2.45]", "(2.45,2.53]", "(2.53,2.62]", "(2.62,2.7]", 
"(2.7,2.79]", "(2.79,2.87]", "(2.87,2.96]", "(2.96,3.04]", "(3.04,3.13]", 
"(3.13,3.21]", "(3.21,3.3]", "(3.3,3.38]", "(3.38,3.47]", "(3.47,3.55]", 
"(3.55,3.64]", "(3.64,3.72]", "(3.72,3.81]", "(3.81,3.89]"), class = "factor"), 
    Freq = c(3L, 1L, 4L, 6L, 2L, 0L, 11L, 1L, 9L, 2L, 11L, 3L, 
    1L, 3L, 0L, 4L, 2L, 4L, 5L, 2L), xmin = c(2.19000005722046, 
    2.27500005960464, 2.36000006198883, 2.44500006437302, 2.5300000667572, 
    2.61500006914139, 2.70000007152557, 2.78500007390976, 2.87000007629395, 
    2.95500007867813, 3.04000008106232, 3.1250000834465, 3.21000008583069, 
    3.29500008821487, 3.38000009059906, 3.46500009298325, 3.55000009536743, 
    3.63500009775162, 3.7200001001358, 3.80500010251999), xmax = c(2.27500005960464, 
    2.36000006198883, 2.44500006437302, 2.5300000667572, 2.61500006914139, 
    2.70000007152557, 2.78500007390976, 2.87000007629395, 2.95500007867813, 
    3.04000008106232, 3.1250000834465, 3.21000008583069, 3.29500008821487, 
    3.38000009059906, 3.46500009298325, 3.55000009536743, 3.63500009775162, 
    3.7200001001358, 3.80500010251999, 3.89000010490417), ymin = c(0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), 
    ymax = c(3L, 1L, 4L, 6L, 2L, 0L, 11L, 1L, 9L, 2L, 11L, 3L, 
    1L, 3L, 0L, 4L, 2L, 4L, 5L, 2L)), row.names = c(NA, -20L), class = "data.frame"), 
    vnam = "gear_ratio")
```
\emini


- Note that the following possible outlier values were detected: \"2.19\", \"2.24\", \"2.26\", \"2.28\". 



\fullline

## foreign

\bminione

--------------------------------------
Feature                         Result
------------------------- ------------
Variable type                   factor

Number of missing obs.         0 (0 %)

Number of unique values              2

Mode                        "Domestic"
--------------------------------------


\emini
\bminitwo
```{r Var-12-foreign, echo=FALSE, fig.width=4, fig.height=3, message=FALSE, warning=FALSE}
ggAggBarplot(data = structure(list(x = structure(1:2, .Label = c("Domestic", 
"Foreign"), class = "factor"), y = c(52L, 22L)), class = "data.frame", row.names = c(NA, 
-2L)), vnam = "foreign")
```
\emini




\fullline



Report generation information:

 *  Created by Lars Vilhuber (username: `vilhuber`).

 *  Report creation time: Mon Oct 01 2018 23:45:49

 *  Report Was run from directory: `/tmp/aea-de-guidance/code`

 *  dataMaid v1.1.2 [Pkg: 2018-05-03 from CRAN (R 3.5.1)]

 *  R version 3.5.1 (2018-07-02).

 *  Platform: x86_64-suse-linux-gnu (64-bit)(openSUSE Leap 42.3).

 *  Function call: `makeDataReport(data = autos, file = "codebook_autos.Rmd", replace = TRUE, 
    openResult = FALSE, codebook = TRUE)`

