5.5 Confusion Matrix
5.5.1 Fixed Data Confusion Matrix:
#Fixed CM
fixed_cm <- as.data.frame(resDICA.inf$Inference.Data$loo.data$fixed.confuse)
a <- kable(fixed_cm)
scroll_box(a, width = "910px", height = "400px")
.Salchicha de Pavo Nutrideli | .Salchicha de pavo FUD | .Salchicha pavo CHERO | .SALCHICHA DE PAVO CHIMEX | .Salchicha Viena Nutrideli | .Salchicha viena FUD | .Salchicha VIENA VIVA | .SALCHICHA VIENA CHIMEX | |
---|---|---|---|---|---|---|---|---|
.Salchicha de Pavo Nutrideli | 4 | 0 | 0 | 0 | 0 | 0 | 0 | 1 |
.Salchicha de pavo FUD | 0 | 7 | 0 | 1 | 0 | 0 | 0 | 0 |
.Salchicha pavo CHERO | 0 | 0 | 8 | 0 | 0 | 0 | 0 | 0 |
.SALCHICHA DE PAVO CHIMEX | 1 | 0 | 0 | 5 | 0 | 0 | 0 | 1 |
.Salchicha Viena Nutrideli | 1 | 0 | 0 | 0 | 8 | 0 | 0 | 0 |
.Salchicha viena FUD | 0 | 0 | 0 | 0 | 0 | 8 | 0 | 0 |
.Salchicha VIENA VIVA | 2 | 1 | 0 | 0 | 0 | 0 | 7 | 0 |
.SALCHICHA VIENA CHIMEX | 0 | 0 | 0 | 2 | 0 | 0 | 1 | 6 |
5.5.2 Fixed Data Confusion Matrix Accuracy:
## [1] 0.828125
5.5.3 Random Confusion Matrix:
#Random CM
random_cm <- as.data.frame(resDICA.inf$Inference.Data$loo.data$loo.confuse)
a <- kable(random_cm)
scroll_box(a, width = "910px", height = "500px")
.Salchicha de Pavo Nutrideli.actual | .Salchicha de pavo FUD.actual | .Salchicha pavo CHERO.actual | .SALCHICHA DE PAVO CHIMEX.actual | .Salchicha Viena Nutrideli.actual | .Salchicha viena FUD.actual | .Salchicha VIENA VIVA.actual | .SALCHICHA VIENA CHIMEX.actual | |
---|---|---|---|---|---|---|---|---|
.Salchicha de Pavo Nutrideli.predicted | 1 | 1 | 0 | 0 | 1 | 0 | 2 | 2 |
.Salchicha de pavo FUD.predicted | 2 | 3 | 1 | 2 | 0 | 0 | 1 | 0 |
.Salchicha pavo CHERO.predicted | 0 | 0 | 7 | 0 | 0 | 0 | 0 | 0 |
.SALCHICHA DE PAVO CHIMEX.predicted | 2 | 0 | 0 | 3 | 0 | 0 | 0 | 4 |
.Salchicha Viena Nutrideli.predicted | 1 | 0 | 0 | 0 | 4 | 1 | 0 | 0 |
.Salchicha viena FUD.predicted | 0 | 0 | 0 | 0 | 2 | 7 | 0 | 0 |
.Salchicha VIENA VIVA.predicted | 2 | 2 | 0 | 0 | 1 | 0 | 4 | 0 |
.SALCHICHA VIENA CHIMEX.predicted | 0 | 2 | 0 | 3 | 0 | 0 | 1 | 2 |