Vini Bianchi
library(mdatools)
library(kableExtra)
library(tidyverse)The dataset
This dataset is the result of an analysis carried out with an electronic tongue on 72 samples of wine of 6 different types (Pigani et al. 2008)
We have 72 obervations and 1950 variables
df = read.csv('dpv_lingua_vini_bianchi_cleaned.csv', check.names = F)
kable(df[1:20, 1:100], row.names = T) %>% kable_styling('striped', fixed_thead = T, full_width = FALSE) %>%
scroll_box( height = "500px")| Type | Include | Original.Order | Type.1 | TR.TS | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | ||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 1 | 1 | Chardonnay Francia | 1 | 1 | Chardonnay Francia | TR | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 |
| 2 | 2 | Chardonnay Francia | 1 | 2 | Chardonnay Francia | TR | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 |
| 3 | 3 | Chardonnay Francia | 0 | 3 | Chardonnay Francia | TS | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 |
| 4 | 4 | Chardonnay Francia | 1 | 4 | Chardonnay Francia | TR | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 |
| 5 | 5 | Chardonnay Francia | 0 | 5 | Chardonnay Francia | TR | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 |
| 6 | 6 | Chardonnay Francia | 0 | 6 | Chardonnay Francia | TS | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 |
| 7 | 7 | Chardonnay Francia | 1 | 7 | Chardonnay Francia | TR | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 8.0e-07 | 7.0e-07 | 7.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 1.0e-06 | 1.0e-06 |
| 8 | 8 | Chardonnay Francia | 1 | 8 | Chardonnay Francia | TR | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 |
| 9 | 9 | Chardonnay Francia | 1 | 9 | Chardonnay Francia | TS | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 |
| 10 | 10 | Chardonnay Francia | 1 | 10 | Chardonnay Francia | TR | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 |
| 11 | 11 | Chardonnay Francia | 1 | 11 | Chardonnay Francia | TR | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.2e-06 |
| 12 | 12 | Chardonnay Francia | 1 | 12 | Chardonnay Francia | TS | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 5.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 7.0e-07 | 6.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 9.0e-07 |
| 13 | 13 | Chardonnay Veneto | 1 | 13 | Chardonnay Veneto | TR | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 9.0e-07 | 8.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 |
| 14 | 14 | Chardonnay Veneto | 1 | 14 | Chardonnay Veneto | TR | 1.3e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.4e-06 | 1.4e-06 | 1.4e-06 | 1.4e-06 | 1.4e-06 | 1.4e-06 | 1.4e-06 | 1.4e-06 | 1.5e-06 | 1.5e-06 | 1.5e-06 | 1.5e-06 | 1.6e-06 | 1.6e-06 | 1.6e-06 | 1.6e-06 | 1.6e-06 | 1.6e-06 | 1.6e-06 | 1.6e-06 | 1.5e-06 | 1.5e-06 | 1.5e-06 | 1.5e-06 | 1.5e-06 | 1.5e-06 | 1.4e-06 | 1.5e-06 | 1.5e-06 | 1.5e-06 | 1.5e-06 | 1.5e-06 |
| 15 | 15 | Chardonnay Veneto | 1 | 15 | Chardonnay Veneto | TS | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.3e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 |
| 16 | 16 | Chardonnay Veneto | 1 | 16 | Chardonnay Veneto | TR | 8.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 |
| 17 | 17 | Chardonnay Veneto | 1 | 17 | Chardonnay Veneto | TR | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.1e-06 | 1.1e-06 |
| 18 | 18 | Chardonnay Veneto | 1 | 18 | Chardonnay Veneto | TS | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 |
| 19 | 19 | Chardonnay Veneto | 1 | 19 | Chardonnay Veneto | TR | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.2e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 | 1.1e-06 |
| 20 | 20 | Chardonnay Veneto | 1 | 20 | Chardonnay Veneto | TR | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 6.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 7.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 8.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 9.0e-07 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 | 1.0e-06 |
df1 = df[-c(1,3,4,5,6)]
attr(df1, "xaxis.name") = "Variables"
attr(df1, "xaxis.values") = colnames(df1) %>% as.numeric()
mdaplot(df1[-1], type = 'l', main = 'Raw data', cgroup = as.factor(df1$Type))
Savitzky-Golay derivative filter
dfderiv = prep.savgol(df1[-1], width = 15, porder = 2, dorder = 1)
mdaplot(dfderiv, type = 'l', cgroup = factor(df1$Type), main = 'Derivative (order: 2)')
Mean centering
Before performing PCA you need to mean center the dataset after derivative preprocessing.
\[
x_{ij}\ast = x_{ij} - \overline{x}_j
\]
dfmean = scale(dfderiv, scale = F) %>% as.data.frame()
#attr(dfmean, "xaxis.name") = "Wavelength, nm"
#attr(dfmean, "xaxis.values") = colnames(df[-1]) %>% as.numeric()
mdaplot(dfmean, type = 'l', cgroup = factor(df1[,1]), main = 'Derivative + mean centering')
PCA
par(mfrow = c(1,1))
X = dfmean
attr(X, "xaxis.name") = "Variables"
attr(X, "xaxis.values") = colnames(df1[-1]) %>% as.numeric()
pc = pca(X, scale = F)
plotVariance(pc, type = 'b')
We choose to keep the first two principal components
Score plots
plotScores(pc, cgroup = factor(df1[,1]), cex = 1)
Loading plots
plotLoadings(pc, show.labels = T)
par(mfrow = c(1,1))
plotLoadings(pc, c(1,2), show.labels = F, type = 'l', legend.position = 'topleft')
plotScores(pc, cgroup = factor(df1[,1]), cex = 1)
References
Pigani, L., G. Foca, K. Ionescu, V. Martina, A. Ulrici, F. Terzi, M.
Vignali, C. Zanardi, and R. Seeber. 2008. “Amperometric Sensors
Based on Poly(3,4-Ethylenedioxythiophene)-Modified Electrodes:
Discrimination of White Wines.” Analytica Chimica Acta
614 (2): 213–22. https://doi.org/10.1016/j.aca.2008.03.029.
LS0tDQp0aXRsZTogIlZpbmkgQmlhbmNoaSINCm91dHB1dDogDQogIGh0bWxfZG9jdW1lbnQ6DQogICAgdGhlbWU6IGNlcnVsZWFuDQogICAgdG9jOiBUcnVlDQogICAgY29kZV9mb2xkaW5nOiBoaWRlDQogICAgY29kZV9kb3dubG9hZDogVHJ1ZQ0KYmlibGlvZ3JhcGh5OiByZWZlcmVuY2VzLmJpYg0KLS0tDQoNCmBgYHtyICwgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRX0NCg0KbGlicmFyeShtZGF0b29scykNCmxpYnJhcnkoa2FibGVFeHRyYSkNCmxpYnJhcnkodGlkeXZlcnNlKQ0KDQpgYGANCg0KPGJyLz4NCg0KIyMgVGhlIGRhdGFzZXQNCg0KPGJyLz4NCg0KVGhpcyBkYXRhc2V0IGlzIHRoZSByZXN1bHQgb2YgYW4gYW5hbHlzaXMgY2FycmllZCBvdXQgd2l0aCBhbiBlbGVjdHJvbmljIHRvbmd1ZSBvbiA3MiBzYW1wbGVzIG9mIHdpbmUgb2YgNiBkaWZmZXJlbnQgdHlwZXMgW0BwaWdhbmkyMDA4XQ0KDQpXZSBoYXZlIDcyIG9iZXJ2YXRpb25zIGFuZCAxOTUwIHZhcmlhYmxlc1wNCg0KPGJyLz4NCg0KYGBge3J9DQpkZiA9IHJlYWQuY3N2KCdkcHZfbGluZ3VhX3ZpbmlfYmlhbmNoaV9jbGVhbmVkLmNzdicsIGNoZWNrLm5hbWVzID0gRikgDQoNCmthYmxlKGRmWzE6MjAsIDE6MTAwXSwgcm93Lm5hbWVzID0gVCkgJT4lIGthYmxlX3N0eWxpbmcoJ3N0cmlwZWQnLCBmaXhlZF90aGVhZCA9IFQsIGZ1bGxfd2lkdGggPSBGQUxTRSkgJT4lDQogIHNjcm9sbF9ib3goIGhlaWdodCA9ICI1MDBweCIpDQpgYGANCg0KPGJyLz4NCg0KYGBge3IgZmlnLmFsaWduPSdjZW50ZXInLCBmaWcuYXNwPTAuNywgZmlnLndpZHRoPTksIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9DQoNCmRmMSA9IGRmWy1jKDEsMyw0LDUsNildDQoNCmF0dHIoZGYxLCAieGF4aXMubmFtZSIpID0gIlZhcmlhYmxlcyINCmF0dHIoZGYxLCAieGF4aXMudmFsdWVzIikgPSBjb2xuYW1lcyhkZjEpICU+JSBhcy5udW1lcmljKCkNCg0KbWRhcGxvdChkZjFbLTFdLCB0eXBlID0gJ2wnLCBtYWluID0gJ1JhdyBkYXRhJywgY2dyb3VwID0gYXMuZmFjdG9yKGRmMSRUeXBlKSkNCg0KDQpgYGANCg0KPGJyLz4NCg0KIyMgU2F2aXR6a3ktR29sYXkgZGVyaXZhdGl2ZSBmaWx0ZXINCg0KPGJyLz4NCg0KYGBge3IsZmlnLmFsaWduPSdjZW50ZXInLCBmaWcud2lkdGg9OSwgZmlnLmFzcD0wLjd9DQoNCmRmZGVyaXYgPSBwcmVwLnNhdmdvbChkZjFbLTFdLCB3aWR0aCA9IDE1LCBwb3JkZXIgPSAyLCBkb3JkZXIgPSAxKQ0KDQoNCm1kYXBsb3QoZGZkZXJpdiwgdHlwZSA9ICdsJywgY2dyb3VwID0gZmFjdG9yKGRmMSRUeXBlKSwgbWFpbiA9ICdEZXJpdmF0aXZlIChvcmRlcjogMiknKQ0KDQoNCg0KDQpgYGANCg0KPGJyLz4NCg0KIyMgTWVhbiBjZW50ZXJpbmcNCg0KPGJyLz4NCg0KQmVmb3JlIHBlcmZvcm1pbmcgUENBIHlvdSBuZWVkIHRvIG1lYW4gY2VudGVyIHRoZSBkYXRhc2V0IGFmdGVyIGRlcml2YXRpdmUgcHJlcHJvY2Vzc2luZy4NCg0KPGJyLz4NCg0KJCQNCiAgeF97aWp9XGFzdCA9IHhfe2lqfSAtIFxvdmVybGluZXt4fV9qIA0KJCQgPGJyLz4NCg0KPGJyLz4NCg0KYGBge3IsZmlnLmFsaWduPSdjZW50ZXInLCBmaWcud2lkdGg9OSwgZmlnLmFzcD0wLjd9DQoNCmRmbWVhbiA9IHNjYWxlKGRmZGVyaXYsIHNjYWxlID0gRikgJT4lIGFzLmRhdGEuZnJhbWUoKQ0KDQoNCiNhdHRyKGRmbWVhbiwgInhheGlzLm5hbWUiKSA9ICJXYXZlbGVuZ3RoLCBubSINCiNhdHRyKGRmbWVhbiwgInhheGlzLnZhbHVlcyIpID0gY29sbmFtZXMoZGZbLTFdKSAlPiUgYXMubnVtZXJpYygpDQoNCg0KbWRhcGxvdChkZm1lYW4sIHR5cGUgPSAnbCcsIGNncm91cCA9IGZhY3RvcihkZjFbLDFdKSwgbWFpbiA9ICdEZXJpdmF0aXZlICsgbWVhbiBjZW50ZXJpbmcnKQ0KDQoNCg0KYGBgDQoNCjxici8+DQoNCjxoci8+DQoNCiMjIFBDQQ0KDQo8YnIvPg0KDQpgYGB7cixmaWcuYWxpZ249J2NlbnRlcicsIGZpZy53aWR0aD04fQ0KDQpwYXIobWZyb3cgPSBjKDEsMSkpDQpYID0gZGZtZWFuDQphdHRyKFgsICJ4YXhpcy5uYW1lIikgPSAiVmFyaWFibGVzIg0KYXR0cihYLCAieGF4aXMudmFsdWVzIikgPSBjb2xuYW1lcyhkZjFbLTFdKSAlPiUgYXMubnVtZXJpYygpDQoNCnBjID0gcGNhKFgsIHNjYWxlID0gRikNCg0KcGxvdFZhcmlhbmNlKHBjLCB0eXBlID0gJ2InKQ0KDQoNCmBgYA0KDQo8YnIvPg0KDQpXZSBjaG9vc2UgdG8ga2VlcCB0aGUgZmlyc3QgdHdvIHByaW5jaXBhbCBjb21wb25lbnRzXA0KDQo8YnIvPg0KDQojIyMgU2NvcmUgcGxvdHMNCg0KPGJyLz4NCg0KYGBge3IgZmlnLmFsaWduPSdjZW50ZXInLCBmaWcuYXNwPTAuNywgZmlnLndpZHRoPTl9DQoNCnBsb3RTY29yZXMocGMsIGNncm91cCA9IGZhY3RvcihkZjFbLDFdKSwgY2V4ID0gMSkNCg0KDQpgYGANCg0KPGJyLz4NCg0KPGJyLz4NCg0KIyMjIExvYWRpbmcgcGxvdHMNCg0KPGJyLz4NCg0KYGBge3IsIGZpZy5hbGlnbj0nY2VudGVyJywgZmlnLmFzcD0wLjcsIGZpZy53aWR0aD04fQ0KcGxvdExvYWRpbmdzKHBjLCBzaG93LmxhYmVscyA9IFQpDQpgYGANCg0KPGJyLz4NCg0KYGBge3IsIGZpZy5hbGlnbj0nY2VudGVyJywgZmlnLndpZHRoPTEwLCBmaWcuYXNwPTAuNX0NCg0KcGFyKG1mcm93ID0gYygxLDEpKQ0KcGxvdExvYWRpbmdzKHBjLCBjKDEsMiksIHNob3cubGFiZWxzID0gRiwgdHlwZSA9ICdsJywgbGVnZW5kLnBvc2l0aW9uID0gJ3RvcGxlZnQnKQ0KcGxvdFNjb3JlcyhwYywgY2dyb3VwID0gZmFjdG9yKGRmMVssMV0pLCBjZXggPSAxKQ0KDQpgYGANCg0KPGJyLz4NCg0KPGJyLz4NCg0KIyMgUmVmZXJlbmNlcw0KDQo8YnIvPg0KDQoNCjxkaXYgaWQ9InJlZnMiPjwvZGl2Pg0KDQo8YnIvPg0KDQo8YnIvPg0KDQoNCg0KDQoNCg==