---
title: "Swiss Banknote Data"
author: 
- name: "Sigbert Klinke" 
  email: sigbert@hu-berlin.de
date: "`r format(Sys.time(), '%d %B, %Y')`"
output: 
  html_document:
    toc: true
    includes:
      before_body: header_sk.html    
---
  
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

Note: The description has been taken from R.

## Description

The data set contains six measurements made on 100 genuine and 100 counterfeit old-Swiss 1000-franc bank notes.

## Usage

```{r}
data(banknote, package="mclust")
head(banknote)
```

## Format

A data frame with the following variables:
  
**Variable** | **Meaning**
-------------|-----------------------------------------------------------------------------------------
Status       | the status of the banknote: genuine or counterfeit
Length       | Length of bill (mm)
Left         | Width of left edge (mm)
Right        | Width of right edge (mm)
Bottom       | Bottom margin width (mm)
Top          | Top margin width (mm)
Diagonal     | Length of diagonal (mm)

![Image source: https://commons.wikimedia.org/wiki/File:CHF1000_2_back_horizontal.jpg](https://upload.wikimedia.org/wikipedia/commons/0/04/CHF1000_2_back_horizontal.jpg)

## Source

* Flury, B. and Riedwyl, H. (1988). Multivariate Statistics: A practical approach. London: Chapman & Hall, Tables 1.1 and 1.2, pp. 5-8.