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:

resDICA.inf$Inference.Data$loo.data$fixed.acc
## [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

5.5.4 Random Confusion Matrix Accuracy:

resDICA.inf$Inference.Data$loo.data$loo.acc
## [1] 0.484375